Vba macro excel: Как скрыть строки, если ячейка равна FALSE

Question

У меня есть проект, который требует, чтобы Excel спрятал строки на отдельном листе (в пределах одной и той же книги) после того, как пользователь выбирает определенные параметры в активной таблице. Макрос связан с кнопкой, когда щелкнутые строки будут скрыты на отдельном листе, и весь процесс происходит в фоновом режиме. Если пользователь хочет проверить таблицу со скрытыми строками, им нужно будет перейти к этому отдельному листу, чтобы увидеть результат.

Изображение Объяснение: http://postimg.org/image/ek6981vg1/

Таблицах ("Вход- Выбор ручки") -> активный лист, где находится кнопка

Worksheets ("Вход- Pen") -> отдельный лист, где есть скрытые строки

я попытался несколько способов, но ни один из них не работали: Метод 1:

Sub selectPens() 
Dim c As Range 
Application.EnableEvents = False 
On Error Resume Next 
For Each c In Range("E6:E35") 
    If c.Value = "FALSE" Then 
     Worksheets("Input- Pen").c.EntireRow.Hidden = True 
    ElseIf c.Value = "TRUE" Then 
     Worksheets("Input- Pen").c.EntireRow.Hidden = False 
    End If 
Next c 
On Error GoTo 0 
Application.EnableEvents = True 
End Sub 

Метод 2:

Sub selectPens() 
Dim i As Long 
Set wselect = Sheet11 
With wselect 
For i = 6 To 35 
    If ActiveSheet.Cells(i, 5).Value = "FALSE" Then 

     .Range("i:i").EntireRow.Hidden = True 
     ' .Rows(i).EntireRow.Hidden = True 
    ElseIf ActiveSheet.Cells(i, 5).Value = "TRUE" Then 
     ' .Rows(i).EntireRow.Hidden = False 
     .Range("i:i").EntireRow.Hidden = False 
    End If 
Next i 
End With 

End Sub 

я бы весьма признателен за любую помощь.

Большое спасибо!

Answer 1

Sub selectPens() 

    Dim i As Long, wsselect 
    Set wselect = Sheet11 

    For i = 6 To 35 
     'EDIT 
     wselect.Rows(i).Hidden = (ActiveSheet.Cells(i, 5).Value = False)   
    Next i 

End Sub