For a combo box, I am building a list of dates for the last 365 days
using a loop. This date is in "mm/dd/yyyy" format by default. I want
to display this list in "dd/mmm/yyyy" format when the user clicks on
the drop down.

For this i'm using the code:

Private Sub cmbDateOfTimeLimit_Change()
cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
End Sub
This is because if I use

cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
in the userform_initialize() event it does not change anything....

However when i use the code in combobox_change() it displays the date
in "dd/mmm/yyyy" format only after the date is selected. In the drop
down it still shows in the old format.


Can someone plz help me 2 get rid if this issue..

Thanks in advance,
Yash

Try the Combobox_Select option instead of _Change

Corey....
wrote in message oups.com...
For a combo box, I am building a list of dates for the last 365 days
using a loop. This date is in "mm/dd/yyyy" format by default. I want
to display this list in "dd/mmm/yyyy" format when the user clicks on
the drop down.

For this i'm using the code:

Private Sub cmbDateOfTimeLimit_Change()
cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
End Sub
This is because if I use

cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
in the userform_initialize() event it does not change anything....

However when i use the code in combobox_change() it displays the date
in "dd/mmm/yyyy" format only after the date is selected. In the drop
down it still shows in the old format.


Can someone plz help me 2 get rid if this issue..

Thanks in advance,
Yash

On Jun 15, 10:09 am, "Corey" wrote:
Try the Combobox_Select option instead of _Change

wrote in ooglegroups.com...

For a combo box, I am building a list of dates for the last 365 days
using a loop. This date is in "mm/dd/yyyy" format by default. I want
to display this list in "dd/mmm/yyyy" format when the user clicks on
the drop down.

For this i'm using the code:

Private Sub cmbDateOfTimeLimit_Change()
cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
End Sub
This is because if I use

cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
in the userform_initialize() event it does not change anything....

However when i use the code in combobox_change() it displays the date
in "dd/mmm/yyyy" format only after the date is selected. In the drop
down it still shows in the old format.

Can someone plz help me 2 get rid if this issue..

Thanks in advance,
Yash

doesn't work :-)

what about using this in the Combobox1_Select :
Combobox1.value = Format(Combobox1.value,"dd/mmmm/yyyy") ?


wrote in message oups.com...
On Jun 15, 10:09 am, "Corey" wrote:
Try the Combobox_Select option instead of _Change

wrote in
ooglegroups.com...

For a combo box, I am building a list of dates for the last 365 days
using a loop. This date is in "mm/dd/yyyy" format by default. I want
to display this list in "dd/mmm/yyyy" format when the user clicks on
the drop down.

For this i'm using the code:

Private Sub cmbDateOfTimeLimit_Change()
cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
End Sub
This is because if I use

cmbDateOfTimeLimit.Value = Format(cmbDateOfTimeLimit.Value, "dd/
mmm/yyyy")
in the userform_initialize() event it does not change anything....

However when i use the code in combobox_change() it displays the date
in "dd/mmm/yyyy" format only after the date is selected. In the drop
down it still shows in the old format.

Can someone plz help me 2 get rid if this issue..

Thanks in advance,
Yash

doesn't work :-)

doesn't work :-)

Give this UserForm Initialize event code a try...

Private Sub UserForm_Initialize()
Dim X As Date
For X = Now - 365 To Now
ComboBox1.AddItem Format$(X, "dd/mmm/yyyy")
Next
End Sub

Nothing for you to do after this... the list will display as you wanted.

Rick

doesn't work :-)

Give this UserForm Initialize event code a try...

Private Sub UserForm_Initialize()
Dim X As Date
For X = Now - 365 To Now
ComboBox1.AddItem Format$(X, "dd/mmm/yyyy")
Next
End Sub

Nothing for you to do after this... the list will display as you wanted.

Of course, you would use your ComboBox's Name instead of ComboBox1 like I
did.

Rick