Este fórum está sendo desativado

[Eduardo12fox]

Bom dia pessoal,
Sou novo no forúm e não sei se estou postando corretamente. Tenho uma Macro no meu excel que faz um calculo de uma tabela e coloca o resultado na última linha dessa tabe. eu faço essa macro assim:

Dim Somatorio

Somatorio = Worksheets("DADOS").Range("I2")

Cells(Rows.Count, "C").End(xlUp).Offset(1) = Format(Somatorio, "Currency")

Agora gostaria de saber como coloco uma cor verde nessa única celula que eu apresentei a soma


Att

[LzMonteiro]

Bom dia Eduardo.

Use formatação condicional, especificando uma condição de formatação.

Abra a Guia (aba) Inicial e procure "Formatação Condicional", depois em "Realçar Regras da célula".
Agora é só escolher uma condição ao que vc precisa.

Obs. Selecione a célula em que deseja add a condição.

Dúvidas estou à disposição!

Att.

[SECUNA]

Depois da seu código que joga somatória na ultima célula, cole seguinte codigo:
Range("C1", Range("C1").End(xlDown)).Interior.ColorIndex = xlNone
Range("C1").End(xlDown).Interior.ColorIndex = 4

[Eduardo12fox]

Secuna,

Sua resposta foi exatamente o que eu precisava. Me atendeu perfeitamente!!! Muito obrigado.