Добрый день!
Подскажите пожалуйста, что не так.
Есть таблица: наименование, код, остаток, заказ.
Как сделать так, чтобы после ввода количества в столбец заказ при запуске цикла удалялись строки с пустыми значениями в столбце заказ.
Вот код макроса, но он не работает.
Спасибо.
Подскажите пожалуйста, что не так.
Есть таблица: наименование, код, остаток, заказ.
Как сделать так, чтобы после ввода количества в столбец заказ при запуске цикла удалялись строки с пустыми значениями в столбце заказ.
Вот код макроса, но он не работает.
| Код |
|---|
Sub Zakaz()
Dim Zak As Worksheet
For Each Zak In ThisWorkbook.Worksheets
Zak.Select
ActiveWindow.FreezePanes = False
Zak.Rows.AutoFilter
Zak.Rows.AutoFilter Field:=5, Criteria1:="="
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1" ;) .Select
While Zak.Cells(1, 5 + 1).Value <> ""
Zak.Columns(5 + 1).Delete Shift:=xlToLeft
Wend
Next
End Sub |
Спасибо.
