Marco om lege rijen te verwijderen

[jorisg]

Hallo daar,

Kan iemand een marco maken waarme ik in een klap alle lege rijen binnen een bepaald bereik kan verwijderen.
Met lege rijen bedoel ik een rij waarin geen enkele cel informatie bevat.

Alvast bedankt.

Groet Joris

 

[arre]

ik ken niets van macros, maar in dat vb taaltje dat met excell komt, moet dat zeker mogelijk zijn

 

[LucHeyndrickx]

Hoi Joris,

hier heb je het:

Sub DeleteRows()
Dim i As Integer
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then _
Rows(i).Delete
Next
End Sub

Luc

 

[jorisg]

Hallo Luc,

Het werkt :thumb:

Thanx