combinar macro vba (excel) com data

lelebrasa · 23 de setembro de 2014

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