VBA code needed

Mar 4th, 2002, 09:46 AM

Hi,
i made some excel sheet that i need to save often (after changes) under another name, and that name always depends on cell A1 and cell B3. So i've thought to make some vba button assigned as let us say SAVE, which will save document like -.xls when clicked. I know how to draw button (heh, like using tools is hard

) but what code should i enter for that button so that it saves my document under name as described?

ty very much

Mudface · Mar 4th, 2002, 01:13 PM

If your cells A1 and B3 are on the first worksheet and the command button has the default name, the following will save it as a combination of those cells, with a space in the middle, into the current directory. Hope this is what you meant

: -

Private Sub CommandButton1_Click()

On Error GoTo ErrTrap

ThisWorkbook.SaveAs Worksheets(1).Range("A1") & " " & Worksheets(1).Range("B3")

Exit Sub

ErrTrap:
MsgBox "Unable to save under that filename"

End Sub

[ This Message was edited by: Mudface on 2002-03-04 12:14 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 4th, 2002, 09:46 AM	#1
Guest Posts: n/a	Hi, i made some excel sheet that i need to save often (after changes) under another name, and that name always depends on cell A1 and cell B3. So i've thought to make some vba button assigned as let us say SAVE, which will save document like -.xls when clicked. I know how to draw button (heh, like using tools is hard ) but what code should i enter for that button so that it saves my document under name as described? ty very much

Mar 4th, 2002, 01:13 PM	#2
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	If your cells A1 and B3 are on the first worksheet and the command button has the default name, the following will save it as a combination of those cells, with a space in the middle, into the current directory. Hope this is what you meant : - Private Sub CommandButton1_Click() On Error GoTo ErrTrap ThisWorkbook.SaveAs Worksheets(1).Range("A1") & " " & Worksheets(1).Range("B3") Exit Sub ErrTrap: MsgBox "Unable to save under that filename" End Sub [ This Message was edited by: Mudface on 2002-03-04 12:14 ]