Waarden van werkblad uit ander bestand kopieeren

[etimm]

Het is waarschijnlijk iets heel eenvoudigs wat ik over het hoofd zie maar ik krijg het niet voor elkaar.

Ik wil d.m.v. VBA de waarden (vanaf rij 2) van blad2 uit bestand1.xls kopieeren en in blad1 (ook vanaf rij 2) van bestand2.xls plakken.

bestand1.xls bevat gegevens die worden bijgewerkt.
bestand2.xls bevat de uiteindelijke rapportages.

Het lijkt me toch mogelijk om de waardes ipv formules over te nemen?

 

[ExcelAmateur]

etimm,

Kijk hier eens bij post #4

 

[etimm]

Ik ben juist opzoek naar een macro/vb script om de waardes uit een blad te kopieren. Ik wil geen formules overnemen maar enkel de waardes.

 

[Niels28]

zo iets?

Sub test()

Workbooks.Open Filename:="C:\data\voorbeeld\bestand1.xls"
With ThisWorkbook.Sheets("blad1")
.Range("A2:Z126").Value = Workbooks("bestand1.xls").Sheets("blad2").Range("A2:Z126").Value
End With
Workbooks("bestand1.xls").close SaveChanges:=False
End Sub

Niels

 

[etimm]

zo iets?

Sub test()

Workbooks.Open Filename:="C:\data\voorbeeld\bestand1.xls"
With ThisWorkbook.Sheets("blad1")
.Range("A2:Z126").Value = Workbooks("bestand1.xls").Sheets("blad2").Range("A2:Z126").Value
End With
Workbooks("bestand1.xls").close SaveChanges:=False
End Sub

Niels

Geweldig! Precies wat ik nodig had. (.value en ThisWokbook.)

Is het ook mogelijk dat ik het werkblad "blad2" forceer te verversen zodat hij de formules opnieuw berekent?
Dan weet ik zeker dat de meest up-to-date gegevens worden overgenomen.

 

[Niels28]

Ik ga er van uit dat je bestand dus al openstaat anders hoef je niet opnieuw te calculeren.

Workbooks("bestand1.xls").activate
Calculate
thisworkbook.activate
rest code.......

Niels

 

[etimm]

Ik ga er van uit dat je bestand dus al openstaat anders hoef je niet opnieuw te calculeren.

Workbooks("bestand1.xls").activate
Calculate
thisworkbook.activate
rest code.......

Niels

Bedankt Niels!