Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
VB help required
I have a work book with 30 sheets (dates), first sheet is manu sheet, i
insert a calender object & a button. i just want that i click any date on calender then click button and the sheet of selected date should be open..... may be some vb use....please help -- Message posted via http://www.officekb.com |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
VB help required
Hi,
Cute idea, never thought of that. OK, here goes: 1. Choose View, Toolbars, Control Toolbox 2. On the control toolbox click the More Controls button - the last button 3. Scroll the list and find the Calendar10 control (the number will depend on the version of that happens to be installed on your computer), click the control and then click in the spreadsheet. 4. Right-click the calendar and choose View Code 5. Modify the subroutine to read Private Sub Calendar1_Click() Dim myDay As String myDay = Me.Calendar1.Day Sheets(myDay).Select End Sub Now return to the spreadsheet and turn off Design Mode on the Control Toolbox toolbar - the 1st tool Now to make this work the sheets must be named 1, 2, 3, ...31 just numbers. If you are using a different naming convention you will need to modify the code. -- If this helps, please click the Yes button. Cheers, Shane Devenshire "adeel via OfficeKB.com" wrote: I have a work book with 30 sheets (dates), first sheet is manu sheet, i insert a calender object & a button. i just want that i click any date on calender then click button and the sheet of selected date should be open..... may be some vb use....please help -- Message posted via http://www.officekb.com |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
VB help required
Thanks alot, it works....but in my work book there are month wise sheet eg.
(from 1st jun to 30th jun & from 1st july to 31st july) in first sheet i want to add this calender and then i want if the month in this calender is June and then i press 1 or 2 or 3.... it move to that sheet of june, similarly when i change the month to July then press 1 or 2 or 3....it move to that sheet of july..... Shane Devenshire wrote: Hi, Cute idea, never thought of that. OK, here goes: 1. Choose View, Toolbars, Control Toolbox 2. On the control toolbox click the More Controls button - the last button 3. Scroll the list and find the Calendar10 control (the number will depend on the version of that happens to be installed on your computer), click the control and then click in the spreadsheet. 4. Right-click the calendar and choose View Code 5. Modify the subroutine to read Private Sub Calendar1_Click() Dim myDay As String myDay = Me.Calendar1.Day Sheets(myDay).Select End Sub Now return to the spreadsheet and turn off Design Mode on the Control Toolbox toolbar - the 1st tool Now to make this work the sheets must be named 1, 2, 3, ...31 just numbers. If you are using a different naming convention you will need to modify the code. I have a work book with 30 sheets (dates), first sheet is manu sheet, i insert a calender object & a button. i just want that i click any date on calender then click button and the sheet of selected date should be open..... may be some vb use....please help -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...excel/200907/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help required. | Excel Discussion (Misc queries) | |||
help required | Excel Worksheet Functions | |||
Help Required | Excel Worksheet Functions | |||
Help required | New Users to Excel | |||
Help required | Excel Discussion (Misc queries) |