Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide Rows
I am trying to get this code to work where if a user enters an X in a
range of cells a corresponding group of rows is hidden further down in the worksheet and I don't know what I am doing wrong. Private Sub Worksheet_Change(ByVal Target As Range) If Range("B5") = "X" Then Range("B9:B15").EntireRow.Hidden = True Else Range("B9:B15").EntireRow.Hidden = False End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide Rows
Try this
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then If Target = "X" Then Range("B9:B15").EntireRow.Hidden = True Else Range("B9:B15").EntireRow.Hidden = False End If End If End Sub On 18 Sep, 12:40, newguy wrote: I am trying to get this code to work where if a user enters an X in a range of cells a corresponding group of rows is hidden further down in the worksheet and I don't know what I am doing wrong. Private Sub Worksheet_Change(ByVal Target As Range) *If Range("B5") = "X" Then * * Range("B9:B15").EntireRow.Hidden = True * *Else * * Range("B9:B15").EntireRow.Hidden = False *End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide Rows
The code works fine so there are only threee reasons it is not working for your
1) You are typing a small x instead of a Capital x 2) The Macro is on the wrong worksheet. the code has to be on the VBA sheet that coorresponds to the worksheet you are working with. The macro can't be in a module sheet or THISWORKBOOK. 3) Macros or event are disabled Try running the code to enable events Sub test() Application.EnableEvents = True End Sub Also make sure none event macros are working. You workbook may bed in the wrong security mode or if you have Medium security level then you may of forgotten to enable macros when you opened the workbook. "newguy" wrote: I am trying to get this code to work where if a user enters an X in a range of cells a corresponding group of rows is hidden further down in the worksheet and I don't know what I am doing wrong. Private Sub Worksheet_Change(ByVal Target As Range) If Range("B5") = "X" Then Range("B9:B15").EntireRow.Hidden = True Else Range("B9:B15").EntireRow.Hidden = False End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro code to hide rows and not calculate hidden rows | Excel Discussion (Misc queries) | |||
Enabling option „Format rows“ to hide/unhide rows using VBA-code? | Excel Discussion (Misc queries) | |||
Code for Excel 2007 to hide rows based on sum of several rows not ina range | Excel Programming | |||
Specify which rows to NOT hide, and have excel hide the rest | Excel Programming | |||
Hide Rows - copy and paste only rows that show | Excel Worksheet Functions |