Menu
  1. Accueil
  2. Tech Forum
  3. Office Software
  4. Excel

Excel help [Solved/Closed]

Report
Posts
1
Registration date
Friday January 17, 2014
Status
Member
Last seen
January 17, 2014
 -
Posts
2669
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
October 15, 2020
 -
I am tracking shipments of our product. When I enter the amount that shipped, I would like for that days date to appear in a separate cell and never change unless the shipment amount is changed......any suggestions???
See more

1 reply

Answer 1 / 1
Posts
2669
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
October 15, 2020
 446
Hi Flashrunner,

Right-click on the sheets tab and select view code. Paste the following code in the big white field: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("A:A")) Is Nothing Then Exit Sub
Range("B" & Target.Row).Value = Date
End Sub

In the code "Columns("A:A")" refers to the column with amounts and "Range("B" & Target.Row)" refers to the column where you want the date to be inserted.

Change these 2 column references to match yours and test the code by entering an amount; the date should be automatically entered.

Best regards,
Trowa

Ask a question