Regel verwijderen waar een veld leeg is

[ronaldvm1964]

Ik kom uit met het volgende, zie bijlage.

In kolom N zijn er regels die niet gevuld zijn en regels die gevuld zijn.
Nu wil ik de regels, waar kolom N leeg is, verwijderen.
Ik weet dat het makkelijk is om de regels handmatig te verwijderen, maar liever heb ik deze in macro omdat er nog een vervolg op komt.

Gr,
Ronald

 

[Ad Becude]

Met deze code zou het moeten lukken.

Sub verwijderen()
For I = Range("N65536").End(xlUp).Row To 1 Step -1
If Range("N" & I) = "" Then
Rows(I).EntireRow.Delete
End If
Next
End Sub

 

[Warme bakkertje]

Of met een one-liner

Sub tst()
    Columns(14).SpecialCells(4).EntireRow.Delete
End Sub

 

[ronaldvm1964]

Met deze code zou het moeten lukken.

Sub verwijderen()
For I = Range("N65536").End(xlUp).Row To 1 Step -1
If Range("N" & I) = "" Then
Rows(I).EntireRow.Delete
End If
Next
End Sub

Werkt perfect, alleen ben ik vergeten te melden dat N1 niet verwijderd mag worden, hoe kan ik dat het beste oplossen.

 

[ronaldvm1964]

Of met een one-liner

Sub tst()
    Columns(14).SpecialCells(4).EntireRow.Delete
End Sub

Deze werkt ook perfect, alleen vergeten te melden dat regel N1 niet verwijderd mag worden.

 

[Warme bakkertje]

Sub verwijderen()
For I = Range("N65536").End(xlUp).Row To [COLOR="red"]2 [/COLOR]Step -1
If Range("N" & I) = "" Then
Rows(I).EntireRow.Delete
End If
Next
End Sub

Sub tst()
    Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).SpecialCells(4).EntireRow.Delete
End Sub

 

[ronaldvm1964]

Sub verwijderen()
For I = Range("N65536").End(xlUp).Row To [COLOR="red"]2 [/COLOR]Step -1
If Range("N" & I) = "" Then
Rows(I).EntireRow.Delete
End If
Next
End Sub

Sub tst()
    Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).SpecialCells(4).EntireRow.Delete
End Sub

Heel erg bedankt, dit werkt goed. Iedereen bedankt voor de hulp :love: