Insert today's today when range of cells is changed in sheet

D

dknowles2004

Board Regular
Joined
Nov 15, 2004
Messages
79
I'd like to insert today's date in cell BB14 if any of the cells in range F11:AU14 are changed in my worksheet. Some of these cells in the range use validation. Clearly, I need to use the Worksheet Change function but any more clues on how to do this please?

Thanks.
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.
Sort by date Sort by votes
Try:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then
        Range("BB14").Value = Now
    End If
End Sub

You can use Date instead of Now if you don't want the time.
 
Upvote 0
Sorry I didn't make myself very clear. How would I join the following code together to run in a Worksheet Change function:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then
        Range("BD10").Value = Now
    End If
End Sub

[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then
        Range("BD16").Value = Now
    End If
End Sub
 
Upvote 0
Like this?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range) 
   If Not Application.Intersect(Target, Range("F11:AU14")) Is Nothing Then 
      Range("BD10").Value = Now 
   ElseIf Not Application.Intersect(Target, Range("F17:AU20")) Is Nothing Then
      Range("BD16").Value = Now 
   End If 
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

R
  • Solved
Change the date
Replies
6
Views
179
mumps
mumps
L
  • Solved
Returning a date in a cell, but leave blank if no date entered
Replies
8
Views
194
Peter_SSs
Peter_SSs
A
  • Question
Errors in Excel file preventing it from being saved...
Replies
1
Views
170
rlv01
R
D
  • Question
Date Progress Percentage not working
Replies
2
Views
169
Georgiboy
Georgiboy
J
  • Question
Inserting picture into cell via VBA
Replies
2
Views
380
Joek88
J

Forum statistics

Threads
1,214,651
Messages
6,120,744
Members
448,989
Latest member
mariah3

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top