Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rows won't hide
Hello my code is
Private Sub Worksheet_Change(ByVal Target As Range) If (Range("F365") = "No") Then myArr = Array("12", "15", "17","33","45","89") EntireRow.Hidden = True End If End Sub and it does not work..... This is what I want to do If F365 = "No" then hide rows 12,15,17,33,45,89 the range is a1:X360 thanks for your help |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rows won't hide
Marilyn,
Maybe this Private Sub Worksheet_Change(ByVal Target As Range) If (Range("F365") = "No") Then Range("12:12,15:15,17:17,33:33,45:45,89:89").Entir eRow.Hidden = True End If End Sub Mike "Marilyn" wrote: Hello my code is Private Sub Worksheet_Change(ByVal Target As Range) If (Range("F365") = "No") Then myArr = Array("12", "15", "17","33","45","89") EntireRow.Hidden = True End If End Sub and it does not work..... This is what I want to do If F365 = "No" then hide rows 12,15,17,33,45,89 the range is a1:X360 thanks for your help |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rows won't hide
Thanks Mike
My Fault .. the formula works fine but let me clarify. 1. if cell "F365" is blank or says "Yes" I do not want to hide the rows. However 2. Cell F365 has the following formula =Sheet2!D1, which is a data validation list (3 lines) blank, Yes, No and when I select No , and cell F365 shows "NO" this formula does not work . THe above formula works if I just type the word NO in cell F365 Again thanks in advance "Marilyn" wrote: Hello my code is Private Sub Worksheet_Change(ByVal Target As Range) If (Range("F365") = "No") Then myArr = Array("12", "15", "17","33","45","89") EntireRow.Hidden = True End If End Sub and it does not work..... This is what I want to do If F365 = "No" then hide rows 12,15,17,33,45,89 the range is a1:X360 thanks for your help |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rows won't hide
Marilyn,
The way to do it is use shhet 2 sheet change code and when d1 chanhes there you don't need to bother looking ay F365 on sheet one because you know it's the same as d1 so try this Private Sub Worksheet_Change(ByVal Target As Range) 'This is now sheet 2 sheet change code If (Range("D1") = "No") Then Sheets("Sheet1").Range("12:12,15:15,17:17,33:33,45 :45,89:89").EntireRow.Hidden = True Else Sheets("Sheet1").Range("12:12,15:15,17:17,33:33,45 :45,89:89").EntireRow.Hidden = False End If End Sub Mike "Marilyn" wrote: Thanks Mike My Fault .. the formula works fine but let me clarify. 1. if cell "F365" is blank or says "Yes" I do not want to hide the rows. However 2. Cell F365 has the following formula =Sheet2!D1, which is a data validation list (3 lines) blank, Yes, No and when I select No , and cell F365 shows "NO" this formula does not work . THe above formula works if I just type the word NO in cell F365 Again thanks in advance "Marilyn" wrote: Hello my code is Private Sub Worksheet_Change(ByVal Target As Range) If (Range("F365") = "No") Then myArr = Array("12", "15", "17","33","45","89") EntireRow.Hidden = True End If End Sub and it does not work..... This is what I want to do If F365 = "No" then hide rows 12,15,17,33,45,89 the range is a1:X360 thanks for your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide Rows | Excel Discussion (Misc queries) | |||
cut rows without cutting hide rows | Excel Discussion (Misc queries) | |||
hide rows if | Excel Discussion (Misc queries) | |||
Hide the rows | Excel Worksheet Functions | |||
Hide Rows - copy and paste only rows that show | Excel Worksheet Functions |