publicado el 29 de junio4 años Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(ComboBox10.ListCount - 1, 5) = BD.Range("G" & x_Busco) .List(ComboBox10.ListCount - 1, 6) = BD.Range("I" & x_Busco) .ColumnWidths = "85;60;60;50;80;60" .ColumnHeads = True End With Agradezco quien pueda ayudarme. Saludos, Jairo Arango
publicado el 29 de junio4 años Los encabezados solo son compatibles si el llenado del combobox/listbox se hace a través de la propiedad RowSource con un rango continuo. Ejemplo: ComboBo1.RowSource = "Hoja1!A2:F20"
Queridos colegas tengan buen día.
Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox.
Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo.
codigo:
With ComboBox10
.AddItem BD.Range("A" & x_Busco)
.List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco)
.List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco)
.List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco)
.List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco)
.List(ComboBox10.ListCount - 1, 5) = BD.Range("G" & x_Busco)
.List(ComboBox10.ListCount - 1, 6) = BD.Range("I" & x_Busco)
.ColumnWidths = "85;60;60;50;80;60"
.ColumnHeads = True
End With
Agradezco quien pueda ayudarme.
Saludos,
Jairo Arango