VB numpty

  • Thread starter Thread starter Macr
  • Start date Start date
M

Macr

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
 
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/CellMastersLink.htm
mailto:[email protected]

/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
 
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
 
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?
 
If I understand you, you want to goto a selected sheet. If you
right click on the sheet tab>view code>copy/paste this>Save workbook>type in
the name of the sheet somewhere. Double click on that cell to goto the sheet
desired.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim mysheet As String
mysheet = Trim(ActiveCell.Value)
On Error GoTo no
Sheets(mysheet).Select
Exit Sub
no: MsgBox "No Sheet"
End Sub
===
To print workbook
activeworkbook.printout
To save
This workbook.save
=
Here is a sub I use to save all open workbooks and leave excel
Sub CLOSE_ALL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Workbooks
w.Save
Next
Application.Quit
End Sub
 
Back
Top