Hoi allemaal,
Ik heb een VBA script gevonden die mij goed op weg helpt in het automatisch kopieren en plakken van 1 sheet naar de andere. Echter, ik kom er niet helemaal uit:
Als ik de macro wil 'runnen', dan krijg ik de volgende foutmelding "Method or data member not found" bij het stukje code: ThisWorkbook.destWS.Range("A2")
In plaats van destWS = ActiveSheet, is het ook mogelijk om destWS = "DATABASE AB" te doen?
Hopelijk kunnen jullie mij verder helpen!
Alvast ontzettend bedankt.
Ik heb een VBA script gevonden die mij goed op weg helpt in het automatisch kopieren en plakken van 1 sheet naar de andere. Echter, ik kom er niet helemaal uit:
Code:
Sub test()
FileName = "CENTER C&D.xlsb"
Workbooks.Open "I:\R&E Internal\01 Reporting & Tools\05 Pricing\01 Monthly Topics\01 VIVA\01 PC\VIVA TOOL 2.0\CENTER\" & FileName
Dim destWS As Worksheet, LR As Long
Set destWS = ActiveSheet
LR = Workbooks(FileName).Worksheets("DATABASE").Range("A" & Rows.Count).End(xlUp).Row
'Copy data from Sheet deliverable to activesheet
Workbooks(FileName).Worksheets("DATABASE").Range("A2:AE" & LR).Copy _
ThisWorkbook.destWS.Range("A2")
End Sub
Als ik de macro wil 'runnen', dan krijg ik de volgende foutmelding "Method or data member not found" bij het stukje code: ThisWorkbook.destWS.Range("A2")
In plaats van destWS = ActiveSheet, is het ook mogelijk om destWS = "DATABASE AB" te doen?
Hopelijk kunnen jullie mij verder helpen!
Alvast ontzettend bedankt.