VBA command for "save as..."

[merlin_the_magician]

I have a template workbook that, when filled out, i want to save under a specific name.
Therefore, a value that should be part of the filename, can be entered in cell C1.

Question is... what VBA command to use, in order tp create a "save as" command, which includes the value in cell C1?

filename should look like this: "[C1 value]specific filename.xls"

 

[merlin_the_magician]

Command buttons... that is quite a bright idea allright...

one minor thing.... the "save" and "save as..." from the menu bar still can be opererated, which means one can STILL alter the filename (yes.... i'm quite demanding, i know....)

 

[Al Chara]

Command buttons... that is quite a bright idea allright...

one minor thing.... the "save" and "save as..." from the menu bar still can be opererated, which means one can STILL alter the filename (yes.... i'm quite demanding, i know....)

Put the following code in the ThisWorkbook module. It should do what you want.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ShName As String, FileName As String

ShName = "voorblad"
FileName = " kilometer declaratie"

ActiveWorkbook.SaveAs FileName:=Worksheets(ShName).[c1].Value & FileName & ".xls"

If SaveAsUI = True Then Cancel = True

End Sub

 

[merlin_the_magician]

Lovely ...!
One minor more thing... and i will stop bugging you for now.

As far as i have discovered, SaveUI does not exsist. Can i restrict that too?

 

[Al Chara]

Lovely ...!
One minor more thing... and i will stop bugging you for now.

As far as i have discovered, SaveUI does not exsist. Can i restrict that too?

I don't know what you mean by SaveUI does not exist. But whenever a SAVE or SAVEAS is performed then it would run that bit of code.