meerdere rijen verwijderen op basis van meerdere celwaarden.

[Depant]

Hallo allemaal,

Ik heb een uitvoerbestand in excel van een paar duizend regels."val"
Ik wil rijen verwijderen op basis van een celwaarde in rij 2.
Die celwaarden die ik verwijderd wil hebben staan in "blad1"
Kan dit met een macro. Het is een dagelijks terugkerend ritueel...
Ik hoop dat iemand dit voor mij kan maken

Vriendelijke groeten Henk Harbers

Bekijk bijlage Val.xlsm

 

[edmoor]

Probeer dit eens. Druk op de knop:
Bekijk bijlage Val.xlsm

 

[Depant]

Top.

Helemaal goed!!

Ik word altijd een beetje onrustig als ik niet snap wat er gebeurt.
Maar na even neuzen zie ik, dat ik er voldoende van snap om het toe te kunnen passen.

Hartelijk bedankt voor de moeite!!

 

[snb]

Iets eenvoudiger (en sneller):

Private Sub CommandButton1_Click()
    sn = Blad2.Cells(1).CurrentRegion

    For j = 2 To UBound(sn)
       Blad1.Columns(2).Replace sn(j, 1), "", 1
    Next

    Blad1.Columns(2).SpecialCells(4).EntireRow.Delete
End Sub

 

[Cobbe]

@snb

Dit is een goeie!

 

[Depant]

Hallo allemaal,

Het werkt als een tierelier.
Even later verwijder ik alle nummers hoger dan 120000
Kan dat er nog bij?
Ik hoop det het niet teveel moeite is.

Bijvoorbaat hartelijk dank

 

[VenA]

Dat kan bv zo

Sub VenA()
With Blad1.Cells(1).CurrentRegion
   .AutoFilter 2, ">120000"
   .Offset(1).EntireRow.Delete
   .AutoFilter
End With
End Sub

 

[Depant]

Bedankt!!

Helemaal super.:thumb: