Conditional Date Input...
Is there a way for Excel to input today's date in a cell if the information
in the cell next to it is updated? I am using Excel 2000. Thank you. |
Conditional Date Input...
This does it for any change to H1:H10
'----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "H1:H10" On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target .Offset(0, 1).Value = Format(Date, "dd mmm yyyy") End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "CMIConnie" wrote in message ... Is there a way for Excel to input today's date in a cell if the information in the cell next to it is updated? I am using Excel 2000. Thank you. |
Conditional Date Input...
This is a ChangeEvent macro to put in the WorkSheet module where you want to
use it. It will put a date/time stamp in the cell to the left of any changed cell. Private Sub Worksheet_Change(ByVal Target As Excel.Range) Selection.Offset(0, -1).FormulaR1C1 = Date & " " & Time End Sub hth Vaya con Dios, Chuck, CABGx3 "CMIConnie" wrote: Is there a way for Excel to input today's date in a cell if the information in the cell next to it is updated? I am using Excel 2000. Thank you. |
All times are GMT +1. The time now is 03:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com