Problema cabecera listbox y alineación columna
Tengo problema con macro no consigo ponerle las cabeceras de la hoja de donde tira los datos, y tampoco consigo alinear a la derecha la columna 3 ya que es por importe, tengo el siguiente código:
If h.Range("B" & i) = ComboBox1.Value
With ListBox1
.AddItem
.ColumnCount = 3
.ColumnHeads = True
.ColumnWidths = "530;40;60"
.List(s, 0) = h.Range("F" & i)
.List(s, 1) = h.Range("G" & i)
.List(s, 2) = Format(h.Range("H" & i), "#,##0.00 €")
End With
suma = suma + h.Range("H" & i)
s = s + 1
End If
Respuesta de Jaime Segura
2
Desfortunadamente, la opción de cabeceras solo funciona cuando tomas los datos directamente de un rango con la propiedad Rowsource... no con cuando vas agregando items.. cosas de VBA.
Como alternativa podrías cargar los datos a una hoja temporal y luego obtenerlo de golpe desde alli con RowSource.
