Rodrigo Leandro Butigeli

boa tarde pessoal, tenho uma planilha de pontuação e preciso de uma macro que configure uma certa formação (cor) quando clico em algumas células. estou enviando a planilha com as idéias de soma que tive (somando as células coloridas de preto) usando o pincel de formatação funciona bem, existe uma maneira mais fácil? usei essa macro para somar a cor: Public Function SOMACOR(Cor As Range, Intervalo As Range) As Double Dim i As Range For Each i In Intervalo If i.Interior.Color = Cor.Interior.Color Then SOMACOR = SOMACOR + i.Value End If Next Application.Volatile End Function defino uma cor para as células que devem ter seu valor somado o que me falta é uma maneira de clicar na célula desejada e ela mudar para essa cor. nessa macro dando duplo clic adiciona um "." na celula, tem como alterar para que a célula fique toda preta e a fonte branca? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True ActiveCell = "•" End Sub desde já agradeço Planilha Pontuação.xlsx