Formula to text query / Save file as question

[Dazzybeeguy]

I have a spreadsheet that has a formula that links bits of information from the data and concatenates it to a cell.

I want the user to save the file with that reference.

I can tell them to copy and paste values and copy that pasted information from the formula bar and then do s save as and paste that reference. Is there an easier way. ? Maybe some formula or VBA?

 

[Dazzybeeguy]

I dont know anything about VBA, I have found this code below and I can change the Path to the correct location, and can see how to add it to the file. I want the user to open the password protected original file. I want them to add the data they have to it, then want it to save as the Ref in cell B12. Just not sure how to achieve that


Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "D:\SOFTEKO\excel vba save as file format"
filename = Range("BS12")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=52
End Sub

 

[Dazzybeeguy]

I also found code below for a button but it saves to Documents folder and I want it saved to the location file is in

Private Sub CommandButton1_Click()
Dim mFileName As String
mFileName = Range("Bs12").Value
ActiveWorkbook.SaveAs (mFileName)
End Sub

 

[Dazzybeeguy]

I manged to solve it via trial and error. The code linked to the Command Button is now

Private Sub CommandButton1_Click()
Dim mFileName As String
Path = "ADD YOUR FILE LOCATION HERE\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsM", FileFormat:=52
End Sub