Unhide Row Script

[r0bism123]

Hi gang,

I need some help. I want to unhide the below range without having the "Yes" criteria. So, when I press my Toggle Button, the action unhides all rows without criteria for all of the sheets in the workbook. I have been playing with the code and I can't figure it out. Your help is appreciated!

Sub Unhide_All_Rows()
 Dim c As Range
 Dim ws As Worksheet
 Dim cR As Range

Set cR = Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
For Each ws In ThisWorkbook.Worksheets
    With ws
        Set cR = .Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")
        For Each c In cR
            If c.Value = "Yes" Then c.EntireRow.Hidden = False
        Next c
    End With
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

 

[My Aswer Is This]

In post #5 you said:

I am unfamiliar with the toggelButton_Click Event.

And two of us have said Why do you want to use a Toggle Button?

A Toggle Button is like a light switch.

The light is on or the light is off.

So in your case it would be like this:
If the row is hidden then unhide it

If the row is unhid then hide it.

But you have a addition need if the cell says yes do something if not do not do something.​

​

 

[r0bism123]

In post #5 you said:

I am unfamiliar with the toggelButton_Click Event.

And two of us have said Why do you want to use a Toggle Button?

A Toggle Button is like a light switch.

The light is on or the light is off.

So in your case it would be like this:
If the row is hidden then unhide it

If the row is unhid then hide it.

But you have a addition need if the cell says yes do something if not do not do something.
​

​

​

Yes, that is how it is used. I misunderstood what he was asking. Here is the toggle code I as using:

Private Sub ToggleButton9_Click()     If ToggleButton9.Value Then
        Call Module9.Hide_Rows_Containing_Value_All_Sheets
        ToggleButton9.Caption = "Unhide Rows"
    Else
        ToggleButton9.Caption = "Hide Rows"
        Call Module9.Unhide_All_Rows
    End If
End Sub

Module 9 code is as follows:

Sub Hide_Rows_Containing_Value_All_Sheets()  
 Dim c As Range
 Dim ws As Worksheet
 Dim cR As Range

Set cR = Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
For Each ws In ThisWorkbook.Worksheets
    With ws
        Set cR = .Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")
        For Each c In cR
            If c.Value = "Yes" Then c.EntireRow.Hidden = True
        Next c
    End With
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Sub Unhide_All_Rows()
 Dim c As Range
 Dim ws As Worksheet
 Dim cR As Range

Set cR = Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
For Each ws In ThisWorkbook.Worksheets
    With ws
        Set cR = .Range("DF8:DF12,DF19:DF28,DF35:DF209,DF244:DF252,DF259,DF261")
        For Each c In cR
            If c.Value = "Yes" Then c.EntireRow.Hidden = False
        Next c
    End With
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

 

[r0bism123]

I figured it out. I just added another if statement to meet the other criteria of "No" and it works as I wanted.

 

[DanteAmor]