VBA to calculate TOTAL based on condition

[aruncr]

Hello Experts,


I have a workbook with 2 sheets.


I request your help with a VBA macro in Sheet1 to calculate totals in case the Sales and Purchases for an item are equal.
The sample output should be as in Sheet2.


Thanks in advance.

[paulked]

Sub KedTest()
    Dim lr As Long, rw As Long, p As Long, s As Long, t As Double
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For rw = 2 To lr
        t = 0
        p = 0
        s = 0
        Do Until Cells(rw, 1) = ""
            Cells(rw, 1).Select
            If Cells(rw, 2) = "Sales" Then s = s + Cells(rw, 4)
            If Cells(rw, 2) = "Purchase" Then p = p + Cells(rw, 4)
            t = t + Cells(rw, 6)
            rw = rw + 1
        Loop
        If s = p Then Cells(rw, 6) = t
    Next
End Sub

[aruncr]

Hello paulked,

Thanks a lot for your help.