Gente del foro:
Tengo un Combobox que tiene 3 columnas. En cada columna se incorporan
registros de una tabla, como por ejemplo:
1 Córdoba A, XXXX $ 2,000.00
2 Buenos Aires Unicenter UUUUU $ 9,502,50
3 Mar del Plata Shopping LG YYYY $ 7,801,00
...
Mediante una macro se incorporan los registros en 3 columnas dentro del
ComboBox1. Ahora, todas las columnas del combobox son del mismo ancho y como
veran no todos los datos necesitan el mismo ancho, porque me quedan los
datos de la primer columna en un ancho excesivamente grande y los de la
segunda demasiado corto y queda incomodo visualmente a la hora de elegir una
opción. La macro con que incorpra los datos al combobox es esta:
Private Sub ComboBox1_Enter()
Me.ComboBox1.ColumnCount = 3
Dim wksH As Worksheet
Dim lngMáxFila As Long, i As Long, mtr()
Set wksH = ThisWorkbook.Worksheets("Parametros")
lngMáxFila = Application.WorksheetFunction.Max _
(wksH.Range("A65536").End(xlUp).Row, _
wksH.Range("B65536").End(xlUp).Row, _
wksH.Range("C65536").End(xlUp).Row)
ReDim mtr(1 To lngMáxFila, 1 To 3)
For i = 1 To lngMáxFila
mtr(i, 1) = wksH.Cells(i, 3).Value
mtr(i, 2) = wksH.Cells(i, 2).Value
mtr(i, 3) = wksH.Cells(i, 1).Value
Next i
Me.ComboBox1.List = mtr
Set wksH = Nothing
End Sub
Como se hace para especificar el ancho de cada columna dentro del combobox?
Desde ya muchas gracias!!
CONTADURIA
Leer las respuestas