VBA Help - Save as PDF, Save to Desktop (Any User), File Name

[Zef05]

Hi!

I am trying to create a sales form for my four-man team.
I have codes for saving the file as PDF, using a filename in a designated cell, but it only works on my computer.
I was wondering if there is a way to use the same file and just save it to their desktops.

Thank you!

 

[Kyle123]

https://stackoverflow.com/questions...-desktop-regardless-of-user/17551579#17551579

 

[Zef05]

https://stackoverflow.com/questions...-desktop-regardless-of-user/17551579#17551579

Super thank you. You're a life saver. Have a great day!

 

[Kyle123]

Glad to help

 

[Zef05]

https://stackoverflow.com/questions...-desktop-regardless-of-user/17551579#17551579

Super thank you. You're a life saver. Have a great day!

I tried that, but it requires me to type in a file name.
Is there a way for a certain cell to be used as the file name in this scenario?

 

[Kyle123]

Why does it require you to type a filename?

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("sheet1").Range("a1").Value

 

[nkw2306]

Hi!

I am trying to create a sales form for my four-man team.
I have codes for saving the file as PDF, using a filename in a designated cell, but it only works on my computer.
I was wondering if there is a way to use the same file and just save it to their desktops.

Thank you!

Hi

I use the following in my code

username = Environ("Username")
"C:\Users" & username & "\...."

Works a treat off other peoples however one flaw is it has to be the same file name so to speak.

 

[Zef05]

Why does it require you to type a filename?

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("sheet1").Range("a1").Value

When I used this code, it says subscript out of range.
I am sorry, I just copy paste the codes. I really don't know what I'm doing.
I have no idea how VBA codes work. But thank you for replying and helping me out.

If it's not too much to ask, would it be possible for you to post the exact code I can paste into the VBA?

Thank you!

 

[Kyle123]

You need to put the sheetname and cell reference in, what's the sheet name and address of the cell?

 

[Kyle123]

Hi

I use the following in my code

username = Environ("Username")
"C:\Users" & username & "\...."

Works a treat off other peoples however one flaw is it has to be the same file name so to speak.

That doesn't work in a lot of cases. The desktop path isn't always the same as the username