VBA Combobox Date Format

[nadzri]

Hi all,

I tried to do this in a userform:
-Display a date value of cell "a1" of "try" sheet in combobox1
-when arrow is press down, combobox display date list from c1:c10
-when new date selected, date cell in "a1" value is changed accordingly

I got all solved by changing the combobox properties:
controlsource: =a1
rowsource: =c1:c10

But i cannot get the date format correctly. When I search the forum i got this:

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub

But when new date is selected, it display an error message:
"Run-time error '380': Could not set the Value property. Invalid property value."

What should I do?

Thanks,

 

[rjp]

Hi,

You're trying to set the combobox's value to itself. I think your code should read:

Private Sub ComboBox1_Change() 
Worksheets("Try").Cells(1, 1).Value = Format(ComboBox1.Value, "dd/mm/yyyy") 
End Sub

 

[nadzri]

Hi Rob,

Thanks for your reply, but it still not workin as expected.

I'll try and browse around some more. Will let you know if I found the solution.

Thanks again & have a nice day!