File to save with name as per cell values

[kkravch]

Greetings, I need help with the following - is there any way to have a VBA code to save an excel file with name that is combination of values in two cells?

Example:

On a particular spreadsheet, lets call it "spreadsheet1" I have the following values:

A1 = 23456
A2 = 01

I would like to be able to get this file saved automatically as 2345601.xlsx.

Thank you.

 

[Fishboy]

Greetings, I need help with the following - is there any way to have a VBA code to save an excel file with name that is combination of values in two cells?

Example:

On a particular spreadsheet, lets call it "spreadsheet1" I have the following values:

A1 = 23456
A2 = 01

I would like to be able to get this file saved automatically as 2345601.xlsx.

Thank you.

Hi kkravch, welcome to the boards.

Try out the following in a COPY of your workbook for testing:

Sub SaveFile()
ActiveWorkbook.SaveCopyAs "C:\YourFolder\" & Range("A1").Value & Range("A2").Value & ".xlsx"
End Sub

You will need to change where you want the file to be saved to from "C:\YourFolder\" to your desired location.

 

[kkravch]

Thanks, worked perfectly. To finish it all, one more little question - when I finish with ActiveWorkbook.Close, what do I need to add so I don't end up with dialogue "do you want to save the file" produced by Excel? Here is my code:

Sub Upload()
'
        ActiveWorkbook.SaveAs Filename:= _
        "S:\MyDir\" & Range("B1").Value & Range("C1").Value & ".csv" _
        , FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

thanks again

 

[kkravch]

Figured out myself....

ActiveWorkbook.Close SaveChanges:=False