Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удаление строк по критерию или автофильтр
 
Добрый день!
Подскажите пожалуйста, что не так.
Есть таблица: наименование, код, остаток, заказ.
Как сделать так, чтобы после ввода количества в столбец заказ при запуске цикла удалялись строки с пустыми значениями в столбце заказ.
Вот код макроса, но он не работает.

Код
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


Спасибо.
 
Принимайте
 
Спасибо Watcher_1.
Разобрался с кодом в первом сообщении. Работает, но только при установке кода в конкретную книгу.
 
Замените ThisWorkbook на ActiveWorkbook и будет работать с любой книгой независимо от того, где код расположен.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо The_Prist.
Работает.
Страницы: 1
Читают тему (гостей: 1)