We have a table with material prices, and would like to see at a glance, in
the next cell, when a price was last modified.
We have a table with material prices, and would like to see at a glance, in
the next cell, when a price was last modified.
manx
Right-click on the sheet tab and "View Code".
Copy/paste the following event code to that module.
As you enter/edit prices in column A, the data/time will be stamped in column B.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Excel.Range("A" & n).Value <> "" Then
Excel.Range("B" & n).Value = Now
End If
End If
enditall:
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP
On Fri, 17 Mar 2006 15:57:12 -0800, manxman <[email protected]>
wrote:
>We have a table with material prices, and would like to see at a glance, in
>the next cell, when a price was last modified.
Typo.......should be date/time will be stamped
Gord
On Sat, 18 Mar 2006 15:43:57 -0800, Gord Dibben <gorddibbATshawDOTca> wrote:
>manx
>
>Right-click on the sheet tab and "View Code".
>
>Copy/paste the following event code to that module.
>
>As you enter/edit prices in column A, the data/time will be stamped in column B.
>
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>'when entering data in a cell in Col A
>On Error GoTo enditall
>Application.EnableEvents = False
>If Target.Cells.Column = 1 Then
> n = Target.Row
> If Excel.Range("A" & n).Value <> "" Then
> Excel.Range("B" & n).Value = Now
> End If
> End If
>enditall:
>Application.EnableEvents = True
>End Sub
>
>
>Gord Dibben MS Excel MVP
>
>On Fri, 17 Mar 2006 15:57:12 -0800, manxman <[email protected]>
>wrote:
>
>>We have a table with material prices, and would like to see at a glance, in
>>the next cell, when a price was last modified.
Gord Dibben MS Excel MVP
Thank you Gord, it works great.
"manxman" wrote:
> We have a table with material prices, and would like to see at a glance, in
> the next cell, when a price was last modified.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks