Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
command button to save
I am trying to open a save from button 3 for just the worksheet not the whole
workbook. I am really new at this I have two tries..help Private Sub CommandButton3_Click() fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microso ft Excel Workbook (*.xls), *.xls") ActiveWorkbook.SaveAs Filename:=fileSaveName End Sub or Dim vResponse As Variant vResponse = Application.GetSaveAsFilename( _ FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ Title:="Please select your file") ActiveWorkbook.SaveAs Filename:=fileSaveName If vResponse < False Then MsgBox Prompt:="You selected '" & vResponse & "'.", _ Buttons:=vbOKOnly Or vbInformation Else MsgBox Prompt:="You cancelled.", _ Buttons:=vbOKOnly Or vbInformation End If End Sub or |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command Button Save As Application.ExecuteExcel4Macro ("SAVE.AS?() | Excel Discussion (Misc queries) | |||
disable save and saveas from menubar and save via command button | Excel Programming | |||
Disable save, save as, but allow save via command button | Excel Programming | |||
Save as new file command button | Excel Programming | |||
Save Command Button Help! | Excel Programming |