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....
<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
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" <M...@WorkAgain.com.au> wrote:
> Try the Combobox_Select option instead of _Change
>
> Corey....<itsy...@gmail.com> wrote in messagenews:(E-Mail Removed)...
>
> 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") ?


<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
On Jun 15, 10:09 am, "Corey" <M...@WorkAgain.com.au> wrote:
> Try the Combobox_Select option instead of _Change
>
> Corey....<itsy...@gmail.com> wrote in
> messagenews:(E-Mail Removed)...
>
> 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