Dimy

Het handigste en meest efficiënte is om 2 keer met een Advanced Filter te werken. De VBA help file heeft een voorbeeldje voor de code hiervan.

Enige probleem hierbij is dat je de gefilterde records niet direct in een ander tabblad kan zetten. Je zal dus in 2 stappen moeten werken, eerst filteren binnen hetzelfde tabblad, dan kopiëren naar het andere.

Vanaf dat ik tijd heb schrijf ik de code (als niemand anders het al gedaan heeft), maar kan niets beloven.

De macro recorder kan je trouwens al aardig op weg zetten.

Wigi

Dimy

dit voor de macro Copy:

Sub Copy()
    With Sheets("test1")
        .Range("B3:C210").ClearContents
        Sheets("Filter BB op datum").Range("A5:B210").Copy .Range("B3")
        On Error Resume Next
        Sheets("Filter BB op datum").ShowAllData
        .Select
        Range("A1").Select
    End With
End Sub

WG

Thanks !
Zo leren we telkens weer een stukje bij!