Hente data fra andet excelark VBA

Du skriver ikke noget om, hvad det er, som ikke virker?

Lidt svært, at hjælpe, når man ikke ved, hvad fejlen er???

Hej Dan.
Beklager at jeg ikke beskrev fejlen..

Fejlen er at den altid stopper når den har hentet dataene fra data.xlsb, lige før den skal skrive dataene i main.xlsb. stopper med data.xlsb som det åbne og aktive wormkbook.

Giver det lidt mere mening.
/fajen

Prøv med denne:

Sub Hente_Data()

'  Define variables
    Dim WB_Main As Excel.Workbook
    Set WB_Main = Workbooks("Main.xlsb")

    Dim WB_Data As Excel.Workbook
    Set WB_Data = Workbooks.Open(Filename:="S:\Test_1\Data.xlsb")


'  Transfer data
    WB_Main.Cells(5, 3).Value = WB_Data.Cells(5, 3).Value
    WB_Main.Cells(5, 4).Value = WB_Data.Cells(5, 4).Value


'  End of Sub
    Workbooks("Data.xlsb").Close False

    Set WB_Main = Nothing
    Set WB_Data = Nothing

End Sub

Hej
Tak for it fine svar, men det virker heller ikke, stopper i første linje efter 'Transfer data med følgende fejl: Run time error '438': Object doesn't support this property or method.

Problemet ligger nok i at Main.xlsb bliver inaktiv når Data.xlsb åbnes og bliver aktiv i forgrunde og macroen ligger i Main.xlsb

/fajens

Nej, fejlen skyldes, at jeg er et fjols!
Jeg glemte helt 'Worksheet' objektet - dumme mig!

Sub Hente_Data()

'  Define variables
    Dim WB_Main As Excel.Workbook
    Set WB_Main = Workbooks("Main.xlsb")

    Dim WB_Data As Excel.Workbook
    Set WB_Data = Workbooks.Open(Filename:="S:\Test_1\Data.xlsb")


'  Transfer data
    WB_Main.Worksheets("Navn på ark").Cells(5, 3).Value = WB_Data.Worksheets("Navn på ark").Cells(5, 3).Value
    WB_Main.Worksheets("Navn på ark").Cells(5, 4).Value = WB_Data.Worksheets("Navn på ark").Cells(5, 4).Value


'  End of Sub
    Workbooks("Data.xlsb").Close False

    Set WB_Main = Nothing
    Set WB_Data = Nothing

End Sub

Udskift selv "Navn på ark" med navnet på regnearkene i henholdsvis 'Main' og 'Data'.

Hej igen.
Den virker nu. Tak for hjælpen.

Der er et problem i systemet, for når jeg laver et kald der hedeer Ctrl+shift+B virker det ikke, men med et kald der hedder ctrl+b kører den lige igennem, faktisk også den jeg lagde op til start. Hvad gør man så?

Bruger så det der duer.
/fajens

Hej
Problemet med at Ctrl+shift+ i nogen sammenhænge ikke virker, er et kendt problem når man søger på nettet, kommer der flere hit hvor fejlen er nævnt

Jeg takker for hjælp og lukker tråden.
/fajens