Combobox Estados Municipio

Con la molestia si me pueden ayudar, quiero hacer un Formulario, donde utilice 2 ComboBox, uno para los Estados y el otro para los Municipios, claro que al seleccionar un Estado, en el siguiente combobox me despliegue los Municipio de dicho estado

1 Respuesta

Respuesta
1
Lo que debes hacer es en el evento click del combo1 es colocar que según el texto incluido en el mismo, serán mostrados determinados ítems en el combo2, te pondré un ejemplo:
Coloca 2 ComboBox (Combo1 y Combo2)
Luego ingresa este código en tu formulario, es un ejemplo que al seleccionar un país muestra algunas ciudades y capitales etc.
Option Explicit
Private Sub Combo1_Click()
Dim Texto As String
Texto = Combo1.Text
Combo2.Clear
Select Case Texto
       Case Is = "Paraguay"
            Combo2. AddItem "Asuncion"
            Combo2. AddItem "Otros Estados"
       Case Is = "Argentina"
            Combo2. AddItem "Mendoza"
            Combo2. AddItem "Buenos Aires"
            Combo2. AddItem "Cordoba"
       Case Is = "Uruguay"
            Combo2. AddItem "Montevideo"
            Combo2. AddItem "Colonia"
            Combo2. AddItem "Rocha"
       Case Is = "Peru"
            Combo2. AddItem "Lima"
            Combo2. AddItem "Otros Estados"
       Case Is = "Bolivia"
            Combo2. AddItem "La Paz"
            Combo2. AddItem "Otros Estados"
       Case Is = "Chile"
            Combo2. AddItem "Santiago De Chile"
            Combo2. AddItem "Otros Estados"
       Case Is = "Colombia"
            Combo2. AddItem "Bogota"
            Combo2. AddItem "Otros Estados"
End Select
End Sub
Private Sub Form_Load()
Combo1. AddItem "Paraguay"
Combo1. AddItem "Argentina"
Combo1. AddItem "Uruguay"
Combo1. AddItem "Peru"
Combo1. AddItem "Bolivia"
Combo1. AddItem "Chile"
Combo1. AddItem "Colombia"
End Sub

Espero te sirva, luego me cuentas,
Agradezco el interés mostrado a mi pregunta modifique el código según Visual Basic y me funciono el código que puse es el siguiente:
Option Explicit
Private Sub ComboBox1_Click()
Dim Texto As String
Texto = ComboBox1.Text
ComboBox2.Clear
Select Case Texto
Case Is = "Paraguay"
ComboBox2.AddItem "Asuncion"
ComboBox2.AddItem "Otros Estados"
Case Is = "Argentina"
ComboBox2.AddItem "Mendoza"
ComboBox2.AddItem "Buenos Aires"
ComboBox2.AddItem "Cordoba"
Case Is = "Uruguay"
ComboBox2.AddItem "Montevideo"
ComboBox2.AddItem "Colonia"
ComboBox2.AddItem "Rocha"
Case Is = "Peru"
ComboBox2.AddItem "Lima"
ComboBox2.AddItem "Otros Estados"
Case Is = "Bolivia"
ComboBox2.AddItem "La Paz"
ComboBox2.AddItem "Otros Estados"
Case Is = "Chile"
ComboBox2.AddItem "Santiago De Chile"
ComboBox2.AddItem "Otros Estados"
Case Is = "Colombia"
ComboBox2.AddItem "Bogota"
ComboBox2.AddItem "Otros Estados"
End Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Paraguay"
ComboBox1.AddItem "Argentina"
ComboBox1.AddItem "Uruguay"
ComboBox1.AddItem "Peru"
ComboBox1.AddItem "Bolivia"
ComboBox1.AddItem "Chile"
ComboBox1.AddItem "Colombia"
End Sub
Nuevamente gracias y por aquí estaré dando un poco de lata, Excelente página, en horabuena a todos los colaboradores y expertos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas