Gegevens verplaatsen

[Barend73]

Hier weer een probleem die voor mij vrij complex is.
Ik zou graag willen dat de gegevens van blad1 via een macro of een andere manier in één keer worden overgenomen op de juiste plaatsen van de tabbladen klant 1,2,3.
Dit wil ik elke week doen aan het einde van de week en dat hij de gegevens dus steeds op een nieuwe regel begint in de tabbladen van de klanten.
Blad1 kunnen zo ongeveer 30 invoeringen staan van klanten die hij weer moet kunnen overzetten.
Ook zou ook gaan om een stuk of 30 klanten die allemaal een aparte tabblad hebben.
Is dit wel mogelijk?

 

[HSV]

Code plaatsen in standaard module.
Hang het aan een knopje.

Sub hsv()
Dim sh As Worksheet
application.screenupdating = false
For Each sh In Sheets
 If Not sh.Name = "Blad1" Then
    With Sheets("blad1").Cells(1).CurrentRegion
     .AutoFilter 3, sh.Name
     .Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp).Offset(1)
     .AutoFilter
    End With
  End If
 Next sh
End Sub

 

[gast0660]

Hoi,
Hier heb je er nog eentje
zie vtje
Groet

 

[Barend73]

Zo dat is een hele snelle oplossing!!!
Bedankt allemaal ik kan hier mee verder.