Setting Combobox to today’s date

[Trueblue862]

Hi, I have a Userform with a Combobox which gets its values, a list of dates, from a spreadsheet. I would like to initialise the Userform with the Combobox set to today’s date. I’m using the code below to attempt to achieve this, but it seems to be getting cut off as it enters the first digit into the Combobox, by the Combobox change event which populates a number of TextBoxes dependant on the value in the Combobox. What would be the best way to go about solving this problem? Any help would be appreciated.

cbxDate.Value=Format(Date,"d/m/yyyy")

 

[Trevor G]

Change the code to. Do you have this code behind the form Initialize?

       cbxDate.Value=Format(Date,"dd/mm/yyyy")

 

[mikerickson]

It sounds like you need to disable the userform's events. Application.EnableEvents doesn't effect userforms, so you have to introduce your own module wide variable and add a testing line to the events you want to control.

Dim DisableMyEvents As Boolean

Private Sub cbxDate_Change()
    If DisableMyEvents Then Exit Sub
    ' your  change code
End Sub

Sub foo()

    DisableMyEvents = True
    cbxDate.Value=Format(Date,"d/m/yyyy")
    DisableMyEvents = False

Exit Sub

 

[Trueblue862]

Thank you, I’ll try that out tonight.

 

[Trueblue862]

Thank you, it works a treat.