Здравствуйте!
В очередной раз вынужден просить помощи(
Нужно сделать так чтобы удалялись не заполненные строки с таблиц в листах "Расходная" и "Счет"
Думаю идея будет понятна взглянув на файл...
Сам пробовал решить, но не получается(
[vba]Код
Sub deleteEmptyRows()
Dim x, i&, delRa As Range
x = Range("C12:C61" & [a65535].End(xlUp).Row).Value
For i = 1 To UBound(x)
If x(i, 1) = "0" Then
If delRa Is Nothing Then
Set delRa = Cells(i, 1)
Else
Set delRa = Union(Cells(i, 1), delRa)
End If
End If
Next
If Not delRa Is Nothing Then delRa.EntireRow.Delete
End Sub
[/vba]