hide/unhide sheet code

[chobanne]

Pls guys, can someone help me

I need simple code for sheet1 depend on values in cell A1. If A1 is true then unhide sheet2, if A1 is false then hide sheet 2.

thank you

 

[RSXchin]

Sub Hide_It()
    If Sheets(1).Range("a1") = "Change this string" Then
        Sheets(2).Visible = False
    Else
        Sheets(2).Visible = True
    End If
End Sub

Change that string to what ever value you want.

This one is actually shorter

Sub Hide_It()
    Sheets(2).Visible = (Sheets(1).Range("a1") <> "Change this string")
End Sub

 

[chobanne]

Sub Hide_It()
    If Sheets(1).Range("a1") = "Change this string" Then
        Sheets(2).Visible = False
    Else
        Sheets(2).Visible = True
    End If
End Sub

Change that string to what ever value you want.

This one is actually shorter

Sub Hide_It()
    Sheets(2).Visible = (Sheets(1).Range("a1") <> "Change this string")
End Sub

Both of this codes dont work for me. maybe because my sheet are named with enter and exit. Value instead change that string must be with "" or not?

 

[RSXchin]

that code means that if a1 on your first sheet (name doesn't matter, only position) says "Change this string", that it will show or hide the 2nd sheet (again, name doesn't matter)

 

[chobanne]

that code means that if a1 on your first sheet (name doesn't matter, only position) says "Change this string", that it will show or hide the 2nd sheet (again, name doesn't matter)

i know that . but those codes dont work for me. sheet 2 (in my case EXIT) cant hide/unhide with this

 

[RSXchin]

you know that you have to run that code, right? it doesn't just work. well, unless you put it in a SheetChange event in your sheet1 module.

 

[chobanne]

you know that you have to run that code, right? it doesn't just work. well, unless you put it in a SheetChange event in your sheet1 module.

ok explain better pls

 

[RSXchin]

in the vba editor, open up the sheet1 module, and put this in it

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents= False
    Sheets(2).Visible = (Sheets(1).Range("a1") <> "Change this string")
     Application.EnableEvents= True
End Sub

Before you tell me it doesn't work, tell me what you have on sheet 1 A1. What do you want to hide the sheets with?

 

[chobanne]

in the vba editor, open up the sheet1 module, and put this in it

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents= False
    Sheets(2).Visible = (Sheets(1).Range("a1") <> "Change this string")
     Application.EnableEvents= True
End Sub

Before you tell me it doesn't work, tell me what you have on sheet 1 A1. What do you want to hide the sheets with?

Sheet1 = ENTER
sheet 2 = EXIT
A1 value is true/false

 

[RSXchin]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets(2).Visible = (Sheets(1).Range("a1").Value = True)
    Application.EnableEvents = True
End Sub

It doesn't matter what your sheets are called. If you think they do, then use this instead

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sheets("EXIT").Visible = (Sheets("ENTER").Range("a1").Value = True)
    Application.EnableEvents = True
End Sub

EDIT: I just realized you wanted the exact opposite of what I posted, so I changed those codes.