Lege rijen verwijderen

[wpayanda]

Goede morgen,

Ik ben opzoek naar een makro die een bepaalde kolom moet controleren en als een cel leeg is dan die hele rij moet verwijderen. Dus als cel A2 leeg is moet de hele rij 2 verwijderd worden en rij 3 ipv rij 2 komen te staan. De makro moet dus de hele kolom A controleren. Nou heb ik ooit een makro gemaakt (met veel moeite) die dubbele rijen verwijdert:

Private Sub CommandButton1_Click()
Application.Calculation = xlManual

'On Error Resume Next
Rij = ActiveCell.Row
kolom = ActiveCell.Column
Do While Cells(Rij, kolom) <> ""
If Trim(Cells(Rij, kolom).Value) = Trim(Cells(Rij + 1, kolom)) Then
Rows(Rij).Select
Selection.EntireRow.Hidden = True 
Selection.Delete Shift:=xlUp End if
Rij = Rij + 1

Loop
Cells(1, kolom).Select

Application.Calculation = xlAutomatic

End Sub

kan ik hiervan iets maken? ik heb veel geprobeerd maar zonder enige resultaat!

 

[wpayanda]

Het is al opgelost, soms denk ik gewoon te moeilijk over na!

Sub verwijderen()

    Range("A1").Select
    Selection.AutoFilter
    Range("A1:O1651").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.AutoFilter Field:=1, Criteria1:="="
    Rows("2:1307").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=1
    Range("A2").Select
    Selection.AutoFilter
End Sub
Sub verplaatsen()

    Columns("A:O").Select
    Selection.Cut Destination:=Columns("O:AC")
    Columns("Q:Q").Select
    Selection.Cut Destination:=Columns("A:A")
    Columns("R:R").Select
    Selection.Cut Destination:=Columns("B:B")
    Columns("S:S").Select
    Selection.Cut Destination:=Columns("C:C")
    Columns("O:O").Select
    Selection.Cut Destination:=Columns("D:D")
    Columns("T:T").Select
    Selection.Cut Destination:=Columns("E:E")
    Columns("V:V").Select
    Selection.Cut Destination:=Columns("F:F")
    Columns("U:U").Select
    Selection.Cut Destination:=Columns("G:G")
    Columns("W:W").Select
    Selection.Cut Destination:=Columns("H:H")
    Columns("X:X").Select
    Selection.Cut Destination:=Columns("I:I")
    Columns("AA:AA").Select
    Selection.Cut Destination:=Columns("J:J")
    Columns("Z:Z").Select
    Selection.Cut Destination:=Columns("K:K")
    Columns("O:AC").Select
    Selection.Delete Shift:=xlToLeft
    Range("N6").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A2").Select
    ActiveWindow.Zoom = 85
    ActiveWindow.Zoom = 100
    ActiveWindow.Zoom = 115
    ActiveWindow.SmallScroll Down:=-18
End Sub

 

[alberto10]

wpayanda,
Deze macro verwijdert uw lege rijen :

Sub DelEmptyRow()
Range("B1:B20").Select
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = "" Then
'You can replace "" with 0 to delete rows with 'the value zero
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Wigi]

Dit zou ik gebruiken:

Sub DelEmptyRows()
    Application.ScreenUpdating = False
    On Error Resume Next
    Range("B1:B20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Wigi

 

[Wigi]

wpayanda, kan je de vraag nog op opgelost zetten aub? dank.