Worksheet_change only when user input value

[zico8]

Hi,

Is there any way to use worksheet_change event only when user input some value?
I do not want to execute event when value will be added by macro.

I know that can use Application.EnebleEvents but I really do not like it couse of possibility of demage all macros when some error occurring during events are disabled.

 

[Ludwig]

Just code the "EnableEvents" false/true around the [few?] lines of code that do it within a macro?

 

[mikerickson]

Using EnableEvents=False will not increase any risk of damage due to errors.
If your code errors, EnableEvents=False will not interfere with VBA raising an error and stopping macro execution.

 

[Jaafar Tribak]

Hi,

Is there any way to use worksheet_change event only when user input some value?
I do not want to execute event when value will be added by macro.

I know that can use Application.EnebleEvents but I really do not like it couse of possibility of demage all macros when some error occurring during events are disabled.

If you use propper error handling, you could ensure events are always set to TRUE should an error occur ...

Something like this maybe :

Sub MacroTest()

    On Error GoTo errHandler
    
    Application.EnableEvents = False
    
   [B][COLOR=#008000] 'If an error occurs, code will jump to errHandler and set the Events back to True.[/COLOR][/B]
    
   [COLOR=#008000][B] 'Edit the worksheet cell[/B][/COLOR]
    Sheet1.Range("a1") = "Hello"
    
    
errHandler:
    Application.EnableEvents = True


End Sub

 

[Jaafar Tribak]

Hi,

Is there any way to use worksheet_change event only when user input some value?
I do not want to execute event when value will be added by macro.

I know that can use Application.EnebleEvents but I really do not like it couse of possibility of demage all macros when some error occurring during events are disabled.

Or better still inform the user if an error occurs... like this :

Sub MacroTest()

    On Error GoTo errHandler
    
    Application.EnableEvents = False
    
    [B][COLOR=#008000]'If an error occurs, code will jump to errHandler and set the Events back to True.[/COLOR][/B]
    
    [COLOR=#008000][B]'Edit the worksheet cell[/B][/COLOR]
    Sheet1.Range("a1") = "Hello"
            
errHandler:

    Application.EnableEvents = True

    If Err Then
        Err.Raise Err
    End If

End Sub