ComboBox
 

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!!

ComboBox
 

How about just setting the value?

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





Steph wrote:

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

ComboBox
 

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

ComboBox
 

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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

ComboBox
 

None of them worked. I am so confused!!

"Dave Peterson" wrote in message
...
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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

ComboBox
 

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



Steph wrote:

None of them worked. I am so confused!!

"Dave Peterson" wrote in message
...
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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

--

Dave Peterson

ComboBox
 

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 the
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" wrote in message
...
What did you do and what happened when you tried it?



Steph wrote:

None of them worked. I am so confused!!

"Dave Peterson" wrote in message
...
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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

--

Dave Peterson

ComboBox
 

Don't use _click. Use _initialize.


Steph wrote:

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 the
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" wrote in message
...
What did you do and what happened when you tried it?



Steph wrote:

None of them worked. I am so confused!!

"Dave Peterson" wrote in message
...
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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

--

Dave Peterson

--

Dave Peterson

ComboBox
 

That did it! Thanks Dave!!!

"Dave Peterson" wrote in message
...
Don't use _click. Use _initialize.


Steph wrote:

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 the
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" wrote in message
...
What did you do and what happened when you tried it?



Steph wrote:

None of them worked. I am so confused!!

"Dave Peterson" wrote in message
...
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 wrote:

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" wrote in message
...
How about just setting the value?

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





Steph wrote:

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

--

Dave Peterson

--

Dave Peterson

--

Dave Peterson