rijen deleten op basis van inhoud van de cel - vba

[stefano]

In een werkblad wil ik in vba die rijen verwijderen waarvoor in kolom D de letter "x" staat.

voorbeeldbestand in bijlage

Bekijk bijlage helpmij.nl4.xlsm

 

[Gerard2348]

Deze vba code heb ik ooit gevonden

Sub Try()
Dim lr As Long, j As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For j = lr To 1 Step -1
    If Trim(Cells(j, 4).Value) = "X" Then Cells(j, 4).EntireRow.Delete
Next j
End Sub

Hiermee moet het lukken

 

[VenA]

Waarom zo'n chaotische tabel?

Even filteren en verwijderen is voldoende en heb je eigenlijk geen VBA voor nodig.

Sub VenA()
With Blad1.UsedRange
  .AutoFilter 4, "X"
  .EntireRow.Delete
  .Parent.AutoFilterMode = 0
End With
End Sub

 

[stefano]

Tja Vena, waarom zo'n tabel ? Dat vraag ik me ook af, maar het is een exportbestand vanuit software SAP. Dramatisch zijn die bestanden en op deze manier probeer ik er wat mee te doen.

dank voor de hulp !