| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Excel 2003, hiding and showing sheets
Hi all Gurus, I have a button and when clicked I need to work out if cell c
35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
Thanks for that jacob, if the sheets are named do i just do the following:
Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
as below
Sheets("payment cert").Visible = True -- Jacob "Neil Holden" wrote: Thanks for that jacob, if the sheets are named do i just do the following: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
Would it be possible to then ask the user if they would like to print the
visable sheets? If yes then print if no then exit sub? Thanks for your help Jacob. "Jacob Skaria" wrote: as below Sheets("payment cert").Visible = True -- Jacob "Neil Holden" wrote: Thanks for that jacob, if the sheets are named do i just do the following: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
Hi Neil
Try out the below Dim ws as Worksheet If MsgBox("Print visible sheets", vbYesNo) = vbYes Then For Each ws In Sheets If ws.Visible Then ws.PrintOut Copies:=1, Collate:=True Next Else Exit Sub End If -- Jacob "Neil Holden" wrote: Would it be possible to then ask the user if they would like to print the visable sheets? If yes then print if no then exit sub? Thanks for your help Jacob. "Jacob Skaria" wrote: as below Sheets("payment cert").Visible = True -- Jacob "Neil Holden" wrote: Thanks for that jacob, if the sheets are named do i just do the following: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
Brilliant Jacob, Can i have it so that it hides set up sheet before print?
"Jacob Skaria" wrote: Hi Neil Try out the below Dim ws as Worksheet If MsgBox("Print visible sheets", vbYesNo) = vbYes Then For Each ws In Sheets If ws.Visible Then ws.PrintOut Copies:=1, Collate:=True Next Else Exit Sub End If -- Jacob "Neil Holden" wrote: Would it be possible to then ask the user if they would like to print the visable sheets? If yes then print if no then exit sub? Thanks for your help Jacob. "Jacob Skaria" wrote: as below Sheets("payment cert").Visible = True -- Jacob "Neil Holden" wrote: Thanks for that jacob, if the sheets are named do i just do the following: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
|
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Excel 2003, hiding and showing sheets
I've managed it myself. May i just say Jacob you are always a great help!!!
Keep up the good work. "Neil Holden" wrote: Brilliant Jacob, Can i have it so that it hides set up sheet before print? "Jacob Skaria" wrote: Hi Neil Try out the below Dim ws as Worksheet If MsgBox("Print visible sheets", vbYesNo) = vbYes Then For Each ws In Sheets If ws.Visible Then ws.PrintOut Copies:=1, Collate:=True Next Else Exit Sub End If -- Jacob "Neil Holden" wrote: Would it be possible to then ask the user if they would like to print the visable sheets? If yes then print if no then exit sub? Thanks for your help Jacob. "Jacob Skaria" wrote: as below Sheets("payment cert").Visible = True -- Jacob "Neil Holden" wrote: Thanks for that jacob, if the sheets are named do i just do the following: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then payment cert.Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then small works order.Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If "Jacob Skaria" wrote: Dim varData as Variant varData = ActiveSheet.Range("C35") If varData < 10000 Then Sheets(2).Visible = True Sheets(4).Visible = True Sheets(8).Visible = True ElseIf varData 10000 Then Sheets(3).Visible = True Sheets(5).Visible = True Sheets(6).Visible = True Sheets(7).Visible = True End If -- Jacob "Neil Holden" wrote: Hi all Gurus, I have a button and when clicked I need to work out if cell c 35 is less than 10000 and if so show sheets: - Sheets 2,4,8 and if cell C35 is greater than 10000 show: - Sheets 3,5,6,7 Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| macro showing and hiding detail | Excel Discussion (Misc queries) | |||
| Hiding/Showing Rows on Cell H2 Change | Excel Discussion (Misc queries) | |||
| Hiding and Showing Sheets using Macro | Excel Discussion (Misc queries) | |||
| Showing and hiding series in charts | Excel Discussion (Misc queries) | |||
| hiding and showing graphs | Excel Worksheet Functions | |||
Linear Mode
