Страницы: 1
RSS
Скрыть строку если в определенной ячейке этой строки 0
 
Добрый день.
Не могу никак сообразить какой макрос нужен. Необходимо скрыть строку на листе "Заказ" если во втором столбце этой строки 0. Значение берется формулой с листа "Расчёт".
 
формулы
 
макросом
в модуль листа:
Код
Private Sub WorkSheet_Activate()
    Range("b3:b168").EntireRow.Hidden = False
    Dim rr As Range
    For i = 3 To 168
        If Cells(i, 2).Value = 0 Then
            If rr Is Nothing Then
                Set rr = Cells(i, 2)
            Else
                Set rr = Union(rr, Cells(i, 2))
            End If
        End If
    Next
    If Not rr Is Nothing Then rr.EntireRow.Hidden = True
End Sub
Изменено: heso - 06.06.2017 12:31:27
 
copper-top, heso, спасибо.
Страницы: 1
Наверх