Cancel A vba Code

[IoanZ]

Hello

In active sheet I use this VBA code to insert new rows just by double clicking mouse button.

The Code: ///

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
Application.ScreenUpdating = False
Cancel = True
If Intersect(Target, [C224:C424]) Is Nothing Then Exit Sub
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
Application.ScreenUpdating = True
End Sub ///

I want to interrupted this VBA code when in active sheet Cell C4 has value TRUE for example


Thanks

 

[jproffer]

This seems to do it:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False
Cancel = True
    If UCase(ActiveSheet.Range("C4").Value) = "TRUE" Then Exit Sub
    If Intersect(Target, [C224:C424]) Is Nothing Then Exit Sub
        Target.Offset(1).EntireRow.Insert
        Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
        Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Try this:
Script will not run if C4 equals "No"
Using True is not a good way.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 6/29/18 10:10 AM EDT
Application.ScreenUpdating = False
Cancel = True
If Range("C4").Value = "No" Then Exit Sub
If Intersect(Target, [C224:C424]) Is Nothing Then Exit Sub
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
MsgBox "Done"
Application.ScreenUpdating = True
End Sub

 

[IoanZ]

Thank you works perfectly

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you works perfectly