Rijen kopiëren naar ander werkblad

[Senso]

Kun je rijen die in kolom A eenzelfde code hebben van bijvoorbeeld:
A
1400 | 12.03.17
1800 | 13.04.17
U500 | 12.05.17
1800 | 18.08.17
L250 | 12.12.17
H360 | 18.12.17
dus alle met code 1800 kopiëren naar een ander werkblad

 

[Jack Nouws]

Sub fltr()
      With Sheets("Blad1").Cells(1).CurrentRegion
        .AutoFilter 1, "1800"
        .Copy Sheets("Blad2").Cells(1)
        .AutoFilter
      End With
End Sub

 

[Senso]

Ik ga er nu direct niet mee aan de slag maar bewaar deze. Bedankt.:thumb: