Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date in column L if value is entered in column B
I need macro that would enter date in column L if ANY value is entered in
column B I think this code of Dave Peterson could be modified to acomplish this task With Target If .Cells.Count 1 Then Exit Sub 'one cell at a time If Intersect(.Cells, Me.Range("b:b")) Is Nothing Then Exit Sub On Error GoTo errHandler: If IsNumeric(.Value) Then '.Style = "Percent" If .Value = 1 Then Application.EnableEvents = False With .Offset(0, 3) .Value = Now .NumberFormat = "mm/dd/yyyy hh:mm:ss" End With End If End If End With errHandler: Application.EnableEvents = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date in column L if value is entered in column B
you shouldn't need to start a new thread for this continuation question.
-- Don Guillett SalesAid Software "Mikus" wrote in message ... I need macro that would enter date in column L if ANY value is entered in column B I think this code of Dave Peterson could be modified to acomplish this task With Target If .Cells.Count 1 Then Exit Sub 'one cell at a time If Intersect(.Cells, Me.Range("b:b")) Is Nothing Then Exit Sub On Error GoTo errHandler: If IsNumeric(.Value) Then '.Style = "Percent" If .Value = 1 Then Application.EnableEvents = False With .Offset(0, 3) .Value = Now .NumberFormat = "mm/dd/yyyy hh:mm:ss" End With End If End If End With errHandler: Application.EnableEvents = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need the formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date | Excel Discussion (Misc queries) | |||
Need Formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date | Excel Discussion (Misc queries) | |||
enter date in column a and amount in column d | Excel Discussion (Misc queries) | |||
Return Days since Date Entered in Column. | Excel Programming | |||
Return Days since Date Entered in Column. | Excel Programming |