MsgBox vbYesNo with several VBA's

[Mr_Focal]

Hello,

I have several working VBA codes.
First I want to work this code working when "Yes" is selected in a vbYesNo MsgBox:

[Private Sub Worksheet_Change(ByVal Target As Range)
Dim Y
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("I3:O200")) Is Nothing Then
With Target
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
Y = Target.Row
Range("D" & Y).Value = Range("D" & Y).Value + Range("I" & Y).Value + Range("K" & Y).Value _
+ Range("M" & Y).Value + Range("O" & Y).Value
End If
End With
End If
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("I3:P200")) Is Nothing Then
With Target
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
Y = Target.Row
Range("R" & Y).Value = Range("R" & Y).Value + Range("P" & Y).Value + Range("N" & Y).Value _
+ Range("L" & Y).Value + Range("J" & Y).Value
End If
End With
End If
End Sub]

When this VBA is done I want a MsgBox:

[Dim Sum As Double

For Each Sh In ThisWorkbook.Worksheets
Sum = Sum + Application.WorksheetFunction.Sum(Sh.Range("Q3:Q200"))
Next
If Sum > 0 Then MsgBox "Text"]

When I click "Ok" in this MsgBox it should be great if (I3:I200; K3:K200; M3:M200 and O3;O200) will be cleared of all values.

Thanks

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[zbor]

Welcome to the Forum, unfortunately:

This is a duplicate post and as such does not comply with Rule 5 of our forum rules. This thread will now be closed, you may continue in your other thread.

http://www.excelforum.com/excel-prog...eral-vbas.html

Thread Closed.