How to save a excel data range in dynamic folder path

[Designernadir]

Can anyone please guide me with a VBA to save my pdf file into different folders everytime I save it. I want the VBA to pick up the destination folder name from a cell reference.
Currently I am using the below VBA to same my pdf to two different drives in our network. But I want the E drive folder destination to be dynamic. is it possible? plzz


Option Explicit
Sub SaveQuotationinPDF()

Sheet1.Range("MOY125:MPD183").ExportAsFixedFormat xlTypePDF, Filename:="Z:\QUOTATIONS\QUOTATIONS (ARMO)\2020 -With sales code\Nadir\" & Sheet1.Range("MPC132").Value, openafterpublish:=True

Sheet1.Range("MOY125:MPD183").ExportAsFixedFormat xlTypePDF, Filename:="E:\My Documents\Armoplast\Armoplast Customer DIR\Local Quotations 13 Aug 2020\" & Sheet1.Range("MPC132").Value, openafterpublish:=True


End Sub

 

[DanteAmor]

Try this:

Sub SaveQuotationinPDF()
  With Sheet1.Range("MOY125:MPD183")
    .ExportAsFixedFormat xlTypePDF, Filename:="Z:\QUOTATIONS\QUOTATIONS (ARMO)\2020 -With sales code\Nadir\" & Sheet1.Range("MPC132").Value, openafterpublish:=True
    .ExportAsFixedFormat xlTypePDF, Filename:=Sheet1.Range("A1").Value & Sheet1.Range("MPC132").Value, openafterpublish:=True
  End With
End Sub

 

[Designernadir]

Hi,
Let me rephrase my query...........
I have a master folder called "quotations"
Inside "Quotations" folder, I have sub folder ........
Customer 1
Customer 2
Customer 3
Customer 4 Etc

So , when I am creating a quotation in the excel quotation file for "Customer 2", while saving the file I want the file to be saved automatically in "Customer 2" sub folder.
Similarly, next time when I will create quotation for customer 4 or other, the file should automatically be saved in that particular sub folder.

Regards
designernadir

 

[DanteAmor]

I'm going to make another attempt, because I really don't know where you want to save and what data to put and where to put it.
Change the "main" folder in sPath and change "A1" to the cell where you have the name of the "customer folder".

Sub SaveQuotationinPDF()
dim sPath as string
sPath =  "E:\My Documents\Armoplast\Armoplast Customer DIR\Local Quotations 13 Aug 2020\"
  With Sheet1.Range("MOY125:MPD183")
    .ExportAsFixedFormat xlTypePDF, Filename:="Z:\QUOTATIONS\QUOTATIONS (ARMO)\2020 -With sales code\Nadir\" & Sheet1.Range("MPC132").Value, openafterpublish:=True
    .ExportAsFixedFormat xlTypePDF, Filename:=sPath & Sheet1.Range("A1").Value & "\" & Sheet1.Range("MPC132").Value, openafterpublish:=True
  End With
End Sub