auto date script for 2 columns? have 1..

[nastech]

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

[bpeltzer]

There's only one worksheet_change event, so you have to check for both
ranges, and respond accordingly, w/in that function:

Option Explicit
Private Sub Worksheet_Change(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
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


"nastech" wrote:

> 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
>

[nastech]

thankyou very much...

"bpeltzer" wrote:

> There's only one worksheet_change event, so you have to check for both
> ranges, and respond accordingly, w/in that function:
>
> Option Explicit
> Private Sub Worksheet_Change(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
> 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
>
>
> "nastech" wrote:
>
> > 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
> >