G
Guest
I have code for auto date entry for one date column, but have 2nd set of
items need separate date column for. Is there a way to add 2nd date column
(stand-alone/ separate in & out)? don't know how to modify.. thanks
trying: (1st HALF WORKS ALONE: without 1 in worksheet_change1)
Option Explicit
Private Sub Worksheet_Change1(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Me.Range("AH:AH"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AE")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub
Option Explicit
Private Sub Worksheet_Change2(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Me.Range("AL:AL"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AR")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub
items need separate date column for. Is there a way to add 2nd date column
(stand-alone/ separate in & out)? don't know how to modify.. thanks
trying: (1st HALF WORKS ALONE: without 1 in worksheet_change1)
Option Explicit
Private Sub Worksheet_Change1(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Me.Range("AH:AH"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AE")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub
Option Explicit
Private Sub Worksheet_Change2(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Me.Range("AL:AL"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "AR")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub