Se puder utilizar Função definida pelo usuário, segue mais uma sugestão.
Faça testes e verifique se os resultados são os esperados.
Public Function SOMARCOD(pcod As Range) As Long
Application.Volatile
Dim ilin, flin, icol, fcol As Integer
Dim soma As Long
Dim cod As String
ilin = 3
flin = Range("A1048576").End(xlUp).Row
icol = 4
fcol = Range("IV2").End(xlToLeft).Column - 3
soma = 0
cod = pcod.Value
Do While icol <= fcol
Do While ilin <= flin
If Cells(ilin, icol + 3) = cod Then
soma = soma + Cells(ilin, icol) * 24
End If
ilin = ilin + 1
Loop
ilin = 2
icol = icol + 7
Loop
SOMARCOD = soma
End Function
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/12/2017 6:24 pm