Hello all,

using excel '03

I have a userform that initializes several values in both comboboxes
and textboxes.

In one of those textboxes, I would like today() (in yyyymmdd format)
to be the default value.

Can I do this and how?

thanks,
alex

Private Sub Userform_Activate

TextBox1.Text = Format(Date, "yyyymmdd")
End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"alex" wrote in message
...
Hello all,

using excel '03

I have a userform that initializes several values in both comboboxes
and textboxes.

In one of those textboxes, I would like today() (in yyyymmdd format)
to be the default value.

Can I do this and how?

thanks,
alex

Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

On May 19, 7:33*am, Incidental wrote:
Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

Thanks Bob and Steve; it worked perfectly. While I've got your
attention...Do you know the best way to add a list to a combobox? I'm
currently using .AddItem, but with a long list, it's a bit tedious.

thanks again,
alex

Private Sub UserForm_Activate()
Dim aryValues As Variant

aryValues = Range("A1:A20")
Me.ComboBox1.List = aryValues
End Sub


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"alex" wrote in message
...
On May 19, 7:33 am, Incidental wrote:
Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

Thanks Bob and Steve; it worked perfectly. While I've got your
attention...Do you know the best way to add a list to a combobox? I'm
currently using .AddItem, but with a long list, it's a bit tedious.

thanks again,
alex

On May 19, 8:25*am, "Bob Phillips" wrote:
Private Sub UserForm_Activate()
Dim aryValues As Variant

* * aryValues = Range("A1:A20")
* * Me.ComboBox1.List = aryValues
End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"alex" wrote in message

...
On May 19, 7:33 am, Incidental wrote:

Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

Thanks Bob and Steve; it worked perfectly. *While I've got your
attention...Do you know the best way to add a list to a combobox? *I'm
currently using .AddItem, but with a long list, it's a bit tedious.

thanks again,
alex

Thanks again Bob...I'd like to not reference anything on the
worksheet. I'm assuming I can still set up some kind of array.
aryValues = ?

Yes you can, you can even do it directly

Private Sub UserForm_Activate()
Me.ComboBox1.List = Array("Bob", "Alex", "Jim", "Noel", "Pete")
End Sub


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"alex" wrote in message
...
On May 19, 8:25 am, "Bob Phillips" wrote:
Private Sub UserForm_Activate()
Dim aryValues As Variant

aryValues = Range("A1:A20")
Me.ComboBox1.List = aryValues
End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"alex" wrote in message

...
On May 19, 7:33 am, Incidental wrote:

Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

Thanks Bob and Steve; it worked perfectly. While I've got your
attention...Do you know the best way to add a list to a combobox? I'm
currently using .AddItem, but with a long list, it's a bit tedious.

thanks again,
alex

Thanks again Bob...I'd like to not reference anything on the
worksheet. I'm assuming I can still set up some kind of array.
aryValues = ?

In addition to the Array function method Bob posted, there is this
alternative (which, if you are like me and hate typing multiple quote marks
if you can help it) you might want to consider...

Private Sub UserForm_Activate()
ComboBox1.List = Split("Item 1,Item 2,Item 3,Item 4,Item 5", ",")
End Sub

where you can use any delimiter character you want so long as it is not in
any of the items in the list.

Rick


"alex" wrote in message
...
On May 19, 8:25 am, "Bob Phillips" wrote:
Private Sub UserForm_Activate()
Dim aryValues As Variant

aryValues = Range("A1:A20")
Me.ComboBox1.List = aryValues
End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"alex" wrote in message

...
On May 19, 7:33 am, Incidental wrote:

Hi Alex

The code below would be one way to do it.

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now, "YYYY - MM - DD")

End Sub

Hope this helps

Steve

Thanks Bob and Steve; it worked perfectly. While I've got your
attention...Do you know the best way to add a list to a combobox? I'm
currently using .AddItem, but with a long list, it's a bit tedious.

thanks again,
alex

Thanks again Bob...I'd like to not reference anything on the
worksheet. I'm assuming I can still set up some kind of array.
aryValues = ?