Bom dia!
Tenho em uma planilha valores negativos e positivos na horizontal, estou tentando realizar a soma dos valores positivos e negativos separadamente mas não estou conseguindo, alguém consegue me ajudar?
Segue abaixo o que testei, consegui realizar a soma porém ele faz compensação, exemplo se tenho 1 e -1 na mesma linha o resultado exibido é 0.
Sub calculohorizontal()
Dim LR, linha As Long
LR = 5
linha = 5
Do Until Cells(linha, 1) = Empty
'TENTATIVA 1
Range("BK" & LR) = Application.WorksheetFunction.SumIf("H" & LR & ":BJ" & LR, " > 0")
'TENTATIVA 2
If Application.WorksheetFunction.Sum(Range("H" & LR & ":BJ" & LR).Value) > 0 Then
With ActiveSheet
.Range("BK" & LR).Value = Application.WorksheetFunction.Sum(.Range("H" & LR & ":BJ" & LR).Value)
End With
End If
LR = LR + 1
linha = linha + 1
Loop
End Sub
Soma Horizontal.txt