Rij verwijderen door middel van criterium en command button

[PePe22]

Hallo

In het excell bestandje staat een flard van de data waarmee ik werk.
Het doel is dat ik een command button heb die wanneer de waarde van kolom S (actief met verplichting) gelijk is aan 1, de complete rij verwijdert wordt.
In het voorbeeld zou dus na een druk op de knop rijen 17 t/m 31 verwijdert moeten worden (zodanig dat de data daaronder naar boven opschuift)

Kan iemand zo'n macro voor mij ontwikkelen?
alvast enorm bedankt!

groeten,
Peter

Bekijk bijlage RijenVerwijderen.xlsx

 

[roeljongman]

Probeer het eens met deze macro

Sub verwijderRijen()

rngtotaal = Range("S1").CurrentRegion.Rows.Count  'bepaal totaal aantal regels

For i = rngtotaal To 2 Step -1
    If Cells(i, 19).Value = 1 Then Cells(i, 19).EntireRow.Delete
Next i

End Sub

gebruik het voorbeeldbestandje om het te testen..

de for next instructie loopt van de onderste regel naar boven omdat bij een normale oplopende loop niet alle regels worden getest.

 

[HSV]

Iets sneller.

Sub hsv()
 With Sheets(1)
  .Range("S1:S" & Cells(Rows.Count, 14).End(xlUp).Row).AutoFilter 1, 1, , , False
  .AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  .ShowAllData
 End With
End Sub

Als je de screenupdating uitzet Roel gaat jouw code stukken sneller.

 

[roeljongman]

I
Als je de screenupdating uitzet Roel gaat jouw code stukken sneller.

a ja, die gebruik ik ook eigenlijk altijd, ik wilde de code even zien werken en daarna vergeten de screenupdating uit te zetten erbij te zetten..

had ook zitten klooien met de autofilter, maar ik zit nog vaak te prutsen met de verkeerde code opmaak afhankelijk of het om het object, de methode of de eigenschap gaat.. maar ach als ik maar lang genoeg rond hang hier leer ik het wel

 

[HSV]

maar ach als ik maar lang genoeg rond hang hier leer ik het wel

Zo is het.
Het is een leuke verslaving.