Luitjes,
In bijgevoegd testbestand wil ik graag de bladen adv1 en adv2 samenvoegen tot het totaal.
Bij mijn zoektocht op het forum kwam ik deze tegen:
maar weet niet precies hoe hem om te bouwen. Ik zie de verwijzing niet helemaal. Iemand die me verder kan helpen?
In bijgevoegd testbestand wil ik graag de bladen adv1 en adv2 samenvoegen tot het totaal.
Bij mijn zoektocht op het forum kwam ik deze tegen:
Code:
Sub Samenvoegen()
Dim iWS As Integer
Dim lSRij As Long
Worksheets.Add After:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
Worksheets(1).Range("A1:I1").Copy .Range("A1:I1")
lSRij = 2
For iWS = 1 To Sheets.Count - 1
Worksheets(iWS).Range("A2:I" & Worksheets(iWS).Range("I" & Rows.Count).End(xlUp).Row).Copy .Range("A" & lSRij)
lSRij = .Range("B" & Rows.Count).End(xlUp).Row + 1
Next
.Range("A2:I" & lSRij).Sort key1:=Range("B2")
End With
End Sub
maar weet niet precies hoe hem om te bouwen. Ik zie de verwijzing niet helemaal. Iemand die me verder kan helpen?