Alvast bedankt voor de hulp!
Ewout Toet
Kan ook met menu> Data>filter>uitgebreidfilter
vincent
"Ewout" <ewout...@minvrom.nl> schreef in bericht
news:06ee01c349e8$dcf4fff0$a101...@phx.gbl...
>-----Oorspronkelijk bericht-----
>.
>
Volgende macro maakt een nieuw werkblad (vooraan in de werkmap), en plaats
daar alle inhoud van alle andere werkbladen.
Als je deze macro natuurlijk een tweede maal runt, moet je wel eerst dit
eerste werkblad terug verwijderen.
*******
Sub TotaleData()
Dim i As Integer
Dim mySheet As Worksheet
Set mySheet = Worksheets.Add(Before:=Worksheets(1))
For i = 2 To Worksheets.Count
Sheets(i).Range("A1").CurrentRegion.Copy _
mySheet.Cells(mySheet.Range("A65536").End(xlUp).Row + 1, 1)
Next
End Sub
***********
Luc
"Ewout" <ewout...@minvrom.nl> schreef in bericht
news:090501c34aab$da64fba0$a301...@phx.gbl...
Ewout
>-----Oorspronkelijk bericht-----
>.
>