Hiding/unhiding different rows

[chobanne]

Hi all,

I need a help with this

I need a macro who will according to the values in single cell hide some rows and unhide others in other sheet.

Example:

if in sheet ENTER cell value A1=TRUE hide rows 1,2,3,4 and unhide rows 5,6,7,8 in sheet EXIT, if in sheet ENTER cell value A1=FALSE hide rows 5,6,7,8 and unhide rows 1,2,3,4 in sheet EXIT. In any case 4 rows must always be hidden.

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case True: Sheets("EXIT").Rows("1:3").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

 

[Sektor]

VoG

 Select Case Target.Value
        Case True: ....
        Case True: ....
    End Select

Pardon?

 

[VoG]

VoG

 Select Case Target.Value
        Case True: ....
        Case True: ....
    End Select

Pardon?

Oops!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:3").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

Thanks

 

[chobanne]

Oops!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:3").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

Thanks

What sheet to select for view code ENTER or EXIT

 

[Sektor]

Select Case Target.Value
...
        Case False: Sheets("EXIT").Rows("[B][COLOR="Red"]1:3[/COLOR][/B]").Hidden = False...
    End Select

Pardon?

 

[VoG]

From OP

In any case 4 rows must always be hidden.

I misread that

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:4").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

 

[chobanne]

From OP

I misread that

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:4").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

I dont know whats the problem but it wont work m8, nothing happens, What sheet to select for view code ENTER or EXIT

 

[VoG]

Sorry

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:4").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

 

[chobanne]

Sorry

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    Select Case Target.Value
        Case True: Sheets("EXIT").Rows("1:4").Hidden = True: Sheets("EXIT").Rows("5:8").Hidden = False
        Case False: Sheets("EXIT").Rows("1:4").Hidden = False: Sheets("EXIT").Rows("5:8").Hidden = True
    End Select
End If
End Sub

Than you it work now, i have one more macro i need so i ll put thread now on first page so if u can help it will be very nice. Thank you again very much.