Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hiding selected Row
Hello,
I would like to hide an entire row, only if the User selects a "X" in Column B. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hiding selected Row
Try this:
Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet For each c in ("B11:B119") If c.value = "X" then ..EntireRow.Hidden = True Else ..EntireRow.Hidden = False End if Next Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hiding selected Row
If the cells will either be blank or contain an X then
Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet With Range("B11:B119") .EntireRow.Hidden = False On Error Resume Next .SpecialCells(xlConstants,xlTextValues).EntireRow. Hidden = True On Error goto 0 End With Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub -- Regards, Tom Ogilvy "Ruan" wrote in message ... Hello, I would like to hide an entire row, only if the User selects a "X" in Column B. Below is the code I used to hide rows that had blank values in Column B. How would I modify this code to look for a "X" value? Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet With Range("B11:B119") .EntireRow.Hidden = False .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End With Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub Thanks Ruan |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hiding selected Row
Thanks Chan. I get an error when I run the code though. I will keep playing
with it. Ruan "Chan" wrote in message ... Try this: Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet For each c in ("B11:B119") If c.value = "X" then .EntireRow.Hidden = True Else .EntireRow.Hidden = False End if Next Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hiding selected Row
Thanks Tom. It works great.
"Tom Ogilvy" wrote in message ... If the cells will either be blank or contain an X then Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet With Range("B11:B119") .EntireRow.Hidden = False On Error Resume Next .SpecialCells(xlConstants,xlTextValues).EntireRow. Hidden = True On Error goto 0 End With Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub -- Regards, Tom Ogilvy "Ruan" wrote in message ... Hello, I would like to hide an entire row, only if the User selects a "X" in Column B. Below is the code I used to hide rows that had blank values in Column B. How would I modify this code to look for a "X" value? Sub HideRows1() Worksheets("Jul").Unprotect Password:="abcd" ' Hide Selected Rows on the Worksheet With Range("B11:B119") .EntireRow.Hidden = False .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End With Range("C11").Select Worksheets("Aug").Protect Password:="abcd", Scenarios:=True End Sub Thanks Ruan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Color alternate rows when after hiding selected rows | Excel Worksheet Functions | |||
Hiding worksheet unless selected | Excel Discussion (Misc queries) | |||
Hiding a button when hiding rows | Excel Discussion (Misc queries) | |||
how do i make it so that when a sheat is selected either via link or tab, that xlLastCell is selected. the last on the sheet. | Excel Worksheet Functions | |||
hiding gridlines in selected cell areas | Excel Discussion (Misc queries) |