Macro to match the sum of both the colum n

[harshab6]

Hi

I want a macro which could find the sum of column E:E and R:R If sum matches then give a message both E and R Matches would you like the macro run further Yes or no, If the user selects yes then macro should run further, if the sum of E and R column doesn't match then give the msg as sum doesn't match please check.

Thanks and Regards,
Harsha

 

[JLGWhiz]

This will do what you describe, but I don't understand why you want to repeat the macro if the values match. It will just give the same results. In an event here is the code.

Sub t()
Dim rng1 As Range, rng2 As Range, ans As Variant
CYC:
With ActiveSheet
    Set rng1 = .Range("E2", .Cells(Rows.Count, 5).End(xlUp))
    Set rng2 = .Range("R2", .Cells(Rows.Count, 18).End(xlUp))
    If Application.Sum(rng1) = Application.Sum(rng2) Then
        ans = MsgBox("The values match.  Do you want to repeat the test?", vbYesNo + vbQuestion, "CONTINUE?")
            If ans = vbYes Then
                GoTo CYC:
            End If
    Else
        ans = MsgBox("The values do not match.  Please validate entries.")
    End If
End With
End Sub

 

[harshab6]

Awesome it works.

Thanks for help,
Harsha

 

[JLGWhiz]

Awesome it works.

Thanks for help,
Harsha

You're welcome,
Regards, JLG