VB Excel Code returning my error message twice instead of once....
 

Private Sub CheckBox3_Click()
If CheckBox3 = True And Range("C2").Value = "1" And CheckBox2 = True
And Range("E2").Value = "Comments Cleared" Or Range("E2").Value = "No
Comments" Then
Range("f2").Value = "1"
End If
If CheckBox3 = True And CheckBox2 = False And Range("C2").Value < "1"
Or Range("C2").Value "1" And Range("E2").Value = "...Please Select..."
Or Range("E2").Value = "See Comments" Then
yourMsg = MsgBox("Workpaper must be completed, reviewed by
Senior/Manager, and comments must be addressed in order to pass to
Manager/Partner for review!", 0, "Error")
CheckBox3 = False
Range("f2").Value = "0"
End If
End Sub


the prior check box uses this code:

Private Sub CheckBox2_Click()
If CheckBox2 = True And Range("C2").Value < "1" Or Range("C2").Value
"1" Then
yourMsg = MsgBox("Workpaper must be 100% complete to pass on
to manager review", 0, "Error")
CheckBox2 = False
Range("d2").Value = "0"
End If
If CheckBox2 = True And Range("C2").Value = "1" Then
Range("d2").Value = "1"
CheckBox1 = True
End If
If CheckBox2 = False Then
Range("d2").Value = "0"
End If
End Sub


what is causing this :
yourMsg = MsgBox("Workpaper must be completed, reviewed by Senior/
Manager, and comments must be addressed in order to pass to Manager/
Partner for review!", 0, "Error")

to pop up twice...?

Thanks,
Andrew

VB Excel Code returning my error message twice instead of once....
 

is this somehow connected to the checkbox3? Range("f2").Value = "0"

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


" wrote:

Private Sub CheckBox3_Click()
If CheckBox3 = True And Range("C2").Value = "1" And CheckBox2 = True
And Range("E2").Value = "Comments Cleared" Or Range("E2").Value = "No
Comments" Then
Range("f2").Value = "1"
End If
If CheckBox3 = True And CheckBox2 = False And Range("C2").Value < "1"
Or Range("C2").Value "1" And Range("E2").Value = "...Please Select..."
Or Range("E2").Value = "See Comments" Then
yourMsg = MsgBox("Workpaper must be completed, reviewed by
Senior/Manager, and comments must be addressed in order to pass to
Manager/Partner for review!", 0, "Error")
CheckBox3 = False
Range("f2").Value = "0"
End If
End Sub


the prior check box uses this code:

Private Sub CheckBox2_Click()
If CheckBox2 = True And Range("C2").Value < "1" Or Range("C2").Value
"1" Then
yourMsg = MsgBox("Workpaper must be 100% complete to pass on
to manager review", 0, "Error")
CheckBox2 = False
Range("d2").Value = "0"
End If
If CheckBox2 = True And Range("C2").Value = "1" Then
Range("d2").Value = "1"
CheckBox1 = True
End If
If CheckBox2 = False Then
Range("d2").Value = "0"
End If
End Sub


what is causing this :
yourMsg = MsgBox("Workpaper must be completed, reviewed by Senior/
Manager, and comments must be addressed in order to pass to Manager/
Partner for review!", 0, "Error")

to pop up twice...?

Thanks,
Andrew

VB Excel Code returning my error message twice instead of once....
 

It is being triggered by the change you make to the checkbox. If you change
the value of a checkbox it then triggers the click_event which causes your
code to run twice.

You need to add some extra logic to prevent this from happening, since you
are using series of logical checks in establishing what action to take it
could be incorporated into that. But it is not clear what you are trying to
do from the code posted.

But that is the reason. Hope it helps

--

Regards,
Nigel




wrote in message
...
Private Sub CheckBox3_Click()
If CheckBox3 = True And Range("C2").Value = "1" And CheckBox2 = True
And Range("E2").Value = "Comments Cleared" Or Range("E2").Value = "No
Comments" Then
Range("f2").Value = "1"
End If
If CheckBox3 = True And CheckBox2 = False And Range("C2").Value < "1"
Or Range("C2").Value "1" And Range("E2").Value = "...Please Select..."
Or Range("E2").Value = "See Comments" Then
yourMsg = MsgBox("Workpaper must be completed, reviewed by
Senior/Manager, and comments must be addressed in order to pass to
Manager/Partner for review!", 0, "Error")
CheckBox3 = False
Range("f2").Value = "0"
End If
End Sub


the prior check box uses this code:

Private Sub CheckBox2_Click()
If CheckBox2 = True And Range("C2").Value < "1" Or Range("C2").Value
"1" Then
yourMsg = MsgBox("Workpaper must be 100% complete to pass on
to manager review", 0, "Error")
CheckBox2 = False
Range("d2").Value = "0"
End If
If CheckBox2 = True And Range("C2").Value = "1" Then
Range("d2").Value = "1"
CheckBox1 = True
End If
If CheckBox2 = False Then
Range("d2").Value = "0"
End If
End Sub


what is causing this :
yourMsg = MsgBox("Workpaper must be completed, reviewed by Senior/
Manager, and comments must be addressed in order to pass to Manager/
Partner for review!", 0, "Error")

to pop up twice...?

Thanks,
Andrew