Saving a sheet to a specific folder

This macro saves a excel file in a certain folder can it be saved to a subfolder with the mactching name
ie the file name is ro-3170-5-21-13 I would like it saved in a folder named 3170


' Saves repair order to its own file in roreq
Sheets("repair order").Select
Sheets("repair order").Copy
thisfile = Range("r54").Value
ActiveWorkbook.SaveAs Filename:="D:\new sws folder\maintenance\roreq\" & thisfile
ActiveWorkbook.Close

Try something like this...

Please Login or Register  to view this content.

this saves it as the first 4 digits it needs to be digits 4 to 7

Originally Posted by kmraz

this saves it as the first 4 digits it needs to be digits 4 to 7

Good to know. Try this...

strFolder$ = "D:\new sws folder\maintenance\roreq\" & Split(thisfile, "-")(1)

This gets the text after the 1st "-" up to the 2nd "-". If that doesn't work, can you better explain the pattern to extract and all its variances.

That worked perfectly thank you this has been busting my chops for days so if I changed the (1) at the end would it give me between the 2nd and 3rd -

Originally Posted by kmraz

That worked perfectly thank you this has been busting my chops for days so if I changed the (1) at the end would it give me between the 2nd and 3rd -

Yes or it nukes your computer. I forget which one.
You're welcome.