Relacionar un Combobox y busque datos en otro Combobox

Estoy desarrollando una UserForm en Excel 2007 y el objetivo es que al ingresar el dato en el primer Combobox automáticamente aparezca la relación en el siguiente combobox y viceversa a partir de una hoja de Excel como base de datos Ejemplo:

Hoja 1: 

CODIGO               DESCRIPCIÓN 

1001                      JORGE PEREZ 

1002                     ANA PEREZ 

...

Si en el COMBOBOX1 ingreso 1001 en el COMBOBOX2 aparezca JORGE PEREZ

Y SI EN EL COMBOBOX2 ingreso JORGE PEREZ en el COMBOBOX1 aparezca 1001. No me conviene utilizar aquí un listbox ya que la misma es estatica, y me es necesario tener la posibilidad de utilizar ambos criterios de busqueda.

Blás

1 Respuesta

Respuesta
2

Puedes poner el código o cómo estás cargando los datos en el combo1 y 2

El código que utilizo hasta ahora es el siguiente:

Private Sub UserForm_Initialize
Sheets("PRESTAMOS DE USUARIOS").Select
Range("A5").Select 
While ActiveCell <> ""
cbm_NCI.AddItem ActiveCell  ' COMBOBOX1
ActiveCell.Offset(1,0).Select
Wend 
Sheets("PRESTAMOS DE USUARIOS").Select
Range("B5").Select 
While ActiveCell <> ""
cbm_US.AddItem ActiveCell  ' COMBOBOX2
ActiveCell.Offset(1,0).Select
Wend 
End Sub

Te anexo la macro completa:

Dim cargando
Private Sub cbm_NCI_Change()
'Por.Dante Amor
    If cargando Then Exit Sub
    cargando = True
    cbm_US = ""
    If cbm_NCI.ListIndex > -1 Then
        cbm_US = cbm_US.List(cbm_NCI.ListIndex)
    End If
    cargando = False
End Sub
'
Private Sub cbm_US_Change()
'Por.Dante Amor
    If cargando Then Exit Sub
    cargando = True
    cbm_NCI = ""
    If cbm_US.ListIndex > -1 Then
        cbm_NCI = cbm_NCI.List(cbm_US.ListIndex)
    End If
    cargando = False
End Sub
'
Private Sub UserForm_Initialize()
    Sheets("PRESTAMOS DE USUARIOS").Select
    Range("A5").Select
    While ActiveCell <> ""
        cbm_NCI.AddItem ActiveCell              ' COMBOBOX1
        cbm_US. AddItem ActiveCell. Offset(0, 1) ' COMBOBOX2
        ActiveCell.Offset(1, 0).Select
    Wend
End Sub

NOTAS: 

1. Revisa que al principio (declaraciones) de todo el código quede la variable cargando

2. Le hice un ajuste al código para cargar el combobox2:

Private Sub UserForm_Initialize()
    Sheets("PRESTAMOS DE USUARIOS").Select
    Range("A5").Select
    While ActiveCell <> ""
        cbm_NCI.AddItem ActiveCell              ' COMBOBOX1
        cbm_US. AddItem ActiveCell. Offset(0, 1) ' COMBOBOX2
        ActiveCell.Offset(1, 0).Select
    Wend
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

¡Gracias!por tomarse la molestia de responder a mi problema, El código  funciona perfectamente.

Saludos 

               Blás 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cargar datos filtrados en un Combobox

Tengo dos combobox, el combobox1 se rellena con los datos de la hoja clientes y el combobox2 aplica un filtro por nombre de cliente del combobox1 en la hoja presupuestos. El problema es que a pesar de que en la hoja de presupuestos los datos se...
1 respuesta

Lista Combobox se duplica

Tengo en un formulario un combobox que se carga de un rango de lista cada que se active dicho formulario, además, la lista se puede ir ampliando accediendo a otro formulario desde el formulario principal, el problema es que al activarse nuevamente el...
1 respuesta

Tres ComboBox Dependientes

Mi inquietud es sobre lo siguiente deseo hacer un archivo en excel el cual contiene tres combobox dependientes, en el primero seleccionar el Estado, el segundo seleccionar las Ciudades del Estado seleccionado y en el tercer los barrios de la ciudad...
1 respuesta

Llenado de ComboBox

Dentro del formulario en la Hoja1 está el ComboBox, los datos en la hoja 2, en esta rutina ¿Como seria para que no saltara a la hoja donde están los datos(Hoja2) Private Sub UserForm_Initialize() [a2].Select Do While ActiveCell <> ""...
1 respuesta

Uso Userform para alimentar una base de datos con fechas pero las registra invirtiendo el formato

Tengo una macro cuyo código es el siguiente: Private Sub Userform_Initialize() Sheets("Listas").Select Range("A1").Select While ActiveCell <> "" ComboBox1.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Wend Sheets("INICIO").Select End Sub Private...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente: Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en...
2 respuestas

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

Texbox que dependa de combobox

Estimados Expertos hice un userfomr con un combobox y un textbox, lo que pretendo es rellenar el combobox con la información de las caldas B2 hasta b10 de la hoja "códigos" por ejemplo, y que al seleccionar poe ejemplo la información de la celda B3...
1 respuesta