Listbox to ComboBox

[josros60]

Hi,

how can i chang the code below to work in ComboBox1 instead listbox.

Code:

Private Sub ComboBox1_Change()Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Select Case ListBox1.List(i)
Case "Allstream"
    Call Allstream
        Case "ANI NETWORKS"
    Call ANINET
        Case "AT&T"
    Call At
        Case "ATT"
    Call ATT
        Case "COGECO"
    Call MyPeer
        Case "Cogent"
    Call Cogent
     Case "CityWest"
    Call CityWest
        Case "EQUNIX"
    Call EQUINIX
        Case "BELLMTS"
    Call mts
        Case "Rogers Business Solutions"
    Call Rogers_Login
        Case "SHAW BUSINESS"
    Call SHAW
        Case "SOMOS"
    Call SomosLogin
        Case "VOXBONE"
    Call VOXBONE
        Case "TECHDATA CENTRE"
    Call TECHDATA
        Case "CANAD POST"
    Call CanadaPost
        Case "PUROLATOR COURIER"
    Call PUROLATOR
        Case "THINKTEL 913"
    Call THINKTEL20000913
        Case "THINKTEL 448"
    Call THINKTEL20000448
        Case "XO COMMUNICATIONS"
    Call XOMCOMMUNICATIONS
        Case "ZAYO ALLSTREAM"
    Call ZAYO
End Select
End If
Next i
End Sub

thanks

 

[DanteAmor]

The MultiSelect property does not exist in the combobox, I suppose, you are only going to select an item, then

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = -1 Then Exit Sub
    Select Case ComboBox1
        Case "Allstream":                   Call Allstream
        Case "ANI NETWORKS":                Call ANINET
        Case "AT&T":                        Call At
        Case "ATT":                         Call ATT
        Case "COGECO":                      Call MyPeer
        Case "Cogent":                      Call Cogent
        Case "CityWest":                    Call CityWest
        Case "EQUNIX":                      Call EQUINIX
        Case "BELLMTS":                     Call mts
        Case "Rogers Business Solutions":   Call Rogers_Login
        Case "SHAW BUSINESS":               Call SHAW
        Case "SOMOS":                       Call SomosLogin
        Case "VOXBONE":                     Call VOXBONE
        Case "TECHDATA CENTRE":             Call TECHDATA
        Case "CANAD POST":                  Call CanadaPost
        Case "PUROLATOR COURIER":           Call PUROLATOR
        Case "THINKTEL 913":                Call THINKTEL20000913
        Case "THINKTEL 448":                Call THINKTEL20000448
        Case "XO COMMUNICATIONS":           Call XOMCOMMUNICATIONS
        Case "ZAYO ALLSTREAM":              Call ZAYO
    End Select
End Sub

 

[josros60]

Thank you very much.

After i right click combobox and entered in ListFillRange = LIST but dissapear when click combo is empty.

Thanks again.

 

[DanteAmor]

Thank you very much.

After i right click combobox and entered in ListFillRange = LIST but dissapear when click combo is empty.

Thanks again.

I did not understand. What disappears?

 

[josros60]

when add LiST to ListFillRange property will show name in the combobox.

there is a field ListFillRange = LIST to show the names in the combobox.

 

[DanteAmor]

when add LiST to ListFillRange property will show name in the combobox.

there is a field ListFillRange = LIST to show the names in the combobox.

Sorry, but I still do not understand. Does this have to do with the code I sent you?

Is "List" a named range?

Sorry, but I still do not understand. Does this have to do with the code I sent you?
List is a named range?
But the name should not appear in the combobox, what should appear in the combobox are the data contained in the named range.

 

[josros60]

Yes,
List is a named range.

 

[DanteAmor]

Yes,
List is a named range.

So what is the problem?

And Does this have to do with the code I sent you?

 

[josros60]

The problem is that when click the combobox doesn't show any names it's blank.

 

[DanteAmor]

The problem is that when click the combobox doesn't show any names it's blank.

What other properties did you modify in the combobox?
Did you modify something in the code I sent you?
Do you have other codes on your sheet?
If you give me all the information, I can help you with pleasure.