save file based on 4 cell refs

[Trevor3007]

hi,

I can save the file based on 1 cell ref, but need to also use 3 others?

cells ref :-

B4 = name
e7 = james
w2 = ID Number
w3 = 008

file name
save as
c:\data\namejamesidnumber008.xls

hope this makes sense & thank you :}

 

[jlabrecque]

Hi let me know if the code below work

Sub Test()


Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
Dim myfilename As String




Path = "C:\data"
Path1 = Range("B4")
Path2 = Range("E7")
Path3 = Range("W2")
Path4 = Range("W3")


ActiveWorkbook.SaveAs Filename:=Path & Path1 & Path2 & Path3 & Path4 & ".xls", FileFormat:=xlNormal




End Sub

For the path you will have to copy the specific location you want to save it to

 

[DanteAmor]

Path = "C:\data"

In the end the back slash is missing.

[COLOR=#000000][FONT=Helvetica]Path = "C:\data\"[/FONT][/COLOR]

 

[Trevor3007]

Hi let me know if the code below work

Sub Test()


Dim Path1 As String
Dim Path2 As String
Dim Path3 As String
Dim Path4 As String
Dim myfilename As String




Path = "C:\data"
Path1 = Range("B4")
Path2 = Range("E7")
Path3 = Range("W2")
Path4 = Range("W3")


ActiveWorkbook.SaveAs Filename:=Path & Path1 & Path2 & Path3 & Path4 & ".xls", FileFormat:=xlNormal




End Sub

For the path you will have to copy the specific location you want to save it to

good morning,

thanks for your code & FANTASTIC, it works a treat.

Have a great day
KR
Trevor3007