Удалить строки при условии

[amadeus017]

(1) 19.02.2016 16:24 от amadeus017
Кстати, я бухгалтер, могу таких тонкостей и не заметить ))))

(2) 19.02.2016 16:54 от amadeus017
Я записывал макрорекордером, не получается.... удалял полностью все строки...

(3) 19.02.2016 17:01 от amadeus017
Не получалось записать макрос. Удалялись все строки ((((



_____
не используйте форум как чат.
Если есть что добавить - то можете редактировать свой последний пост в теме.
Модератор

[Казанский]

Видимо, надо было добавить F5 - выделить - только видимые. Выходит, что при выполнении ручных действий подразумевается, что действия применяются только к видимым, а при работе макроса - нет.
В общем макрос получается такой. Мне не нравится, что требуется указать критерий с учетом формата, с критерием "0" или "=0" не работает. Так что вариант м перебором строк более надежный.

Sub bb()
  ActiveSheet.AutoFilterMode = False
  With Range("A15:AC" & Cells(Rows.Count, "Z").End(xlUp).Row)
    .AutoFilter 26, "=0.00"
    .AutoFilter 27, "=0.00"
    .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter 26
    .AutoFilter 27
  End With
End Sub

А что касается "я бухгалтер", то мы все тут не профессиональные программисты. Профессионалы создают такие программы как Excel, а мы в них макросы пишем как в песочнице.

[amadeus017]

Сообщение от Казанский

А что касается "я бухгалтер", то мы все тут не профессиональные программисты. Профессионалы создают такие программы как Excel, а мы в них макросы пишем как в песочнице.

Хорошая песочница!...
В работе сталкиваюсь с задачами, которые приходится вручную лопатить, а ваша "песочница", всякий раз выручает!
Спасибо за код!