Maybe:
![]()
Sub dobracik() Dim i As Long For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1 If Cells(i, "A") = "" And Cells(i, "B") = "" And Cells(i, "C") = "" Then Cells(i, "A").Offset(1).Resize(10).EntireRow.Delete End If Next i End Sub
Maybe:
![]()
Sub dobracik() Dim i As Long For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1 If Cells(i, "A") = "" And Cells(i, "B") = "" And Cells(i, "C") = "" Then Cells(i, "A").Offset(1).Resize(10).EntireRow.Delete End If Next i End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks