Verwijderen lege rijen

[Abco_B]

L.S.,

Heeft iemand misschien reeds een macro geschreven die lege rijen verwijdert uit een lijst met gegevens ?

Bij voorbaat dank !

Abco

 

[Ron321]

Sub DeleteBlankRows()

Dim r As Long
Dim C As Range
Dim N As Long
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
N = 0
For r = Rng.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Rows(r).EntireRow) = 0 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Met dank aan één van de andere forumbezoekers.

 

[Abco_B]

Beste Ron,

Bedankt voor je reactie, scheelt mij weer een heleboel (vrije) tijd !

Abco

 

[Kwakel13]

Ik wil alleen de regels verwijderen waarbij kolom A leeg is, hoe geef ik dit aan?
Thanks!!

 

[droogers]

bedankt

bedankt voor de handige macro

 

[oeldere]

kwakel13, met onderstaande macro gaat je dit lukken.

Sub wis_lege_rijen() 'deze wist de lege rijen in kolom A

With Columns("A").SpecialCells(xlCellTypeBlanks).Cells
    .EntireRow.Delete Shift:=xlUp
  End With
  If Err.Number <> 0 Then MsgBox "Uitvoering niet mogelijk : geen of allemaal lege cellen"
 End Sub

 

[popipipo]

@oeldere

Heb je gezien hoe oud de vraag van kwakel13 was

 

[oeldere]

popipipo

nee, dat had ik niet gezien (maar dat wist je wel)

op deze vraag was vandaag nog geantwoord en ik zag de vraag en die heb ik dus (wat aan de late kant beantwoord )

 

[popipipo]

Droogers (10 jaar lid van het forum) had moeten weten dat je op een 5 jaar oude topic niet meer moet reageren.

@Oeldere Het is je vergeven, het gebeurt mij ook wel eens.:thumb: