convert Worksheet_change event to macro Closed

Question

Hello, 

How can I convert WorkSheet_change event becomes a macro. Please see code below. thanks.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("K1:K150")) Is Nothing Then
      With Target
             If IsNumeric(.Value) Then
               Application.EnableEvents = False
               With .Offset(0, 1)
                        .Value = .Value + .Offset(0, -1).Value
                        .Offset(0, -1).Clear
                End With
               Application.EnableEvents = True
            End If
        End With
End If
End Sub



Configuration: Windows XP / Internet Explorer 7.0

hawa · Answer

hi people i am on myspace

rizvisa1 · Answer

depends on how you forsee "Target" is handled

This one way where, target is still handled in same manner

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    Call MyMacro(Target)
    
End Sub

Sub MyMacro(ByVal Target As Range)

    If Not Intersect(Target, Range("K1:K150")) Is Nothing Then
        With Target
        If IsNumeric(.Value) Then
            Application.EnableEvents = False
            
            With .Offset(0, 1)
                .Value = .Value + .Offset(0, -1).Value
                .Offset(0, -1).Clear
            End With
            
            Application.EnableEvents = True
            
            End If
        End With
    End If
    
End Sub

dzrdw0 · Answer

rizvisa1
Thanks for the quick response. how can i call the macro manually (Alt +F8), select MyMacro and hit Run.

Convert Worksheet_change event to macro

3 responses

Similar discussions

Subscribe To Our Newsletter!