Makro

Er "468" navnet på et ark i den aktive projektmappe?

En lille hurtig en, hvor du skriver arknavnet i celle A1, og alt indholdet fra det ark kopieres ind startende fra celle A3:

Public Sub CopyAllDataFromXXsheet()
    Dim wksActive As Worksheet
    Set wksActive = ActiveSheet
    Worksheets(wksActive.Range("A1").Value).UsedRange.Copy
    wksActive.Range("A3").PasteSpecial xlPasteValues
    Set wksActive = Nothing
End Sub

468 er navnet på en seperat projektmappe.
Mht. det du skriver flemmingdahl.. skal der ikke være en sti?

når '468' er en seperat projektmappe, så virker min kode ikke. Virker hvor der hentes fra et andet regneark i projektmappen.

Det kan måske ikke lade sig gøre?

jojo - men jeg har bare ikke lige tid til det lige nu.

okay.... vi må kigge på det senere... jeg er villig til at give flere points, hvis 30 er for lidt.

point er underordnet for mig - prøv at klikke på mit navn en gang og se points!

zack >> Hvad er fordelen ved det du beskriver ? Er det ikke nemmere bare at åbne den mappe du gerne vil have fat i ?

Du kunne prøve at lege lidt med hyperlinks til de ark du ønsker. Det tror jeg vil virkse næsten lige så godt som det du beskriver.

Det er fordi, nogen ønsker det...

Det vedkommende gerne vil hav er, at han har en projektmappe med diverse beregninger. Her ønsker han at kunne kopiere dataene fra forskellige modeller over i en af de arkene i projektmappen. Herefter kan han beregne, på de kopierede data.

Herved er han fri for at lave kopieren det selv.

Det kan sikkert gøres smartere... men nogen er vanefolk, og her skal man ikke ændre for meget...

Her er min foreløbelige:

Sub Hent()
'
' Hent Makro
' Makro indspillet 30-01-2003 af Lars
'
' Genvejstast:Ctrl+a
'
    Workbooks.Open FileName:="\\FS1\DATA\EM\Kalkulationer\Kalk 2003\469.xls", _
        UpdateLinks:=3
    Sheets("Ark1").Select
    Range("A1:K58").Select
    Selection.Copy
    ActiveWindow.Close
    ChDir "F:\lars\Dokumenter\Kalkulationer"
    Workbooks.Open FileName:= _
        "\\FS1\DATA\lars\Dokumenter\Kalkulationer\TestKalk.xls"
    Range("B10").Select
    ActiveSheet.Paste
    Range("I25").Select
End Sub

Giver jeg for lidt point, siden lysten ikke er til at svare?

En lidt anderledes ide:
Åbn det regneark, der skal have data samt et af de der skal levere data.

-indsæt formeler der henter alle de data der er brug for (=testkalk.xls!A5 og videre i den dur)
-gem og luk dataleveringsark.

det er nu muligt at skifte mellem alle dataleveringsark, bare ved at gå ind under Rediger-Kæder-Skift Kæde.

Hmmm...det skal bare helst være så nemt som muligt, og sådan som det er nu (Lotus 1-2-3). Brugeren er nemlig ikke særlig kyndig, og derfor skal det være simpelt.

Er dt altid det samme antal rækker og kolonner?
I givet fald ville jeg vælge en ListBox hvor alle arknavnene blev skrevet ind. Evt. med vlookup til arknavn med den fulde sti.
Jeg ville lave formler i stil med Indirect med referance til cellen hvor ListBox´en bliver placeret. På den måde behøver brugeren kun at vælge det ønskede ark for at hente dataene! Hvis eks. ønskes skriv venligst e-mail!

jesperknudsen@inet.uni2.dk

jeg venter i spænding...

Problemet er lig http://www.eksperten.dk/spm/311251

Forskellen er bare, at det er en anden projektmappe der skal hentes.

Zack -> Jeg håber du har fået det løst med dine andre spørgsmål.
Palle ib -> jeg tror det bliver svært med indirekte funktion. Den virker kun på allerede åbne regneark.

ja... mit andet spørgsmål har løst problemet...jeg er dog stadig interesseret i at få tilsendt palle_ib's regneark.

Er det ikke noget i retning af følgende for at løse problemet:

Private Sub ComboBox1_Change()
  Dim sFil, sArk As String
  sArk = ThisWorkbook.Name
  Range("b1").Select
  sFil = ActiveCell
  Workbooks.Open Filename:=sFil
  Workbooks(sArk).Activate
  Calculate
End Sub
For at få løst Bak´s problem?
Kombineret med en formel ligende:
=INDIRECT(($B$2&"$"&CHAR(COLUMN()+64)&"$"&ROW()-6))
Så skulle det da være muligt!

Jeg har i hvert fald sendt 4 filer til zack, som hvis de palceres i c:\temp kan løse problemet!

Ups i B1 bliver filnavnet hentet det er for ikke at skulle arbejde med hele stien i ComboBoxen!

Hvad så Zack! Skal der snart betales? Der er vel besvaret?

Jo... beklager ventetiden...