Home |
Search |
Today's Posts |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I decided to take a slightly different approach and have altered the way I
was attempting to accomplish this. I decided to use a different cell, one that frequently uses values. The original program I explained, cell ranges to hide and all, was a simplified version to make things easier. Using your basic plan I have set up a working version, but still need to make it so that if the value does not equal .76, .98, or 1.4, it will return the spreadsheet to the final result of hiding rows 156:217. Further, if there is an easy way to combine .98 and 1.4 (as the end result is the same), how can that be done. Also, with this code, if the value of the cell is .76 and I then print, excel will also print a blank sheet in place of the rows that are hidden. Here is the full code. Private Sub Worksheet_Change(ByVal Target As Range) Set t = Target Set r = Range("B20") If Intersect(t, r) Is Nothing Then Exit Sub Else: v = r.Value If v = 0.98 Then Rows("156:186").EntireRow.Hidden = False Rows("187:217").EntireRow.Hidden = True ActiveSheet.PageSetup.PrintArea = "$A$1:$I$186" End If If v = 1.4 Then Rows("156:186").EntireRow.Hidden = False Rows("187:217").EntireRow.Hidden = True ActiveSheet.PageSetup.PrintArea = "$A$1:$I$186" End If If v = 0.76 Then Rows("187:217").EntireRow.Hidden = False ActiveSheet.PageSetup.PrintArea = "$A$1:$I$217" Rows("156:186").EntireRow.Hidden = True End If If v = "" Then Rows("156:217").EntireRow.Hidden = True ActiveSheet.PageSetup.PrintArea = "$A$1:$I$155" End If End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
auto-hide rows, cell format (# and @), update cell refs, shade cel | Excel Discussion (Misc queries) | |||
hide rows where cell condition is not met | Excel Worksheet Functions | |||
Hide Rows if cell value is | New Users to Excel | |||
hide rows when the cell is #VALUE! | Excel Worksheet Functions | |||
hide rows if cell=0 | Excel Programming |