Conditional Hide Rows Macro
 

I want a macro to do a conditional hide automatically based on another
value in another cell.

For example:

If Cell A1 = "Yes" then hide rows 20:23
If Cell A1 = "No" then do not hide rows 20:23


The closest thing i can find is the below example which hides the row
based on the value (in the same row) in column T




Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("T" & Target.Row).Value
Case Is = "Y"
Target.EntireRow.Hidden = True
Case Is = "N"
Target.EntireRow.Hidden = False
End Select
End Sub

Conditional Hide Rows Macro
 

Try this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case ucase(Range("a1").Value)
case "YES"
[20:23].entirerow.hidden = true
case else
[20:23].entirerow.hidden = false
End Select
End Sub


Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=548938

Conditional Hide Rows Macro
 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$1" Then Exit Sub

If UCase(Target) = "Y" Then
Rows("20:23").Hidden = True
Else
Rows("20:23").Hidden = False
End If
End Sub

another idea just assigned to a button
sub hideunhidecolg()
Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
end sub
--
Don Guillett
SalesAid Software

"cchubba" wrote in message
ups.com...
I want a macro to do a conditional hide automatically based on another
value in another cell.

For example:

If Cell A1 = "Yes" then hide rows 20:23
If Cell A1 = "No" then do not hide rows 20:23


The closest thing i can find is the below example which hides the row
based on the value (in the same row) in column T




Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("T" & Target.Row).Value
Case Is = "Y"
Target.EntireRow.Hidden = True
Case Is = "N"
Target.EntireRow.Hidden = False
End Select
End Sub

Conditional Hide Rows Macro
 

colofnature wrote:
Try this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case ucase(Range("a1").Value)
case "YES"
[20:23].entirerow.hidden = true
case else
[20:23].entirerow.hidden = false
End Select
End Sub


Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=548938

That works great! Thanks