Помогите с макросом
1677
3
Есть некая таблица с перечнем услуг и их стоимостью - прайс.
Для расчета стоимости комплекса услуг достаточно поставить количество напротив каждой позиции.
Задача: Поскольку перечень длинный, а помеченных позиций не много - надо, чтобы после нажатия некой кнопки все строки, количество которых равно нулю - скрылись.

Как это сделать?
Углоб
Начать запись макроса. Скрыть какую-либо строку вручную. Остановить запись. Посмотреть исходный текст, потом применить в своем макросе при обходе клеток.
Углоб
Есть еще такая фишка:
Фильтр->автофильтр. Предварительно выдели столбец по которому будет производиться фильтрация. А там выбери значение "непустые".
Углоб
Юзай:


Sub a()
For i = 1 To Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, 3).Value = "" Then Worksheets(1).Rows(i).Hidden = True
Next
End Sub

:спок: