Kopieren rijen aan de hand van data in de eerste kolom

[Dijkie01]

Hallo,

Ik heb een klantenbestand met iin de eerste kolom de klantnummers welke beginnen met 00.

Ook staan er tussen de rijen aantekeningen en lege regels.

Klant Naam Adres
001 abc de
002 cde fg
003 efg hi
Let op afleveradres!

004 hij jk


Hoe kan ik deze rijen waarvan de cellen in kolom A met 00 beginnen het eenvoudigst naar een apart werkblad kopieren mbv een macro?

Mvrgr,

Marcel

 

[wampier]

Je moet de naam van de target sheet even aanpassen, en de macro moet runnen met de goede sheet actief dan kan het met deze code:

Sub verplaats()
For Each cell In [a:a]
    If Left(cell.Value, 2) = "00" Then
        cell.EntireRow.Copy Sheet2.[a50000].End(xlUp).Offset(1)
    End If
    
Next cell
End Sub

 

[Dijkie01]

Werkt perfect! bedankt.