Showing & Hiding Rows based on values

[Sully1440]

Hi,
I created a toggle button to hide rows based on a value. I found some code for this and it works great. However, I can't make it show rows looping through the hidden rows. Basically, I want to do the opposite as the first part of the code.

Here is the code:


Private Sub ToggleButton2_Click()
Dim rg As Range, c As Range
Dim firstAddress As String
Set rg = Range("B4", Cells(Cells.Rows.Count, "B").End(xlUp))
'Application.ScreenUpdating = False

If ToggleButton2.Value = True Then
With rg
Set c = .Find(what:="Complete", lookat:=xlWhole, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Hidden = True
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
End If
Application.ScreenUpdating = True
End With
Range("M1").Select
Else
Cells.Select
Selection.EntireRow.Hidden = False
Range("M1").Select
End If
End Sub

[Sully1440]

In other words, I'm looking for a way to show rows that were previously hidden from the first if statement (based on "Completed" in a certain column). I have other hidden rows that have different values that I do not want shown, so it's only based on the value "Completed" in column B.


Private Sub ToggleButton2_Click()
Dim rg As Range, c As Range
Dim firstAddress As String
Set rg = Range("B4", Cells(Cells.Rows.Count, "B").End(xlUp))
'Application.ScreenUpdating = False

If ToggleButton2.Value = True Then
With rg
Set c = .Find(what:="Complete", lookat:=xlWhole, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Hidden = True
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
End If
Application.ScreenUpdating = True
End With
Range("M1").Select
Else

'************************************************************************** ************************************************
' THIS SECTION IS WHERE I'D LIKE SOME HELP.
' I'M TRYING TO SHOW ROWS PREVIOUSLY HIDDEN FROM THE CODE ABOVE IN THE IF STATEMENT BUT ONLY FOR "COMPLETED" IN COLUMN B

Cells.Select
Selection.EntireRow.Hidden = False
Range("M1").Select
'************************************************************************** *************************************************
End If
End Sub

[Paul_Hossler]

If I understood, this fragment should work. Try the attachment with has hidden rows with "Completed" and some hidden rows with something different



Option Explicit


Sub UnhideCompleted()
Dim r As Range, c As Range

For Each c In Range("B4:B30").Cells
If c.Value = "Completed" And c.EntireRow.Hidden Then
c.EntireRow.Hidden = False
End If
Next
End Sub

[Sully1440]

Works perfectly. Thank you Paul :)