This one is tricky....Macro to save file as cell value x in direct

[Guest]

Hi

Two cells A1 & B2

I am trying to create a Macro to attach to a button to Save an .xls as

"A1".xls in directory R:/SALES/Team 318/"B2"

instead of typing it in all of the time....

Any helpers? Past attempts at this have failed.....the winner will get a big
MVP vote!

Absolute respect

Andy

 

[Jason Morin]

Try something like:

Sub Test()
Dim mypath As String
Dim sfile As Range, sdir As Range

mypath = "R:\SALES\Team 318\"
Set sfile = Sheets("Sheet1").Range("A1")
Set sdir = Sheets("Sheet1").Range("B2")

ThisWorkbook.SaveAs Filename:=mypath & sdir & "\" & sfile

End Sub

 

[Bob Phillips]

ActiveWorkbook.SaveAs Filename:= "R:\SALES\Team 318\" & Range("B1").Value &
"\" & Range("A1").Value & ".xls"

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

How about something like this:

Sub SvFile()

ActiveWorkbook.SaveAs Filename:= _
"R:/SALES/Team 318" & Range("B1").Value _
& "\" & Range("A1").Value & ".xls"

End Sub

tj

 

[JE McGimpsey]

This is rather an FAQ if you look in the archives:

http://groups.google.com/advanced_group_search?q=group:*excel*

One way:

Public Sub SaveInB2AsA2()
Const sPATH As String = "R:/SALES/Team 318/"
ThisWorkbook.SaveAs _
Filename:=sPATH & Range("B2").Text & _
Application.PathSeparator & Range("A2").Text & ".xls"
End Sub

 

[Guest]

Andy,
I just copied the filepath from your post--
As the other posts show, if you are on a Windows machine, the slashes from
your filepath are going the wrong way.

tj

 

[Guest]

Thankyou very much for your help this worked well...

 

[Guest]

Thanks Jason. There was a bug in this that I couldnt work out. Thanks for
your help though. The next three worked....

 

[Guest]

thanks for this. It worked.

Andy,
I just copied the filepath from your post--
As the other posts show, if you are on a Windows machine, the slashes from
your filepath are going the wrong way.

tj

 

[Guest]

Thanks Bob.....this did the trick as it was the least code for the three
responses. I appreciate your help. Youre not from Brisbane?

 

[Bob Phillips]

Not quite, South Coast of England.

--

HTH

RP
(remove nothere from the email address if mailing direct)