rij verwijderen bij lege cel

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Ik probeer een rij te verwijderen als er een lege cel staat.
In een andere macro werkt dit perfect met "Range("A2:A219").SpecialCells(xlCellTypeBlanks).EntireRow.Delete"
Maar in deze macro niet.
Bedoeling is regel 15 t/m 24 te verwijderen.
Wat doe ik fout?
 

Bijlagen

  • lege cel.xlsm
    19,4 KB · Weergaven: 27
Ahh, deze zijn zo geïmporteerd, maar dit verklaard alles. Dank je gast0660.
 
Probeer het zo eens

Code: 
Sub VenA()
With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    .Replace " ", ""
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
 
Hoi
Graag gedaan
Maak er zoiets van,dan heb je geen last meer van geïmporteerde spaties
Code: 
Sub Legecel()
On Error GoTo oops
[A2:A10000] = [trim(A2:A10000)]
Range("A2:A219").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
oops:
End Sub
edit: @Vena onze berichtjes hebben zich gekruist
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan