Pregunta para Luis Mondelo!

Luis: Mira tengo 2 ComboBox combinados (comboBox1 y ComboBox2). Donde los datos para ir completando los combobox (1 y 2) están en una hoja de calculo ("Datos Repuestos")

Yo para poder hacer la combinación de esos combobox (1 y 2) Tengo dos macros.

ComboBox1:

Private Sub ComboBox1_Change()

ComboBox2.Clear

Sheets("Datos Repuestos").Select

columna = ComboBox1.ListIndex + 1

Cells(2, columna).Select

Do While Not IsEmpty(ActiveCell)

ComboBox2.AddItem ActiveCell

ActiveCell.Offset(1, 0).Select

Loop

End Sub

Y en el UserForm tengo esta macro:

Private Sub UserForm_Initialize()

Sheets("Datos Repuestos").Select

Range("A1").Select

Do While ActiveCell <> Empty

ComboBox1.AddItem ActiveCell.Value

ActiveCell.Offset(0, 1).Select

Loop

End Sub

Pero necesito hacer la combinación de 2 combobox mas que están en el mismo UserForm!!

¿Como le digo al UserForm que TAMBIÉN QUIERO QUE ME TOME LO MISMO PARA

Sheets("Datos Vehículos").Select .??. En esta hoja ("datos Vehículos") tengo los datos para los otros dos ComboBox que quiero combinar

Se entendio???

1 Respuesta

Respuesta
1

Entiendo que quieres vincular esos dos nuevos combos igual que hiciste con el combobox2. Entonces tienes que repetir el proceso que hiciste con el anterior:

Private Sub ComboBox1_Change()
ComboBox3.Clear
Sheets("Datos vehículos").Select
columna = ComboBox1.ListIndex + 1
Cells(2, columna).Select
Do While Not IsEmpty(ActiveCell)
ComboBox3.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Es esto lo que necesitas??

No no!!. Esa macro me serviría si yo quiero cambiar de ComboBox

Yo quiero agregar comboBox Independientemente de los comboBox 1 y 2.

Yo tengo vinculado el ComboBox1 Con el ComboBox2

Y ahora quiero Vincular (en el mismo UserForm) El comboBox 3 con el ComboBox4.

Los datos para el comboBox 3 y 4 están en la hoja "Datos Vehículos".

Se entendio??

Entonces las macros serían así:

ComboBox3:
Private Sub ComboBox3_Change()
ComboBox4.Clear
Sheets("Datos vehículos").Select
columna = ComboBox3.ListIndex + 1
Cells(2, columna).Select
Do While Not IsEmpty(ActiveCell)
ComboBox4.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Y en el UserForm tengo esta macro:
Private Sub UserForm_Initialize()

Sheets("Datos Repuestos").Select
Range("A1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Loop

Sheets("Datos vehículos").Select
Range("A1").Select
Do While ActiveCell <> Empty
ComboBox3.AddItem ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Loop

End Sub

EXCELENTE!!

MIRA VOS!! BUENÍSIMO LUIS!!

MUY BIEN BAILABA EL ENANO, PERO NADIE LO SACABA A BAILAR!!!!

MUCHAS GRACIAS!!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas