Amigo Wagner muito obrigado!
Com a sua dica consegui chegar a uma adaptação para o que eu realmente precisava:
Sub NegritarColunaListView()
'Esta macro foi desenvolvida por Mauro Coutinho no fórum Planilhando _
e permite colocar em negrito e em cores uma determinada coluna do ListView
With UserForm1.ListView1
For j = 1 To .ListItems.Count
If .ListItems(j).ListSubItems(20).Text = "sim" Then
.ListItems(j).ListSubItems(7).ForeColor = RGB(255, 0, 0)
'.ListItems(j).Bold = False
End If
Next j
End With
End Sub
Obrigado novamente!
Abrç!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 13/12/2017 2:27 pm