van Workbook1.sheet 1 tot/met sheet 53

[xcp]

Hallo,

Hoe kan met bijv VBA data copieren van kolom 1 en AD en AE en dat van 53 sheets van workbook1 naar 1 sheet op Workbook2.

Dus van 53 datasheets 2 kolomen op workbook1 samenvoegen op 1 datasheet van workbook2.


Bekijk bijlage Workbook1.xlsx

Groetjes,

Roland

 

[HSV]

In een standaard module.

Mappenstructuur aanpassen.

Sub hsv()
Dim i As Long
Workbooks.Open "c:\map1\map2\workbook1.xlsx"
For i = 1 To 53
    With ThisWorkbook.Sheets(1)
      Sheets(i).Columns("AD").Resize(, 2).Copy .Cells(1, .Cells(3, Columns.Count).End(xlToLeft).Column + 1)
    End With
   Next i
Workbooks("Workbook1.xlsx").Close
End Sub

 

[xcp]

In een standaard module.

Mappenstructuur aanpassen.

Sub hsv()
Dim i As Long
Workbooks.Open "c:\map1\map2\workbook1.xlsx"
For i = 1 To 53
    With ThisWorkbook.Sheets(1)
      Sheets(i).Columns("AD").Resize(, 2).Copy .Cells(1, .Cells(3, Columns.Count).End(xlToLeft).Column + 1)
    End With
   Next i
Workbooks("Workbook1.xlsx").Close
End Sub

Harry Bedankt echt helemaal supers.

Dank je wel,

Roland