ComboBox

[Steph]

Hello! I have a ComboBox being populated with a named range of dates
(called date). In another cell (named range "default") I have todays date.
How can I have the value in the combobox default to todays date, or
essentially default to the named range "default"? Thanks in advance!!

 

[Dave Peterson]

How about just setting the value?

me.combobox1.value = format(date,"mm/dd/yyyy")

 

[Steph]

I tried that, but I'm not sure where to put that line of code. I tried it
at the beginning of my showform code below, but errored:

Sub ShowUserForm()

ComboBox1.Value = Worksheets("Sheet2").Range("A1").Value
UserForm1.Show

End Sub

 

[Dave Peterson]

Try putting it in the _initialize procedure (behind the userform):

Private Sub UserForm_Initialize()
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Value
'or
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Text
'or
me.ComboBox1.Value _
= format(Worksheets("Sheet2").Range("A1").Value, "mm/dd/yyyy")
End Sub

Only use one of those, though.

 

[Steph]

None of them worked. I am so confused!!

Try putting it in the _initialize procedure (behind the userform):

Private Sub UserForm_Initialize()
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Value
'or
me.ComboBox1.Value = Worksheets("Sheet2").Range("A1").Text
'or
me.ComboBox1.Value _
= format(Worksheets("Sheet2").Range("A1").Value, "mm/dd/yyyy")
End Sub

Only use one of those, though.

 

[Dave Peterson]

What did you do and what happened when you tried it?

None of them worked. I am so confused!!

 

[Steph]

In the vbe, I double-clicked on the user form itself (not the buttons or
combobox) which created the following private sub:

Private Sub UserForm_Click()

End Sub

I put this line of your code in there:
Me.ComboBox1.Value _
= Format(Worksheets("Sheet2").Range("A1").Value, "mm/dd/yyyy")

I then ran the sub I created to show the userform:
Sub ShowUserForm()
UserForm1.Show
End Sub

The userform shows, but the combobox is not populated with the default value
in Worksheets("Sheet2").Range("A1").

 

[Dave Peterson]

Don't use _click. Use _initialize.

In the vbe, I double-clicked on the user form itself (not the buttons or
combobox) which created the following private sub:

Private Sub UserForm_Click()

End Sub

I put this line of your code in there:
Me.ComboBox1.Value _
= Format(Worksheets("Sheet2").Range("A1").Value, "mm/dd/yyyy")

I then ran the sub I created to show the userform:
Sub ShowUserForm()
UserForm1.Show
End Sub

The userform shows, but the combobox is not populated with the default value
in Worksheets("Sheet2").Range("A1").

 

[Steph]

That did it! Thanks Dave!!!

Don't use _click. Use _initialize.