Macro: data verzamelen uit verschillende externe documenten. Hoe tab aangeven

[vlotter33]

Beste,
ik heb een macro geschreven om data uit verschillende externe documenten te kopiëren en te pasten in het doeldocument.

In mijn doeldocument zijn er verschillende tabs. Hoe kan ik aangeven in welke tab de data moeten worden gecopieerd? Kan ik dit aangeven na volgende info?

Set WB1 = Workbooks.Open("Sarah.xlsm")


Ter info:
dit is de volledige macro
Sub HoeSluiten()
'
' HoeSluiten Macro
'

'

Dim WB1 As Workbook
Dim WB1A1 As String
Set WB1 = Workbooks.Open("Sarah.xlsm")
WB1A1 = WB1.Sheets("Blad1").Range("A1")
Range("A18:CY1017").Select
Range("CY1017").Activate
Selection.Copy
Windows("verzameldoc.xlsm").Activate
Range("A10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save

Dim WB2 As Workbook
Dim WB2A1 As String
Set WB2 = Workbooks.Open("Leo.xlsm")
WB2A1 = WB2.Sheets("Blad1").Range("A1")
Range("A18:CY1017").Select
Range("CY1017").Activate
Selection.Copy
Windows("verzameldoc.xlsm").Activate
Range("A1010").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save

Windows("Sarah.xlsm").Activate
ActiveWorkbook.Close

Windows("Leo.xlsm").Activate
ActiveWorkbook.Close

Windows("verzameldoc.xlsm").Activate
Range("A10").Select
ActiveWorkbook.Save



End Sub

 

[Cobbe]

Na 2 jaar en 68 posts zou je toch moeten weten dat code tussen code-tags moet staan.

Selecteer de gehele code en druk #.