Lege rijen verwijderen

[Ron321]

Ik heb een textbestand geimporteerd. Nu zitten daar een heleboel lege rijen tussen.
Is er een makkelijke manier om deze te verwijderen?

 

[jgmiddel]

Sub DeleteBlankRows1()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

 

[Ron321]

Helaas, dit werkt niet.

 

[jgmiddel]

Deze wel!

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

 

[Ron321]

Helaas, opnieuw niet.

 

[CorVerm]

Ron,
De tweede macro werkt bij mij wel. Staat er dan toch in een van de (of alle) rijen niet iets van een spatie o.i.d.?

 

[Ron321]

Daar had ik ook al naar gekeken.
Hoe activeer jij de macro? Ik heb een knop gemaakt en hem daaraan gekoppelt en de macro in het blad gezet waar de lege rijen in staan.

 

[CorVerm]

De macro in een module gezet en een knop op het werkblad gemaakt.

 

[Ron321]

:thumb:

Opgelost.
Ook bleken er in sommige cellen een dubbele spatie te staan.
Deze met ctrl f vervangen door niets.

Bedankt allebei!