waarde uit meerdere tabbladen kopieren

[DClewis]

Ik heb van HSV deze prachtige oplossing gekregen om gegevens te kopieren naar een specifiek tabblad.
om dat het bestand iets is gegroeit wil ik dat graag over meerdere tabbladen doen maar ik krijg het maar niet voor elkaar
ik wil dus uit het dienst tabblad gegevens kopieren maar ook uithet tabblad stagiaires
Kan iemand mij helpen
de kolommen zijn in elk tabblad gelijk
mijn dank is alvast groot

Lewis

Sub hsv()
Application.DisplayAlerts = False
[B]With Sheets("dienst").Cells(1).CurrentRegion[/B]
 .AutoFilter 4, "<" & Format(Date, "mm/dd/yyyy")
 .Offset(1).Copy Sheets("uitdienst").Cells(Rows.Count, 1).End(xlUp).Offset(1)
 .Offset(1).Delete
 .AutoFilter
End With
End Sub

 

[emields]

Heeft HSV u niet gezegd dat een voorbeeldbstand voor de helpers veel gemakkelijker is?

 

[VenA]

Zal dan zoiets worden

Sub VenA()
  For Each sh In Sheets(Array("dienst", "stagiaires"))
    With sh.Cells(1).CurrentRegion
      .AutoFilter 4, "<" & Format(Date, "mm/dd/yyyy")
      .Offset(1).Copy Sheets("uitdienst").Cells(Rows.Count, 1).End(xlUp).Offset(1)
      .Offset(1).Delete
      .AutoFilter
    End With
  Next sh
End Sub

 

[DClewis]

dank aan VENA
werkt top!