View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
RB Smissaert RB Smissaert is offline
external usenet poster
 
Posts: 2,452
Default How can I make an error message pop up for a user?


Something like this should do the job:

Sub test()

Dim i As Long
Dim LR As Long
Dim arr

LR = Cells(65536, 1).End(xlUp).Row

arr = Range(Cells(1), Cells(LR, 4))

For i = 1 To UBound(arr)
If arr(i, 1) + arr(i, 2) + arr(i, 3) + arr(i, 4) < 1 Then
Range(Cells(i, 1), Cells(i, 4)).Select
MsgBox "row " & i & " (the selected range) does not add up to 100%!",
_
vbCritical, "checking row sums"
End If
Next i

End Sub


RBS


"Can't do Macros" <Can't do wrote in
message ...
I have a sheet with a list of employees that has percentages listed in 4
columns out from their name. How can I get an error message to pop up for
any row that doesn't equal 100% when you add up the 4 columns in each row?
Therefore, I want the macro to loop around so that it goes down the sheet
summing the 4 columns for each employee and an error message will pop when
it
hits a row that doesn't equal 100%.