Conditional Hide Rows Macro

[cchubba]

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

[colofnature]

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

[Don Guillett]

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
[email protected]
"cchubba" <[email protected]> wrote in message
news:[email protected]...
>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
>

[cchubba]

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