Save File based on Cell Date value

[melidrie]

Hi All,

I am new to this forum and i need some help.

every week we get a xls file that we have to adjust and save as a csv.
In cell D3 we put in the date for example: "31/12/2015".

Based on the date we save the file in the correct folder for example:
the date is "31/12/2015" so i want the file be saved in Folder "2015" and in that folder a subfolder called 12.
The day we use as name. "DD31.csv"

Can someone help me how to write this code?

Thnx!!

Regards Meli

 

[melidrie]

Sorry for late reply.

That's strange if it is 'sometimes' unless the date entered to the cell has been entered incorrectly.

When it happens, step through each line of code and see what is being put in to each variable on these lines:

[COLOR=#574123][I]    'Get the year, month and day in the correct format from the date in cell D3:
[/I][/COLOR]    sYear = Format(d, "yyyy")
    sMonth = Format(d, "mm")
 [COLOR=#574123][I]   sDay = Format(d, "dd")[/I][/COLOR]

Now it keeps giving me the date 31/12/1899..
no matter what kind of format i use.
any solutions?

is it possible to convert it to Text

 

[gallen]

Now it keeps giving me the date 31/12/1899..
no matter what kind of format i use.
any solutions?

is it possible to convert it to Text

There shouldn't be any need at all. What value is in D3?

 

[melidrie]

There shouldn't be any need at all. What value is in D3?

31/12/2015

 

[gallen]

In my original code I made a typo and forgot to change my local code. I put:

[COLOR=#574123][I]d = Sheet2.Range("_WC").Value[/I][/COLOR]

What did you change it to?

Also once your line to set 'd' executes, what value is in 'd'?