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

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"