Rijen verwijderen bij voorwaarde

[Afe]

Beste Excel specialisten,

Ik heb volgende vraag : bij de voorwaarde (Yes) zou de hele rij naar een ander tabblad moeten verplaatst worden.

Ik heb een VBA code gevonden, maar die werkt slechts gedeeltelijk (niet alle rijen worden verplaatst)

Zou er iemand eens naar kunnen kijken om het probleem op te lossen?

Alvast bedankt.

 

AFE

Rijen verwijderen.xlsm

[alpha]

Eenzelfde soort vraag heb ik op dit forum al eerder beantwoord, dus als je goed had gekeken.....

Gebruik dit:

Sub macro1()
Dim x As Integer, y As Integer
y = 1
With Sheets(1)
For x = 2 To .Range("a" & .Rows.Count).End(xlUp).Row
If .Range("d" & x).Value = "Yes" Then
y = y + 1
.Range("a" & x & ": d" & x).Copy Destination:=Sheets(2).Range("a" & y & ": d" & y)
.Rows(x).EntireRow.Delete
x = x - 1
End If
Next x
End With
End Sub

 

[Afe]

Thanks, probleem opgelost.

 

AFE