Problem Execute button another sheet

[NerakSeven]

I create a button in sheet1 and this is works only in this sheet not in sheet46. The problem is I need this button in another page(sheet46) I mean call this action from another sheet46 with the same reference (check sheet 1 and sheet2)
Why don’t works?

Code:

Private Sub CommandButton1_Click()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lr1 As Long
Dim lr2 As Long
Set ws1 = Sheet(“Sheet1”)
Set ws2 = Sheet(“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("I2:I" & lr1), ws1.Range("A2:A" & lr1), Cells(x, "A")) Then
ws2.Cells(x, "I") = "Not correct"
End If
Next x



End Sub



I hope u can help me ,

Regards

 

[Fluff]

It would help us to help you if you gave us something more than "Why don’t works?".
Like do you get any error messages, if so what & where?

That said try these changes

Set ws1 = Sheet[COLOR=#ff0000]s[/COLOR]([COLOR=#ff0000]"[/COLOR]Sheet1[COLOR=#ff0000]"[/COLOR])
Set ws2 = Sheet[COLOR=#ff0000]s[/COLOR]([COLOR=#ff0000]"[/COLOR]Sheet2[COLOR=#ff0000]"[/COLOR])

 

[NerakSeven]

I change that , but not send me any error only dont works

Button Sheet “SUM2” works
Button Sheet “M” don’t works

Link the file : https://1drv.ms/f/s!AoDBxkYIpcK2gRGQNBIksyUU-F5J

 

[Norie]

Which sheet(s) are Cells meant to reference here?

If Cells(x, "B") <> Application.WorksheetFunction.SumIfs(ws1.Range("I2:I" & lr1), ws1.Range("A2:A" & lr1), Cells(x, "A")) Then

 

[Fluff]

Is the code you supplied in your OP the code for button "M"?

 

[NerakSeven]

thanks !! now works

Code:

 If ws2.Cells(x, "B") <> Application.WorksheetFunction.SumIfs(ws1.Range("B2:B" & lr1), ws1.Range("A2:A" & lr1), ws2.Cells(x, "A")) Then
        ws2.Cells(x, "D") = "Not correct"

Which sheet(s) are Cells meant to reference here?

If Cells(x, "B") <> Application.WorksheetFunction.SumIfs(ws1.Range("I2:I" & lr1), ws1.Range("A2:A" & lr1), Cells(x, "A")) Then