For each statement mag bij verwijderen rij niet naar next gaan

[gl3nn1987]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim c As Range
For Each c In Sheets(1).Range("A1:A" & Sheets(1).Range("A65536").End(xlUp).Row)


If Not IsDate(c) Then
c.EntireRow.Delete
End If
Loop
Next c

End Sub

Het probleem is dat als hij de cel verwijderd heeft hij natuurlijk op deze manier verder gaat naar de volgende cel. Maaromdat hij er 1 verwijdert heeft schuif alles 1 naar boven en moet ik meerdere malen de macro uitvoeren om er zeker van te zijn dat alles gewist is. Hoe kan ik dit oplossen?

 

[Thoralf]

De normale gang van zaken is hier van onderaf aan gaan verwijderen. Je verwijdert dan immers een rij, je komt dan terecht op de rij die er onder stond, maar die had je al bekeken en dan ga je via de normale weg van next naar de rij er boven. Zo is er geen rij die de dans ontspringt.

 

[gl3nn1987]

een hele stomme vraag miss. Maar hoe stel ik dat in dat ie het andersom doet?

 

[Thoralf]

Even uit de losse pols (niet getest dus):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim c As Range
For i = Sheets(1).Range("A1:A" & Sheets(1).Range("A65536").End(xlUp).Row) to 1 step -1
If Sheets(1).Range("A" & i).value  ="" Then
Sheets(1).Range("A" & i).EntireRow.Delete
End If
Next 

End Sub

 

[HSV]

Dit is iets sneller.
Als het ook om tekst gaat i.p.v. lege cellen, haal je de apostrof weg.

Sub hsv()
 With Columns(1)
  '.SpecialCells(2, 2).EntireRow.Delete
  .SpecialCells(4).EntireRow.Delete
 End With
End Sub

 

[gl3nn1987]

Mijn dank, denk dat het hier wel mee moet lukken