E ai galera, bele? tenho uma planilha q soma minha producao por cor, funciona beleza, mas fica "maiomeno" assim: job.......data entrega.......corte.....qtde Job1.....22/09.................18/09....25......verde job2.....22/09..................19/09....30......verde job3....22/09...................19/09....30......vermelho job4....22/09...................18/09....30......vermelho job5....22/09...................19/09....10......vermelho digamos que os dois primeiro sao verdes, os 3 ultimos vermelhos, o retorno e então, evidente, verde 55, vermelhos 70. acontece que nao me da um resultado apurado, embora todos os trabalhos sejam para o mesmo dia, os cortes foram em datas diferentes, tem uma maneira de separar por data? ha uma maneira de inserir uma funcao sumif para comparar com a data, ai teria o seguinte: Corte..........18/09....19/09 Verde...........25.........30 Vermelho......30.........40 funcao q estou usando: Function SumByColor(CellColor As Range, SumRange As Range) Dim myCell As Range Dim iCol As Integer Dim myTotal iCol = CellColor.Interior.ColorIndex 'obtém a cor de destino For Each myCell In SumRange 'verifica cada célula no intervalo designado 'se a cor da célula corresponder á cor alvo If myCell.Interior.ColorIndex = iCol Then 'adiciona o valor da célula ao total myTotal = WorksheetFunction.Sum(myCell) + myTotal End If Next myCell SumByColor = myTotal End Function