save sheet as pdf to subfolders based on cell value

[abdelfattah]

hi all
i search code save sheet as pdf to subfolder the directory is "C:\Users\OSE\Downloads\client \" i have main folder calls client and contains many subfolders customer1,customer2,customer3,customer4 when i fill in cell h2 = customer1 then save as pdf to subfolder customer1 and if i fill customer2 in h2 then save as pdf to subfolder customer2 and so on
i appreciate if anybody help

 

[jefflab1]

Click here to download your file. There was something about your sheet that kept generating an error when the macro tried to save the file as a PDF. I created a new blank sheet and copied/pasted the cells from the READING sheet to the new blank sheet. I then deleted the original READING sheet and renamed the new one as "READING". The macro now seems to work. Click the button.

The button doesn't do anything. When I click it, it doesn't pull up anything. I did move it to that S drive folder, not the Reading data folder.

Here is the code that I copied:

Private Sub CommandButton1_Click()
ChDir "S:\Fire Dispatchers\Circuits Program\Reading_Data\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(Range("C2"), "/", "-") & "-" & Format(Range("C3"), "hhmm") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

 

[mumps]

I tested the macro and it worked properly. Did you test the file I attached or did you use the macro on a different file?

 

[jefflab1]

I tested the macro and it worked properly. Did you test the file I attached or did you use the macro on a different file?

I downloaded the file and copy and pasted it to the main folder, same drive.

Does anything in this photo look abnormal?

 

[mumps]

It doesn't matter where you save the the file. The PDF will be saved in the folder path that is hard coded in the macro. It should do that when you open the file and click the command button. Try saving the file to your C:\ Drive. Create a test folder in the C:\ Drive. Call the folder "Test" and replace this line of code:

ChDir "S:\Fire Dispatchers\Circuits Program\Reading_Data\"

with this one:

ChDir "C:\Test\"

Click the command button and see what happens.

 

[jefflab1]

I can't thank everyone enough for their help. It finally worked. Their was one issue. The original folder on the S drive (aka network shared drive) needed to be given permission from within the Excel doc to save or alter that location. I had to goto Macro Security and under Trusted Locations, I had to add the location. I pressed OK and that was it!

Now onto figuring out how to add another button to save as PDF and email that PDF.

Thank you again!

 

[mumps]

You are very welcome.