develop a default saveas filename

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

I have a need to establish a default filename from data
in two cells in the TEMPLATE.
This is for Purchases Orders - I want to start the
Filename with "PO_" append to that the PO_number from
cell G1 and add to that the VendorName in A3. This would
become the default name after the fields were filled in.
This should a filename that would look
like: "PO_1234_Office Supply Company"

I would like to compound this with setting a specific
destination folder as default file save location.

Can any body help?
 
Tom,

Does this do it?

Dim sDir As String

sDir = "C:\myDir\"

ActiveWorkbook.SaveAs Filename:= sDir & "PO_" & _

Range("G1").Value & Range("A3").Value
 
Tom,

Why don't you send me the workbook and tell me what you want to achieve
overall and I will take a look.

Regards

Bob
 
Back
Top