Marcelo,
Ótimo, porém, entretanto, preciso inserir um if para Renda, a qual encontra-se na primeira e segunda linha da listview. Esse If fará a seguinte análise:
Se o valor do realizado > que o valor orçado = Fonte Verde.
Se o valor do realizado < que o valor orçado = Fonte Vermelha.
Eu tentei fazer isso, mas não consegui!
=/
Alisson, o que fiz foi somente uma parte para você ter uma noção e ajustar a rotina conforme sua necessidade, esta é a base de tudo, mas não entendi o que quer dizer "inserir um if para Renda, a qual encontra-se na primeira e segunda linha da listview", eu somente me atentei se o valor da segunda linha for menor que a primeira, mas se quer adicionar uma segunda condição, não precisa de outro IF é só completar com ELSE a linha que faz a comparação, por exemplo :
Esta linha verifica se o valor abaixo é maior que o acima :
If Worksheets("Data").Range("C" & pos) > Worksheets("Data").Range("C" & pos - 1) Then .ListItems(lv_item).ListSubItems.Item(2).ForeColor = RGB(255, 0, 0)
então ajustaríamos para :
If Worksheets("Data").Range("C" & pos) > Worksheets("Data").Range("C" & pos - 1) Then .ListItems(lv_item).ListSubItems.Item(2).ForeColor = RGB(255, 0, 0) Else .ListItems(lv_item).ListSubItems.Item(2).ForeColor = RGB(0, 128, 0)
Quanto a condição MAIOR ou MENOR é só alterar o sinal, e quanto as cores, veja nesta tabela - http://dmcritchie.mvps.org/excel/colors.htm , e ajuste conforme quiser.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/09/2015 6:44 am