Vba to hide rows based on a cell within another worksheet

[Satheesh9012]

Hi

I am trying to hide and unhide rows in a sheet(b) based on the values entered in sheet(a), the values range from 1 to 6, so if 1 is entered in sheet(a) sheet(b) should hide rows from 32:125, if 2 is entered rows 51 51:125 should be hidden, if no value then rows 32:125 should be hidden.

Please help

 

[My Aswer Is This]

You said:
so if 1 is entered in sheet(a)

Entered where in sheet (a)

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address(0, 0) = "A1" Then
      With Sheets("B")
         .Rows("35:125").Hidden = False
         Select Case Target
            Case "", 1
               .Rows("35:125").Hidden = True
            Case 2
               .Rows("51:125").hidded = True
         End Select
      End With
   End If
End Sub

You need to put this in the code module for sheet a & it will hide the rows in sheet b when you manually change the value in A1 of sheet a

 

[My Aswer Is This]

Well I will move on to help someone else since you now have a answer

 

[Satheesh9012]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address(0, 0) = "A1" Then
      With Sheets("B")
         .Rows("35:125").Hidden = False
         Select Case Target
            Case "", 1
               .Rows("35:125").Hidden = True
            Case 2
               .Rows("51:125").hidded = True
         End Select
      End With
   End If
End Sub

You need to put this in the code module for sheet a & it will hide the rows in sheet b when you manually change the value in A1 of sheet a

Thank you for this,

so i need to enter value(1,2,3,4,5,6), in the cell c13 in sheet(a) and rows should be hidden in sheet(b), so instead of a1 i can replace that with c13 right

 

[Fluff]

so instead of a1 i can replace that with c13 right

That's right.

 

[Satheesh9012]

That's right.

that worked but when i select 2 it throws error it does not hide the cells which are provided, if you could help me out

 

[Fluff]

Oops I cant spell. change hidded to Hidden.

 

[Satheesh9012]

Thanks it worked ?

 

[Fluff]

You're welcome & thanks for the feedback.