problem with userform listbox

[paulsolar]

Hi All

I'm trying to populate listbox2 in a userform depending on the selection in listbox1

I've been going around in circles with this for a while without getting anywhere

below is what I have been trying

I have tried a few different methods without any luck

Any suggestions would be greatly appreciated

cheers

Paul

Private Sub ListBox1_Click()
  
    If ListBox1.ListIndex = -1 Then
        
        ListBox2.Clear
        
    Else
    
    If ListBox1.ListIndex = 0 Then
    
        ListBox2.List = Sheet4.Range("K1:K43") 'this is a names range singlesingle
        
    Else
    
     If ListBox1.ListIndex = 1 Then
        ListBox2.List = Sheet4.Range("O1:O35") 'this is a names range doublesingle
        
    Else
    
     If ListBox1.ListIndex = 2 Then
        ListBox2.List = Sheet4.Range("S1:S43") 'this is a names range doubledouble
        
    End If
    End If
    End If
    End If

End Sub

 

[Fluff]

Hello Paul, try adding .value to the ranges like

Listbox2.List = Sheet4.Range("K1:K43").Value

 

[Norie]

Try this.

Option Explicit

Private Sub ListBox1_Click()

    Select Case ListBox1.ListIndex
        Case -1
            ListBox2.Clear
        Case 0
            ListBox2.List = Sheet4.Range("K1:K43").Value    'this is a names range singlesingle
        Case 1
            ListBox2.List = Sheet4.Range("O1:O35").Value    'this is a names range doublesingle
        Case 2
            ListBox2.List = Sheet4.Range("S1:S43").Value    'this is a names range doubledouble
    End Select

End Sub

 

[paulsolar]

Try this.

Option Explicit

Private Sub ListBox1_Click()

    Select Case ListBox1.ListIndex
        Case -1
            ListBox2.Clear
        Case 0
            ListBox2.List = Sheet4.Range("K1:K43").Value    'this is a names range singlesingle
        Case 1
            ListBox2.List = Sheet4.Range("O1:O35").Value    'this is a names range doublesingle
        Case 2
            ListBox2.List = Sheet4.Range("S1:S43").Value    'this is a names range doubledouble
    End Select

End Sub

Thanks both, worked first time, I tried everything bar that

cheers

Paul

 

[Fluff]

Glad we could help & thanks for the feedback.