G
Guest
Hello,
Am using the following code to run a macro after I update a cell within a
column..It works fine on one column (F:F)..but I wanted it to do the same
thing on multiple columns J:J, M:M, etc....
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Target.Offset(0, 2).Value = Environ("UserName")
Application.EnableEvents = True
If Intersect(Target, Range("F:F")) = "Complete" Then
Target.Offset(0, 3).Value = "--->"
Target.Offset(0, 4).Select
Else: End If
End Sub
Any help??
Am using the following code to run a macro after I update a cell within a
column..It works fine on one column (F:F)..but I wanted it to do the same
thing on multiple columns J:J, M:M, etc....
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Target.Offset(0, 2).Value = Environ("UserName")
Application.EnableEvents = True
If Intersect(Target, Range("F:F")) = "Complete" Then
Target.Offset(0, 3).Value = "--->"
Target.Offset(0, 4).Select
Else: End If
End Sub
Any help??