Defining 6 month dates

[TonyforVBA]

I am useing the below code to imput date variables into filepaths. The problem that I am facing is that one file has a 6 month data range within the filename.
eg. (sample reports May 11 to Oct 11.xls)

In the below code I am useing TextBox25 to define the NapsMonth (in this case 10_Oct)
I then use another case statement to define Naps6Month as the 'NapsMonth - 6'.

However this is not working for me as, in this instance, NapsMonth - 6 would equal 4
but my case statement is searching for "04".

This solution as obviously going to cause more trouble at the start of a new year when the NapsMonth returns to 1 again.

Would anybody be able to offer a alternative work around for this?

Please Login or Register  to view this content.

[Steffen Thomsen]

Try changing this line

Please Login or Register  to view this content.

To

Please Login or Register  to view this content.

[snb]

a oneliner suffices:

Please Login or Register  to view this content.

[TonyforVBA]

Steffan, thanks for the formatting tip. That sorts out the first problem grand.

Snb, I've included the code above in my AssignFilePaths script but I'm getting
Run Time Error '424';
Object required.


Have I done somthing wrong here?

Please Login or Register  to view this content.

[snb]

because both textboxes are being referred to you need this code to be in the userform codemodule (I assume the textboxes to reside in a userform).

[TonyforVBA]

Ahh I see! Thats perfect, I have the filepath assignment code in a seperate mudule so I've just refferenced the Userform name with the each of the TextBox refferences.

eg. Userform1.TextBox23.

Thanks for that. Great help as always!!