Macro SUM values

[NerakSeven]

Check in Sheet 1 the sum of the field “Long” is equal “Long” in Sheet 2 for the same “code” where “Ap” is “0”. If this is not correct put in sheet 2 in column “Sum” the value “Not correct”.



Sheet 1

Code	Long	Ap
15-15	100	0
16-16	50	1
15-15	100	0
14-14	50	0
14-14	50	0
16-16	5	1

<tbody>
</tbody>

Sheet 2

Code	Long	Sum
15-15	2350	Not correct
14-14	100
16-16	87

<tbody>
</tbody>

 

[NerakSeven]

Please help me , I dont know how i do

Regards

 

[Joe4]

Based on your example, place this formula in cell C2 on Sheet 2 and copy down to C4:

=IF(SUMIFS(Sheet1!B$2:B$7,Sheet1!A$2:A$7,'Sheet 2'!A2,Sheet1!C$2:C$7,0)=B2,"","Not correct")

 

[Scott T]

Try
I assume this is I column A though C in both sheets and the sheets are named Sheet1 and Sheet2.

Sub csum()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lr1 As Long
Dim lr2 As Long
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
lr1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
lr2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
For x = 2 To lr2
    If Cells(x, "B") <> Application.WorksheetFunction.SumIfs(ws1.Range("B2:B" & lr1), ws1.Range("C2:C" & lr1), 0, ws1.Range("A2:A" & lr1), Cells(x, "A")) Then
        ws2.Cells(x, "C") = "not correct"
    End If
Next x

End Sub

 

[NerakSeven]

Thanks works sums but not when "Ap" is zero.

Again Thanks

Try
I assume this is I column A though C in both sheets and the sheets are named Sheet1 and Sheet2.

Sub csum()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lr1 As Long
Dim lr2 As Long
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
lr1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
lr2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
For x = 2 To lr2
    If Cells(x, "B") <> Application.WorksheetFunction.SumIfs(ws1.Range("B2:B" & lr1), ws1.Range("C2:C" & lr1), 0, ws1.Range("A2:A" & lr1), Cells(x, "A")) Then
        ws2.Cells(x, "C") = "not correct"
    End If
Next x

End Sub