Listbox showing null

gmayor · #2 03-14-2020, 09:39 PM

Can we assume that this is part of a userform? It is not clear why you need two list boxes. Your message suggests that you should use a list box and a text box, thus

Code:

Private Sub ListBox1_Click()
Dim sMyStr As String
    sMyStr = ListBox1.value
    If sMyStr = "P21" Then
        TextBox1.Text = "41"
    ElseIf sMyStr = "P69" Then
        TextBox1.Text = "31"
    ElseIf sMyStr = "P62" Then
        TextBox1.Text = "11"
    ElseIf sMyStr = "P64" Then
        TextBox1.Text = "42"
    Else
        TextBox1.Text = ""
    End If
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
    With ListBox1
        For i = 21 To 69
            .AddItem "P" & i
        Next i
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to filter data before it is pulled into combobox/listbox AND remove data from listbox	Izzii0x	Excel Programming	8	05-24-2019 07:25 AM
Combine rows in one where other column is not null	Hanna	Excel	0	04-28-2017 07:31 AM
Help with Invalid Use of Null Error	electronicpizza	Word VBA	3	12-15-2014 02:15 AM
This is a Userform LIstbox queston: A variable does not set to the value of a listbox	CatMan	Excel Programming	14	08-18-2014 08:14 PM
This is a Userform LIstbox queston: A variable does not set to the value of a listbox	CatMan	Excel	1	08-08-2014 09:41 AM