• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verwijderen op basis van inhoud

Status
Niet open voor verdere reacties.
stefano

stefano

Gebruiker
Lid geworden
22 mei 2004
Berichten
864
Beste ,

Ik ben op zoek naar een vba-code om rijen te verwijderen.

Als in de cellen b6 tot b1000 de inhoud nul is, dan mag de rij verwijderd worden. Als de celinhoud verschilt van nul dan dient de rij te blijven bestaan.

Heeft iemand raad ?

dank,

Stefano
 
Probeer deze eens.

Code: 
Sub VenA()
For j = 1000 To 6 Step -1
    If Cells(j, 2).Value = 0 Then Cells(j, 2).Rows.EntireRow.Delete
Next j
End Sub
 
Laatst bewerkt:
Geen lus van negenhonderdvijfennegentig.

Code: 
Sub hsv()
With Sheets(1)
 .Range("b5:b1000").AutoFilter 1, "0"
 .AutoFilter.Range.Offset(1).SpecialCells(12).EntireRow.Delete
 .Range("b5:b1000").AutoFilter
End With
End Sub
 
Aha er staat B6 dan is het geen lus van 1000 meer:d Of nul echt de waarde 0 is of een lege cel zullen we waarschijnlijk niet te weten komen aangezien de vraag als opgelost gemarkeerd is.
 
Tijd voor een bril VenA. :rolleyes:

Edit: Ts is waarschijnlijk te beroerd om te reageren.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan