file/workbook name according to cells value

[shaykos]

hi

i want to auto rename excel file(workbook name) according to cells values. for example:

currently file name : blank.xlsx

after i opened the file i paste values in the cells:

a1=2014 09 01
a2=New York

i want the file name to be:

2014 09 01 PermanentOpening_New York.xlsx

when "PermanentOpening" is permanent to all the files names and i want the city and the date to be the variables


it is possible?

thanks:]

[sakmsb]

hi

i want to auto rename excel file(workbook name) according to cells values. for example:

currently file name : blank.xlsx

after i opened the file i paste values in the cells:

a1=2014 09 01
a2=New York

i want the file name to be:

2014 09 01 PermanentOpening_New York.xlsx

when "PermanentOpening" is permanent to all the files names and i want the city and the date to be the variables


it is possible?

thanks:]

add this line to your code..
"C:\Users\xyz\Desktop\Training\OPS\" & Range("a1").Value & " PermanentOpening_" & Range("a2").Value & ".xlsx"

[shaykos]

hi

it gives me an

"line number or label or statement or end of statement" error

by the way- im suppose to replace this: "C:\Users\xyz\Desktop\Training\OPS\"

in this "c:/users/home/desktop/blank" in my situation?

[sakmsb]

hi

it gives me an

"line number or label or statement or end of statement" error

by the way- im suppose to replace this: "C:\Users\xyz\Desktop\Training\OPS\"

in this "c:/users/home/desktop/blank" in my situation?

Yes...

if you are having issues, plz update your code here, someone will look into it.

[shaykos]

i got this eventually

Sub SaveFile()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim name As String
Dim path As String

name = Sheet1.Range("F3") & " " & "Report_" & Sheet1.Range("F4")
path = ActiveWorkbook.path

ActiveWorkbook.SaveAs Filename:=path & "\final\" & name, FileFormat:=51

Sheet1.Unprotect Password:="1234"
Range("A1:J155").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets("T").Delete
Worksheets("S").Delete
ActiveWorkbook.SaveAs Filename:=path & "\closed\" & name, FileFormat:=51

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & "\closed\" & name

ActiveWorkbook.Close

End Sub