кнопка скрытия и восстановления строк по условию

[CooLEO]

скрывает всё, что нада и ненада =((

[Hugo121]

Надо было сразу сказать, что 0 - это результат работы формулы. К таким ячейкам Range.ColumnDifferences Method не подходит.
Думаю вполне можно в цикле перебрать диапазон и скрыть строки.
Сколько максимум строк будет?

P.S. Но на основе кода Станислава можно так извернуться (нужен пустой столбец):

Private Sub ToggleButton1_Click()
    Dim x As Range, r As Range, iRow As Long
    Application.ScreenUpdating = False
    Range("ep23:ep100").Value = Range("D23:D100").Value
    Set x = Range("ep23:ep100").Find("0", , xlValues, xlWhole)
    If ToggleButton1 Then
        ToggleButton1.Caption = "Отобразить"
        If Not x Is Nothing Then
            Set r = Range("ep23:ep100").ColumnDifferences(x)
            Range("ep23:ep100").EntireRow.Hidden = True
            r.EntireRow.Hidden = False
        End If
    Else
        ToggleButton1.Caption = "Скрыть"
        Range("ep23:ep100").EntireRow.Hidden = False
    End If
    Range("ep23:ep100").Clear
    Application.ScreenUpdating = True
End Sub

[Watcher_1]

Вот как раз подправил код staniiislav

[CooLEO]

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

Вот как раз подправил код staniiislav

спасибо огромное, работает!

[CooLEO]

Как и обещал, скинул "на пиво" Watcher_1 и staniiislav

[Watcher_1]

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

Как и обещал, скинул "на пиво" Watcher_1 и staniiislav

Получил спасибо!

[staniiislav]

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

Как и обещал, скинул "на пиво" Watcher_1 и staniiislav

получил, спасибо