Lookup folder from cell text, then save excel file in this folder

Hi,

I have been using this forum for a while now. Usually I can find similar problems and fixes in order to fix my problem. This time however I cannot find a suitable solution to this problem:

I have alot of project folders on my harddrive. All in format: I:/12345-costumer-projectname/
the five digits are unique for each project.

I make calculations for these projects using an excel file. In this excel I also type the projectnumber (cell J2)
Now i would like to make a button. When pressed, it checks the projectnumber cell J2, looksup the corresponding folder and saves the excelfile in PDF format in this folder.

I have found macro to find files in folders, but none which do the above.
Can anyone point me in the right direction? Thanks alot for your help!

Best regards,
Bob

Use the dir function with a wildcard to return the full folder from the project number, i.e.:

Please Login or Register  to view this content.

Sorry, that would be like so:
folder_name = dir("I:/" & Range("J2").Value & "*", vbdirectory)
you need to split up the text strings and variables with &'s.

Got it to work. Thanks alot for your help. You have made my day!