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
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