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
Respostas
lelebrasa
Membro
10 anos atrás
como posso deletar o post, cancelar?
obrigado