| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Time Capture...
right click on the sheet tab and select view code. paste in this code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub if you want to use a formula, you would need to have intentional circular references. If that is what you want, post back. -- Regards, Tom Ogilvy "Gordon Cartwright" wrote in message ... Hi... In cell A1 I want type the word yes and in Cell B1 a formula that will return the exact date the word Yes was entered. Thanks in advance Gordon. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Time Capture...
Tom...
How do I adjust this code to allow a range a1:a500 to be return date values in b1:500 rather than just a1 and b1. I should have asked this originally but I thought I could manipulate the code but I'm still learning...thanks Gordon. -----Original Message----- right click on the sheet tab and select view code. paste in this code Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub if you want to use a formula, you would need to have intentional circular references. If that is what you want, post back. -- Regards, Tom Ogilvy "Gordon Cartwright" wrote in message ... Hi... In cell A1 I want type the word yes and in Cell B1 a formula that will return the exact date the word Yes was entered. Thanks in advance Gordon. . |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Time Capture...
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A500")) Is Nothing Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub for the entire column Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub -- Regards, Tom Ogilvy Gordon Cartwright wrote in message ... Tom... How do I adjust this code to allow a range a1:a500 to be return date values in b1:500 rather than just a1 and b1. I should have asked this originally but I thought I could manipulate the code but I'm still learning...thanks Gordon. -----Original Message----- right click on the sheet tab and select view code. paste in this code Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub if you want to use a formula, you would need to have intentional circular references. If that is what you want, post back. -- Regards, Tom Ogilvy "Gordon Cartwright" wrote in message ... Hi... In cell A1 I want type the word yes and in Cell B1 a formula that will return the exact date the word Yes was entered. Thanks in advance Gordon. . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Time Capture...
The previous had an extraneous declaration:
Right click on the sheet tab and select view code. Paste in one of the below: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A500")) Is Nothing Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub for the entire column Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub -- Regards, Tom Ogilvy Gordon Cartwright wrote in message ... Tom... How do I adjust this code to allow a range a1:a500 to be return date values in b1:500 rather than just a1 and b1. I should have asked this originally but I thought I could manipulate the code but I'm still learning...thanks Gordon. -----Original Message----- right click on the sheet tab and select view code. paste in this code Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Not IsEmpty(Target) Then If UCase(Target.Value) = "YES" Then Target.Offset(0, 1).Value = Now() Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss" Target.EntireColumn.AutoFit End If End If End If End Sub if you want to use a formula, you would need to have intentional circular references. If that is what you want, post back. -- Regards, Tom Ogilvy "Gordon Cartwright" wrote in message ... Hi... In cell A1 I want type the word yes and in Cell B1 a formula that will return the exact date the word Yes was entered. Thanks in advance Gordon. . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Time Capture | Excel Discussion (Misc queries) | |||
| How do I capture a date? | Excel Discussion (Misc queries) | |||
| Excel screen capture to capture cells and row and column headings | Excel Discussion (Misc queries) | |||
| Median of Even Set; How to Capture them? | Excel Discussion (Misc queries) | |||
| How do I capture the last saved time in Excel2003? | Excel Worksheet Functions | |||
Linear Mode
