Goede namiddag allen,
Ik zit eventjes wat in de knoop.
Ik heb dus onderstaand code-blokje om bepaalde gegevens uit het bronwerkblad weg te schrijven naar het doelwerkblad. Dat op zich is geen probleem en werkt naar behoren.
With Sheets("htafel")
rijen = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To rijen
test = Left(.Cells(i, 8), 4)
If .Cells(i, 9) = gem And test >= startjr And test <= stopjr Then
naam1 = .Cells(i, 1) & " " & .Cells(i, 2)
naam2 = .Cells(i, 3) & " " & .Cells(i, 4)
datum = .Cells(i, 5)
akte = .Cells(i, 6)
With Sheets("tflprnt")
tfl = .Cells(Rows.Count, p).End(xlUp).Row + 1
.Cells(tfl, 1) = naam1
.Cells(tfl, 2) = "&"
.Cells(tfl, 3) = naam2
.Cells(tfl, 4) = datum
.Cells(tfl, 5) = akte
End With
End If
Next i
End With
Nu zou ik echter willen verkrijgen dat op het doelwerkblad, na rij 46 (dus na 45 records), het wegschrijven verdergaat op rij 2 maar dan 5 kolommen naar rechts en dit telkens opnieuw tot alle betreffende records uit het bronwerkblad zijn weggeschreven.
Ik weet dat ik dit in principe kan verkrijgen met een dubbele loop inzake enerzijds de rijen en anderzijds de kolommen maar ik raak er eventjes niet meer uit waar ik deze dan juist moet plaatsen en in welke volgorde.
Wie wil mij op weg helpen?
PS : het codeblokje maakt deel uit van een macro achter de opdrachtknop van een UserForm.
Alvast mijn oprechte dank.
groetjes,
BlackDevil