vba code om data te plaatsen in rij 1 vanaf kolom 3

[arjoderoon]

ik heb onderstaande code:

Sheetnames = Array("cdt bhw", "cdt bh1", "cdt bh2")

For i = LBound(Sheetnames) To UBound(Sheetnames)
    With Sheets(Sheetnames(i))
        .Range(.Range("N1"), .Cells(.Rows.Count, 1).End(xlUp)).Copy Sheets("bronblad zelfzorg").Cells(Rows.Count, 1).End(xlUp).Offset(1, 3)
    End With
Next i

hoe kan ik deze code zo aanpassen dat deze vanaf de bladen in de array alle data kopieert, en deze op het blad 'bronblad zelfzorg' plaats (onder elkaar, maar dan niet in de eerste kolom, maar in de derde?

ik dacht dit gedaan te hebben door de offset (1,3) neer te zetten (dit was 1,0) maar toen moest het op een ander blad terecht komen in kolom A.

Nu komt er niks te staan helaas...

 

[MDN111]

Het lukt mij niet echt om je code in overeenstemming te zien met wat je wil, maar ik citeer uit je desiderata "... alle data kopieert ... op het blad 'bronblad zelfzorg' ... onder elkaar... in de derde (kolom)". Uitgaande van deze probleemdefinitie staat in de bijlage een geschikte macro.

Grtz,
MDN111.

 

[arjoderoon]

onderstaande voor mij de oplossing na wat puzzlen:

Sheetnames = Array("cdt-asw", "cdt-food", "cdt-fd")

For i = LBound(Sheetnames) To UBound(Sheetnames)
    With Sheets(Sheetnames(i))
        .Range(.Range("L2"), .Cells(.Rows.Count, 1).End(xlUp)).Copy Sheets("blad3").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
    End With
Next i

de oplossing zat in het stuk: sheets("blad3").cells(rows.count, 4).end(xlup).offset(1,0)

die 4 is de kolom waarin de data terecht moet komen