Rellenar Columna de Un ListView1

[pkj]

If blablabla.... then CambiaColorColumna TuListView, 4, vbRed

Código :

Sub CambiaColorColumna(ControlListView As ListView, NumColumna As Integer, NuevoColor As Variant)
  Dim F As Long
  For F = 1 To ControlListView.ListItems.Count
    ControlListView.ListItems(F).ListSubItems(NumColumna).ForeColor = NuevoColor
  Next F
  ControlListView.Refresh
End Sub
 

Saludos