Fórum

Techtudo

PUBLICIDADE

lelebrasa

Membro

combinar uma macro soma por cor com data

Perguntou 10 anos atrás

E ai galera, bele?
tenho uma planilha q soma minha producao por cor, funfa 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 entao, 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

PUBLICIDADE

Respostas

lelebrasa

Membro

10 anos atrás

como posso deletar o post, cancelar?

obrigado

PUBLICIDADE