 ALL YOUR EXCEL NEEDS |
 |
| FREE Excel STUFF |
| Excel Newsletter |
Advanced Search  |
| PRODUCTS |
| Development |
| Contact Us |
Got any Excel Questions? Free Excel Help .
Lot's More: Excel VBA
Add Date in Corresponding Cell
It is often asked how one can have a date, or date and time, entered into a corresponding
cell after data in entered into other cells. Let's suppose you need the current
date entered into Column "B", on the same row as Column "A" data is entered. The
date entered must be static so that means we cannot simply use the TODAY(),
or NOW() functions.
The code below must be added to the private Module of the Worksheet Object
that will store the data and corresponding date. To quickly get here from Excel,
right click on the Sheet name tab and choose View Code. In here paste
the code below. Then test it by adding any data to any cell in the range A2:A100
and you will see the current date appear in the corresponding cell of B2:B100.
To get both the current date & time use: .Value = Now as apposed to .Value
= Date. For only the time use: .Value = Time
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub
Excel Dashboard Reports & Excel Dashboard Charts 50% Off
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft
GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS