Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto date script for 2 columns? have 1..
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto date script for 2 columns? have 1..
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
auto date script for 2 columns? have 1..
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
the auto date feature is not functioning properly - how to reset | New Users to Excel | |||
merging columns - one date, one time | Excel Worksheet Functions | |||
Auto Protecting cells & auto filling date | Excel Discussion (Misc queries) | |||
auto dating after entering the first date | Excel Worksheet Functions | |||
Auto Hide Columns & Rows | Excel Discussion (Misc queries) |