naar tabbladen kopieren

[knarfje]

Hallo,

Hoe kan ik in onderstaand document de gegevens van piet,klaas en jan doorkopieren naar hun eigen tabblad met alle gegevens erbij?

Alvast dank.

 

[danny147]

Beste knarfje

Zie hier een voorbeeldje met formules.

Groetjes Danny. :thumb:

 

[knarfje]

Beste knarfje
Zie hier een voorbeeldje met formules.
Groetjes Danny. :thumb:

Maar ik wil zowiezo alle regels doorkopieren naar hun eigen tabblad als er aan de voorwaarde van kolom B (de naam dus) word voldaan.
.

 

[Warme bakkertje]

Sub tst()
For Each cl In Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Sheets(cl.Offset(, 1).Value).[A65536].End(xlUp).Offset(1) _
            .Resize(, 6) = cl.Resize(, 6).Value
Next
End Sub

 

[knarfje]

Sub tst()
For Each cl In Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Sheets(cl.Offset(, 1).Value).[A65536].End(xlUp).Offset(1) _
            .Resize(, 6) = cl.Resize(, 6).Value
Next
End Sub

En als het meer kolommen naast elkaar worden dan verander ik de 6?
Kan je uitleggen wat dit precies doet?

 

[Wigi]

Kan je uitleggen wat dit precies doet?

Stap er eens door middels de functietoets F8. Zal je veel wijzer van worden. :thumb:

 

[knarfje]

Stap er eens door middels de functietoets F8. Zal je veel wijzer van worden. :thumb:

Thanks, gaan we doen:thumb: