Too many "Ifs and buts"

[olorin]

I have a list box on a userform that has a named range source.
The range has 100 text strings in it.
Next to the list box on the userform is a text box that I want the user to enter a number into.
I then want the textbox value to be put into a worksheet in a cell address based on the listbox selection without using 100 "IF...Else statements".
I know one or more of u Excel lent people know how to do this. I just ain't that hot on VBA.
Though I could do it with 100 IF else statements, it seems as though there must be an easier way.

 

[Scott Huish]

How exactly is it determined where in the sheet the value is going to go?

 

[olorin]

when the user selects an item from the named range in the list box, then enters a number in the text box, and clicks an "OK" button, I want the number to be placed in a cell relevant to the list box selection.
Thanx for your speedy reply

 

[Scott Huish]

OK, but can you give a sample of the choices and where they would go on the sheet? Does it need to go next to a description in the worksheeet? If so we could possibly search for that text in a range. Some more details would help.

 

[olorin]

I want the result from the userinput to be placed into the last empty cell in a column based on the selection highlighted in the named range in the listbox.
The listbox is populated by a list of cells from a named range "products". All the products in the list have different names, if for example the user selects product "x" from the listbox and then enters "50" in the textbox and then clicks "OK", I want the Value "50" to be entered into the last empty cell in column "C". If they select product "y" from the listbox I want the Value "50" to be entered into the last empty cell in the column "E".
Hope this helps.
Thanx again

 

[Scott Huish]

Put the columns in the Array statement in the order that the corresponding values are in the listbox, and perhaps something like this:

Private Sub CommandButton1_Click()
Dim x, r As Range
x = Array("C", "E")
If ListBox1.ListIndex <> -1 Then
    Set r = Range(x(ListBox1.ListIndex) & "65536").End(xlUp)
    If r <> "" Then Set r = r.Offset(1, 0)
    r = TextBox1
End If
End Sub

 

[olorin]

brilliant!!
Thanx for your time