A "Save As" Macro

[ILeonFF]

Is it possible that when i save a workbook, a macro would look at a cell and save it as what is ever in that cell and partially keep the original name?

Current file name: Applications_Form
What i am looking for the macro to do is; look at K1 (123456) and add it to the original file name so when i execute the save command it would look like this;
New File Name: 123457_Applications_Form.

 

[dhubz]

Try this, you need to specify the path for your save folder make sure path ends with \, this is xls, if you need other filetype change it as needed

Sub filename_cellvalue()


Dim Path As String
Dim filename As String
Path = "C:\path\" 'enter filepath here
filename = Range("K1")
ActiveWorkbook.SaveAs filename:=Path & filename & "_Applications_Form" & ".xls", FileFormat:=xlNormal


End Sub

 

[ILeonFF]

Try this, you need to specify the path for your save folder make sure path ends with \, this is xls, if you need other filetype change it as needed

Sub filename_cellvalue()


Dim Path As String
Dim filename As String
Path = "C:\path\" 'enter filepath here
filename = Range("K1")
ActiveWorkbook.SaveAs filename:=Path & filename & "_Applications_Form" & ".xls", FileFormat:=xlNormal


End Sub

If multiple users are using this, is there a generic pathing for a desktop save.

for example would this work:

"C:\Users\Desktop"

 

[ParamRay]

If multiple users are using this, is there a generic pathing for a desktop save.

for example would this work:

"C:\Users\Desktop"

Sub SaveWorkbook()
  Dim Prefix As String
  Dim NewPath As String
  Prefix = ThisWorkbook.Sheets("Sheet1").Range("K1").Text
  NewPath = "C:\Users\" & Environ("UserName") & "\Desktop\" & Prefix & "_" & ThisWorkbook.Name
  ThisWorkbook.SaveAs NewPath
End Sub

 

[ILeonFF]

Sub SaveWorkbook()
  Dim Prefix As String
  Dim NewPath As String
  Prefix = ThisWorkbook.Sheets("Sheet1").Range("K1").Text
  NewPath = "C:\Users\" & Environ("UserName") & "\Desktop\" & Prefix & "_" & ThisWorkbook.Name
  ThisWorkbook.SaveAs NewPath
End Sub

Code runs, so no errors there however its just naming the file _Applications_Form. Its not adding anything that was in the K1 sheet.

Disregard the above^^^
It works perfect, thank you so much

 

[ParamRay]

Code runs, so no errors there however its just naming the file _Applications_Form. Its not adding anything that was in the K1 sheet.

It's cos there's nothing in cell K1 on Sheet1. You need to change the name of the sheet in the macro, so that it matches the name of the sheet in which K1 has the value!

 

[ILeonFF]

It's cos there's nothing in cell K1 on Sheet1. You need to change the name of the sheet in the macro, so that it matches the name of the sheet in which K1 has the value!

Yeah i changed everything i needed. I kept looking at it and was wondering what was wrong. It was supposed to be K7 not K1, just had a brain-fart and couldn't differentiate the two