Hej,
proszę o pomoc w napisaniu kodu, który będzie usuwał puste rzędy, kiedy napotka w kolumnie B puste pole (wtedy chce skasować cały rząd).
Moje dane są wprowadzone dopiero od kolumny B. Chce żeby jednym kliknięciem usunęło wszystkie puste rzędy.
Mój kod to:
Sub Delete()
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "" Then
ActiveCell.Rows("1:0").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Range("B1").Select
End If
ActiveCell.Offset(1, 0).Range("B1").Select
Loop
End Sub
Czy ktoś może poradzić gdzie zrobiłam błąd, makro nie działa?
Aga