Macro to locate folder in a folder and save

[excellentexcel]

hi guys im looking for some code to save to a destination

destination address is
C:\Documents and Settings\st\Desktop\OJF

now the problem is OJF has folders named 1 to 500

so if cell d5 = 487 it will need to look in the above desination and then open the folder and save it there

kind regards

[ravishankar]

Hi
try this code

Please Login or Register  to view this content.

Ravi

[excellentexcel]

Thats not worked ravi
its saved it to desktop and not in the folder i requested

[GuruWannaB]

Please Login or Register  to view this content.

Is correct..however add "ODF\" to the FILENAME:= line and a "\" before the activeworkbook.name

so you have

Please Login or Register  to view this content.

This will then save in the ODF folder...and the folder identified by d5

[excellentexcel]

I HAVE MANAGED TO GET IT TO SAVE ALMOST IN THE RIGHT FOLDER
ITS NOW SAVING TO C:\Documents and Settings\st\Desktop\OJF\

BUT ITS NOT OPENING THE FOLDER WITHIN THE ODF FOLDER IN THIS CASE
1

ITS ALSO SAVING AS
1Supply only trail
where as i want it to save in the right folder which is 1
but i also want it to save as "1 parking form"

[GuruWannaB]

recheck the formula I gave above...I updated it right as you posted...sorry.

You need the "\" before the actual activeworkbook name portion of the code.

[excellentexcel]

hi guru
that now works perfectly and finds the folder rightly

the only thing i need it to do now is name it differently

i want it to save as

1 parking form

[GuruWannaB]

Ok...Where does the name of the file derived from? A cell?

We got the folder name from a cell...can do the same for the file name or do you want to choose everytime what the name will be...just having the saveas box populate to the proper folder?

Right now it is saving with that name because it is the current default name of the file you are modifying. Manually save it as the filename you want...and it will default to that name going forward...but you can automate it to change the file name based on a cell value too - or make it a selectable everytime. Your choice.

[excellentexcel]

the name of the cell should derive from sheet "PARKING & ACCESS" this is actually the only sheet left after previous macro work

and the number is from cell c6 of that sheet

all i need after that is " parking form" exactly as it is

so lets say 487
it would save as 487 parking form

[GuruWannaB]

Gotchya..here we go

Please Login or Register  to view this content.

This still points to D5 for the folder name...as did those above...but if you need to change that to C6 - then change the code highlighted in blue to "CELLS(6, 3)"

[excellentexcel]

works a treat
thank you so much
much appreciated