MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Sum user selections in different colums

Posted by Graham Shaw on February 15, 2001 4:34 AM

My user will be selecting multiple cells (not necessarily adjacent) in 2 different columns that should add to the same value for each column. I need a macro that checks that the total of those selected in the first column equals the value of those selected in the second column. If the totals are OK I then want to copy the values selected to another part of the worksheet.

Any help will be appreciated.

Posted by Dave on February 15, 2001 6:37 AM

Hi Graham

This should do the trick

Sub TryThis()
Dim Sele1 As Range
Dim sele2 As Range

Set Sele1 = Selection.Areas(1)
Set sele2 = Selection.Areas(2)

With WorksheetFunction
If .Sum(Sele1) <> .Sum(sele2) Then
MsgBox "Not equal"
MsgBox "Equal"
End If
End With
End Sub


OzGrid Business Applications

Posted by Graham Shaw on February 15, 2001 7:39 AM

What service! Thanks.