Hola creo entender algo de lo que quieres,
prueba esto
primer combobox
suponiendo que tus datos estan en la hoja2
Private Sub ComboBox1_Change()
Dim i As Integer
Dim final As Integer
For i = 2 To 1000
If Hoja2.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
If ComboBox1.Text = Hoja2.Cells(i, 1) Then
Label1.Caption = Hoja2.Cells(i, 2)
Label2.Caption = Hoja2.Cells(i, 3)
Exit For
End If
Next
End Sub
para el segundo combo tendrías que agregar algo asi
pensando que la lista de ciudades esta en la columna B
if ComboBox1.Text = hoja2.cells(i,1) then
Hoja2.Select
Range("b1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox2.AddItem ActiveCell
Loop
end if
solo adaptalo a tu formulario
Espero te sea útil
Saludos
