Prevent Marco from running if # in cell is incorrect

[Fixxer49]

Hi,
I recorded a macro and created a button to run it. Everything works. I would like to prevent the macro from running (when the button is clicked) if cell F56 does not equal 100. Perhaps a warning pops up saying "Total Does Not Equal 100". If F56 equals 100 then the macro can run. Thanks in advance for the help!

 

[pboltonchina]

Can you post your macro?

 

[John Davis]

At the beginning of your macro add this:

Sub fixxer49()

If Range("F56").Value <> 100 Then

    MsgBox "Total Does Not Equal 100"
    
    Exit Sub
    
End If

End Sub

 

[JLGWhiz]

Insert this snippet at the beginning of your macro:

Code:
If Range("F56") <> 100 Then
MsgBox "TOTAL NOT EQUAL TO 100!",vbInformation, "INVALID TOTAL"
Exit Sub
End If
Code:

 

[Fixxer49]

Below is the Macro. Cell F56 is in the "PM Analyst Results" tab. Cell F56 is the sum of F9:F53 in the "PM Analyst Results". Thanks again for all the help!



Sub SubmitandSend()
'
' SubmitandSend Macro
'

'
Range("A9:G53").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWorkbook.Worksheets("PM Analyst Results").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PM Analyst Results").Sort.SortFields.Add Key:= _
Range("F9:F53"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("PM Analyst Results").Sort
.SetRange Range("A9:G53")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2:G2").Select
Application.Dialogs(xlDialogSendMail).Show
End Sub

 

[Fixxer49]

Thanks for the help! The insert didn't seem to work. It worked when i simply typed 100 into the cell F56 but when F56 was summing other cells to equal 100 the macro wouldn't work. Again, i really appreciate the help.

 

[Fixxer49]

I got it! thanks again everybody!

 

[Fixxer49]

i spoke too soon... it looks like it is a rounding issue. it seems even though the formatting only in F56 goes out two decimal places if you increase it you can see that it is not exactly 100. is there a way to truncate?