Hiding sheets based on a value in a cell

[JessicaKinnear]

Hey, I'm looking for some help on a VBA code.

I basically have a sheet named 'INPUTS-BULDING DETAILS' then I have 12 sheets named 'Tenant - 1', 'Tenant - 2' etc. all the way up to 12 which I want to hide if a certain cell doesn't contain a value.

On my inputs tab I want to be able to code so that if cell F36 has no value then hide sheet 'Tenant -1', if cell F37 has no value then hide sheet 'Tenant - 2', then this to repeat all the way up to cell F47 and sheet 'tenant - 12'

Does anyone know the correct code for this (I am a complete beginner when it comes to coding so think code for dummies )

Thank you in advance!

 

[Fluff]

Do you have the sheet names on the INPUTS-BULDING DETAILS, if so what column are they in?

 

[JessicaKinnear]

hey, no i don't have the sheet names on the inputs tab

Do you have the sheet names on the INPUTS-BULDING DETAILS, if so what column are they in?

 

[Fluff]

Ok, how about

Sub Jessica()
   Dim i As Long
   
   For i = 1 To 12
      Sheets("Tenant - " & i).Visible = Sheets("INPUTS-BULDING DETAILS").Range("F" & i + 35) <> ""
   Next i
End Sub

 

[JessicaKinnear]

Ok, how about

Sub Jessica()
   Dim i As Long
  
   For i = 1 To 12
      Sheets("Tenant - " & i).Visible = Sheets("INPUTS-BULDING DETAILS").Range("F" & i + 35) <> ""
   Next i
End Sub

This doesn't seem to be working, all the sheets are still showing when there is no value

 

[Fluff]

Did you get any errors?

 

[JessicaKinnear]

no errors showing, am i putting in the correct place on the inputs building details tab i right click and add it in 'view code'?

 

[JessicaKinnear]

Did you get any errors?

no errors showing, am i putting in the correct place on the inputs building details tab i right click and add it in 'view code'?

 

[Marc L]

Hi, according to your explanation a VBA demonstration to paste to the input worksheet module :​

Sub Demo1()
    Dim V, R%
        V = [IF({1},TRIM(F36:F47)>"")]
    For R = 1 To 12:  Sheets("Tenant - " & R).Visible = V(R, 1):  Next
End Sub

 

[Fluff]

Shouldn't matter where the code is.
What is in F36:F47? is it had values or a formula?