Auto populate cell with today's date

Phil H · #1 10-06-2017, 07:15 AM

Need a macro to auto-populate a cell with todays date:

Range is B3:AS38. If any cell data are changed in a row, put today’s date in cell AT (that row). For example, if cell AN25 is changed, put today’s date in cell AT25.

Debaser · #2 10-06-2017, 08:12 AM

Right click the worksheet tab and choose View Code, then paste this in:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell                  As Range
    On Error GoTo oops
    If Not Intersect(Target, Range("B3:AS38")) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Intersect(Target, Range("B3:AS38")).Cells
            Cells(cell.Row, "AT").Value = Date
        Next cell
    End If
oops:
    Application.EnableEvents = True
End Sub

Phil H · #3 10-12-2017, 07:51 AM

Debaser, Did as you suggested, but it doesn't work - locks up the application and fades the screen.

To clarify further - any entry on a row in the range will result in today's date being placed in cell AT for that row.

Debaser · #4 10-12-2017, 07:57 AM

I honestly don't see how that could happen with what I posted. Can you show me a workbook where it does?

Phil H · #5 10-12-2017, 08:48 AM

Do you have a private location?

Debaser · #6 10-16-2017, 04:07 AM

Can you not attach the file here? It doesn't need any data in it.

Phil H · #7 10-17-2017, 06:31 AM

Debaser, Created a simple test worksheet with the below code - still does not work.

Code:

 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell                  As Range
    On Error GoTo oops
    If Not Intersect(Target, Range("B3:E5")) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Intersect(Target, Range("B3:E5")).Cells
            Cells(cell.Row, "F").Value = Date
        Next cell
    End If
oops:
    Application.EnableEvents = True
End Sub

Debaser · #8 10-18-2017, 09:41 AM

Works absolutely fine here once the code is added.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Auto-enter today's date with New Order Macro button?	barbd777	Excel Programming	6	04-08-2016 01:53 PM
auto cell populate	Stevejd58	Excel	14	05-13-2013 02:22 AM
Creating an Auto-Calc'd Date? Today+7 Days?	SoCalTelephone	Word	0	10-06-2010 10:27 AM
How can I make a cell color RED under the Today's date cell?	Learner7	Excel	2	07-08-2010 12:52 AM
Auto-populate an MS Word table cell with text from a diff cell?	dreamrthts	Word Tables	0	03-20-2009 01:49 PM