Макрос: удаление строк если в колонке А число 5

[Dorvir]

Народ хелп!

Как написать макрос на следующую тему:

удалить всю строку, если в колонке A, в ячейке формула пишет цифру 5.

Есть пакинг лист в который вносятся артикулы, количество, вес, цена и т.д. Артикулы разносятся по кодам ТН ВЭД.
Пакинг сделан на весь ассортимент, когда копируешь заказ строчки по части артикулов не заполняются, так как их нет.
У меня стоит выделение этих пустых строк желтым цветом, потом я их удаляю. Иногда приходиться удалять целый блок кода ТН ВЭД.
В стоблике А стоит формула если столбик с количеством =0 то 5, иначе 0.
То есть цифра 5 появляется в строчке артикула если его нет в заказе и его количество стоит ноль. Так же цифра 5 появляется в итогах по каждому коду, и если все значения нулевые этот итог тоже удаляется.

Очень хочется чтобы макрос сам просматривал столбец А и если бы обнаруживал там число 5, то удалял бы всю строку.

см. приложенный файл.

Спасибо!

[Insainer]

Если я правильно понял формулировку, то можно это сделать так (см. модуль1).

Правильно?

PS: Можно и без массива обойтись, это только для контроля "watch"

[Dorvir]

СПАСИБО ОГРОМНОЕ!!!! РАБОТАЕТ!!! УРа!!!!!!!!!!!!
Как бы научиться это все писать... ???
Такого бы удалось новоротить!!!! )))

[Leanna]

вот в этой ветке похожий вопрос
http://www.programmersforum.ru/showthread.php?t=13962
если Rows поменять на Columns?

И ещё вопрос, зачем нужно брать функцию от функции? WorksheetFunction.Columns(ws.Column s(i))
ws.Columns(i) - указывает номер столбца
WorksheetFunction.Columns - что делает?

Код не работает

Sub HideEmptyRows()
    Set ws = ActiveSheet
    For i = ws.UsedRange.Columns.Count To 1 Step -1
        If WorksheetFunction.Columns(ws.Columns(i)) = 0 
        Then ws.Columns(i).EntireColumn.Hidden
        End if
    Next i
End Sub

[Insainer]

WorksheetFunction.Columns не делает ничего, ибо такой функции у объекта WorksheetFunction не существует!

[Leanna]

Хорошо тогда в этом примере,

ws.Rows(i) - указывает номер ряда
WorksheetFunction.Rows - что делает?

[Insainer]

Откуда пример этот дурацкий взяли? Хотя и не по теме вопрос, постараюсь объяснить что к чему. В Visual Basic for Applications (далее -"VBA") существует такое понятие, как библиотеки классов. Эти готовые библиотеки Microsoft создает и с новой версией обновляет для облегчения программирования своих приложений (Applications) на Visual Basic. Их все вы можете посмотреть нажав в редакторе "F2" tools - > References. Для Excel предусмотрена своя библиотека, называемая "Microsoft Excel Object 11.0 Library" (версии могут разниться). Так вот, в этой библиотеке существует упомянутый вами класс (или объект) WorksheetFunction, членами которого являются ряд свойств (рука с карточкой), функций (зеленый квадратик). Выражение WorksheetFunction.Sum, например, позволяет обратиться к функции Sum, но WorksheetFunction.Rows выдаст ошибку, по-моему 438, поскольку объект WorksheetFunction не поддерживает свойство Rows, оно является членом объекта Worksheet(рабочий лист), либо свойстом другого свойства, никак без тавтологии, назначение которого - обозначить рабочий лист - ActiveSheet, например, далее задаем для свойства Rows координату Rows(номер строки), либо не задаем, тогда мы обращаемся ко всем ячейкам рабочего листа. Worksheet("Лист1").Rows.Select - данная конструкция выделяет все строки листа 1. Select - функция "выбор", она разнопланова, может применяться как к Rows, так и к Worksheet. Worksheet("Лист1").Select, например, делает лист 1 активным, другими словами "нажимает" на вкладку Лист 1. Так что пробуйте и экспериментируйте.

[jungo]

Сообщение от Insainer

Если я правильно понял формулировку, то можно это сделать так (см. модуль1).

Правильно?

PS: Можно и без массива обойтись, это только для контроля "watch"

А модуль 2 зачем?

[Leanna]

Спасибо Insainer, очень подробно и понятно.
Я наконец хоть поняла почему там разные иконки в F2.
Зелененькая иконка это наверное метод какой нибудь, там запутаться можно желтенькие, беленькие (наверно что-то связаное с константами)

Насчет примера. Мне неправильно показалось что Макрос2 в PACKING_LIST_INVOICE_RK_DELETING.ra r рабочий, он просто выглядел более понятно чем макрос с массивом.

[jungo]

Скопировал модуль 1 к себе в макрос всё ок, только мне не понятно почему я меняю параметр (что бы не стирать две первые строки) мне показывает ошибку. вот так: