code om selectie maken in kolom

[Depant]

Hallo allemaal,

Ik zoek een code die alle rijen verwijderd waarvan de waarde in kolom c niet tussen 160000 en 199999.
Dan hou ik dus alleen de rijen over met de nummers in kolom c tussen 160000 en 199999 over.
Als het kan rij 1 en rij 2 gewoon laten staan als het kan.

Ik heb echt geen flauw idee meer hoe dat moet.

Bekijk bijlage excel.xlsm

 

[Cobbe]

Test deze eens:

Sub cobbe()
LRow = Range("C" & Rows.Count).End(xlUp).Row
For cl = LRow To 3 Step -1
 If Cells(cl, 3) < 160000 [COLOR="#FF0000"]OR[/COLOR] Cells(cl, 3) > 199999 Then
  Rows(cl).Delete
 End If
Next
End Sub

 

[Depant]

Helaas.. Hij werkt niet...
Wat doe ik verkeerd?

 

[Cobbe]

Sorry mijn dikke fout:

Sub cobbe()
LRow = Range("C" & Rows.Count).End(xlUp).Row
For cl = LRow To 3 Step -1
 If Cells(cl, 3) < 160000 [COLOR="#FF0000"][B]OR[/B][/COLOR] Cells(cl, 3) > 199999 Then
  Rows(cl).Delete
 End If
Next
End Sub

 

[Excelbat]

If Cells(cl, 3) < 160000 [COLOR="#FF0000"]Or[/COLOR] Cells(cl, 3) > 199999 Then

Greetz/Excelbat

P.s.: Cobbe was net iets sneller...

 

[Depant]

Macro

Top hij werkt.
Hij doet er best lang over.
Het bestand wordt 15000 regels lang
Er zal wel geen snellere versie zijn denk ik...:thumb:

Bedankt!!!!