Hiding selected Row

  • Thread starter Thread starter Ruan
  • Start date Start date
R

Ruan

Hello,

I would like to hide an entire row, only if the User selects a "X" in Column
B.

Below is the code I used to hide rows that had blank values in Column B. How
would I modify this code to look for a "X" value?

Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"

' Hide Selected Rows on the Worksheet
With Range("B11:B119")
.EntireRow.Hidden = False
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True

End Sub


Thanks
Ruan
 
Try this:

Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"

' Hide Selected Rows on the Worksheet
For each c in ("B11:B119")
If c.value = "X" then
..EntireRow.Hidden = True
Else
..EntireRow.Hidden = False
End if
Next

Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True

End Sub
 
If the cells will either be blank or contain an X then

Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"

' Hide Selected Rows on the Worksheet
With Range("B11:B119")
.EntireRow.Hidden = False
On Error Resume Next
.SpecialCells(xlConstants,xlTextValues).EntireRow.Hidden = True
On Error goto 0
End With
Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True

End Sub
 
Thanks Tom. It works great.


Tom Ogilvy said:
If the cells will either be blank or contain an X then

Sub HideRows1()
Worksheets("Jul").Unprotect Password:="abcd"

' Hide Selected Rows on the Worksheet
With Range("B11:B119")
.EntireRow.Hidden = False
On Error Resume Next
.SpecialCells(xlConstants,xlTextValues).EntireRow.Hidden = True
On Error goto 0
End With
Range("C11").Select
Worksheets("Aug").Protect Password:="abcd", Scenarios:=True

End Sub
Click to expand...
 
Back
Top