combobox range - type mismatch !

[Lukael]

hello,

I have this code for Userform's Combobox to show days in months:

Please Login or Register  to view this content.

Problem is, that I copy first sheet within that range of days, then (with macro) create all months in year with Dateserial within range, and delete all extra columns for days that are redundant according to month.

So, when I try to open userform on sheets where days in month are not 31 as on first sheet, I get an error "Type mismatch" !

How can I change range in Combobox so that It will adjust on every number of days ?

[Norie]

Adjust the range you are looping based on the month of the active sheet.

Or instead of a For loop try this.

Please Login or Register  to view this content.

By the way, how are the values formatted on the sheet?

[Lukael]

Hi Norie,

Your code is great, just had to change empty cell to string of next cell, because row doesn't end with days.

But, how can I adjust range based on the month of the active sheet ?

My values in cell containing days are formatted as d.(ddd) !

[Norie]

Can you upload an example workbook?

Click on GO ADVANCED and use the paperclip icon to open the upload window.

[Lukael]

Yes I know how to upload but the file is too large, over 1.2 Mb and can't shrinken It, otherwise everything that has to be seen in VBA will not work.

Don't worry Norie, I will stick on code you provided, thanks a lot