Ga naar inhoud

Rijen verwijderen bij voorwaarde


Afe
 Delen

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites


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

 

Link naar reactie
Delen op andere sites


 Delen

×
×
  • Nieuwe aanmaken...