Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
Hey all. I have just started to tinker with VB and have
next to no idea on how to code correctly. I want to open a worksheet and sorta code code like this: Private Sub CommandButton1_Click() Open_Worksheet.Glider_1 End Sub Stop laughing! Can some one point me in the right direction so it will open Sheet1 (Glider 1)? Thanx in advance Macr |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
:-)
Private Sub CommandButton1_Click() Worksheets("Glider_1").Activate End Sub best, RADO "Macr" wrote in message ... Hey all. I have just started to tinker with VB and have next to no idea on how to code correctly. I want to open a worksheet and sorta code code like this: Private Sub CommandButton1_Click() Open_Worksheet.Glider_1 End Sub Stop laughing! Can some one point me in the right direction so it will open Sheet1 (Glider 1)? Thanx in advance Macr |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
Hi Macr, :-)
I do not laugh! Everybody didn't know when they were a novice. May I ask do you want to SELECT a Worksheet? or want to Open a WorkBook? Assume the Worksheet name is Worksheet.Glider, the code would be like this. '----------------------------------------------------------- Private Sub CommandButton1_Click() 'Select a Worksheet Worksheets("Worksheet.Glider").Select End Sub '----------------------------------------------------------- Assume the Workbook name is Worksheet.Glider.xls. Use correct full path instead of "C:\Worksheet.Glider.xls" '----------------------------------------------------------- Private Sub CommandButton1_Click() 'Open a Workbook Workbooks.Open ("C:\Worksheet.Glider.xls") End Sub '----------------------------------------------------------- -- Kind Regards Colo /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ Colo of 'The Road of The Cell Masters' :) URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ "Macr" wrote in message ... Hey all. I have just started to tinker with VB and have next to no idea on how to code correctly. I want to open a worksheet and sorta code code like this: Private Sub CommandButton1_Click() Open_Worksheet.Glider_1 End Sub Stop laughing! Can some one point me in the right direction so it will open Sheet1 (Glider 1)? Thanx in advance Macr |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
Subscript out of range (Error 9)
Have I done something wrong RADO? -----Original Message----- :-) Private Sub CommandButton1_Click() Worksheets("Glider_1").Activate End Sub best, RADO |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
Fixed it RADO. Thanx for your help. I made an error
concerning spaces and underscores. I assumed that VB would not understand a space and added an underscore. It should look like this Private Sub CommandButton1_Click() Worksheets("Glider 1").Activate End Sub -----Original Message----- :-) Private Sub CommandButton1_Click() Worksheets("Glider_1").Activate End Sub best, RADO "Macr" wrote in message ... Hey all. I have just started to tinker with VB and have next to no idea on how to code correctly. I want to open a worksheet and sorta code code like this: Private Sub CommandButton1_Click() Open_Worksheet.Glider_1 End Sub Stop laughing! Can some one point me in the right direction so it will open Sheet1 (Glider 1)? Thanx in advance Macr . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB numpty
Rado answered my question. I want to make an index page,
so I can access 8 other pages and that was one. Now I need to find out how to print the work book, save the workbook and exit the workbook and I will be cruising. Thanx for your interest and attempt to help. It is appreciated. Does anyone know of a page that would help me with the above code, so I don't drive you guys insane? -----Original Message----- Hi Macr, :-) I do not laugh! Everybody didn't know when they were a novice. May I ask do you want to SELECT a Worksheet? or want to Open a WorkBook? Assume the Worksheet name is Worksheet.Glider, the code would be like this. '-------------------------------------------------------- --- Private Sub CommandButton1_Click() 'Select a Worksheet Worksheets("Worksheet.Glider").Select End Sub '-------------------------------------------------------- --- Assume the Workbook name is Worksheet.Glider.xls. Use correct full path instead of "C:\Worksheet.Glider.xls" '-------------------------------------------------------- --- Private Sub CommandButton1_Click() 'Open a Workbook Workbooks.Open ("C:\Worksheet.Glider.xls") End Sub '-------------------------------------------------------- --- -- Kind Regards Colo /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/_/_/ Colo of 'The Road of The Cell Masters' :) URL:http://www.interq.or.jp/sun/puremis/colo/CellMastersL ink.htm /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/_/_/ "Macr" wrote in message ... Hey all. I have just started to tinker with VB and have next to no idea on how to code correctly. I want to open a worksheet and sorta code code like this: Private Sub CommandButton1_Click() Open_Worksheet.Glider_1 End Sub Stop laughing! Can some one point me in the right direction so it will open Sheet1 (Glider 1)? Thanx in advance Macr . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Numpty MS Query Install Question | New Users to Excel |