Macro to change directory based on cell content
I am new to Excel and have created a document that has a drop down list at
the top to change the header from 'Bank' to 'Savings'. I read in the
discussion group how to automatically save a file using a cell reference.
I
must change directories, before saving and so far what I have (and it
works)
is:
ChDir "G:\SAVINGS\Pending WRO"
ActiveWorkbook.SaveAs Filename:=Range("b8").Value
What I need to accomplish is in the active workbook, if Cell A1 =
'Savings',
then
ChDir "G:\SAVINGS\Pending WRO"
ActiveWorkbook.SaveAs Filename:=Range("b8").Value
But if Cell A1 = 'Bank' then
ChDir "G:\Bank\Pending WRO"
ActiveWorkbook.SaveAs Filename:=Range("b8").Value
Maybe this line of code does what you want?
ChDir "G:\" & Range("A1").Value & "\Pending WRO"
Personally, I wouldn't bother with setting the ChDir at all; I would
eliminate the ChDir statement completely and just prepend the path onto the
value from B8...
ActiveWorkbook.SaveAs Filename:="G:\" & Range("A1").Value & _
"\Pending WRO\" & Range("B8").Value
Rick
|