Userform help

[herpasymplex10]

I've never used a Userform before so be easy on me...

I'm trying to create something my co-workers can use
I'd like to use a List Box on the form
which will give them a choice between 5 different
types of "return reasons"

I've got the listbox in the userform, but how do i add these different choices and make it so they can only choose one?

Thanks

 

[Norie]

There are various different methods to populate a listbox.

Do you have a list with these reasons somewhere?

If you don't you can use AddItem.

Private Sub UserForm_Initialize()
For I = 1 To 5
     Listbox1.AddItem "Reason " & I
Next I
End Sub

By default a listbox will only allow 1 choice.

 

[herpasymplex10]

There are various different methods to populate a listbox.

Do you have a list with these reasons somewhere?

If you don't you can use AddItem.

Private Sub UserForm_Initialize()
For I = 1 To 5
     Listbox1.AddItem "Reason " & I
Next I
End Sub

By default a listbox will only allow 1 choice.

Thanks for the quick response:

1. nondefective special order merchandise: store error (store or consumer ordered incorrect material, customer cancelled etc.)

2. non-defective special order merchandise requiring repackaging 3. non-defective stock merchandise
4. Damaged merchandise

5. Defective merchandise

 

[Norie]

Try this.

Private Sub UserForm_Initialize()
Dim arrListItems

arrListItems = Array("nondefective special order merchandise: store error (store or consumer ordered incorrect material, customer cancelled etc.", _
                     "non-defective special order merchandise requiring repackaging", _
                     "non-defective stock merchandise", _
                     "Damaged merchandise", _
                     "Defective merchandise")

ListBox1.List = arrListItems
End Sub

 

[herpasymplex10]

Try this.

Private Sub UserForm_Initialize()
Dim arrListItems

arrListItems = Array("nondefective special order merchandise: store error (store or consumer ordered incorrect material, customer cancelled etc.", _
                     "non-defective special order merchandise requiring repackaging", _
                     "non-defective stock merchandise", _
                     "Damaged merchandise", _
                     "Defective merchandise")

ListBox1.List = arrListItems
End Sub

Thanks Norie.
I'm trying to add another Listbox to the userform but get an error:

Compile Error:
Ambiguous name detected: Userform_Initialize


(also. do you have any suggestions on a book on VBA? I'm a beginner and feel like i'm just copy and pasting what you are telling me but not understanding the basics)

Private Sub ListBox1_Click()

End Sub




Private Sub UserForm_Initialize()
Dim arrListItems

arrListItems = Array("nondefective special order merchandise: store error (store or consumer ordered incorrect material, customer cancelled etc.", _
"non-defective special order merchandise requiring repackaging", _
"non-defective stock merchandise", _
"Damaged merchandise", _
"Defective merchandise")

ListBox2.List = arrListItems
End Sub




Private Sub UserForm_Initialize()
Dim arrListItems

arrListItems = Array("Floor Tile", _
"Commercial Tile", _
"Robbins", _
"Bruce", _
"Hartco", _
"Samples/Literature", _
"Sheet", _
"Ceiling", _
"Ceiling Grid")

ListBox1.List = arrListItems
End Sub

 

[Norie]

You can only have 1 initialize event.

 

[sellvakumarmech]

Hai...,

I am beginner to this VBA. May i know the reason why not use more initialize event.

Also how to add more combobox in userform.

Many Thanks in Advance..


Regards,

SellvakumarMech