Buscar V Formulario Excel

Estoy construyendo un formulario... Pero quiero Que en un texbox ,me use un buscarV

es decir Si voy

completar el formulario asi..

Ciudad:

Código:

2 Bogotá

3 Madrid

Que si pongo el código me salga la ciudad

Y en caso que no me sepa el código también En la ciudad Pueda seleccionar la ciudad de la lista desplegable y que me traiga el código de la ciudad please GRacias )

1 respuesta

Respuesta
1

Utiliza el siguiente código

Private Sub ComboBox1_Change()
ComboBox2 = Cells(ComboBox1.ListIndex + 2, "B")
End Sub
Private Sub ComboBox2_Change()
ComboBox1 = Cells(ComboBox2.ListIndex + 2, "A")
End Sub

Pero los Rangos Están en la hoja 1

Columna A y B

peor no me sale

Tengo agregado el rowSource Asi

=Hoja1!A1:A50

Me salen los Datos pero no funciona

o como grago los datos al Combo box ¡¡¡?

Este es mi código completo

Private Sub ComboBox1_Change()
ComboBox2 = Cells(ComboBox1.ListIndex + 2, "B")
End Sub
Private Sub ComboBox2_Change()
ComboBox1 = Cells(ComboBox2.ListIndex + 2, "A")
End Sub
Private Sub UserForm_Activate()
'Por.DAM
ComboBox1.RowSource = "A2:A10"
ComboBox2.RowSource = "B2:B10"
End Sub

Pon tus datos del combo1 en la columna A. Los del combo2 en la B

Pruébalo

Saludso. DAM

Excelente.. pero digamos que lo tenga en la Hoja

Agrega la hoja, por ejemplo

ComboBox1.RowSource = "hoja1!A2:A10"

ComboBox2.RowSource = "hoja1!B2:B10"

Private Sub ComboBox1_Change()
ComboBox2 = sheets("Hoja1").Cells(ComboBox1.ListIndex + 2, "B")
End Sub
Private Sub ComboBox2_Change()
ComboBox1 = sheets("Hoja1").Cells(ComboBox2.ListIndex + 2, "A")
End Sub

Cambia hoja1 por el nombre de tu hoja

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas