| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change the date when there is a change in another cell
I have an excel spreadsheet that I would like to have the date changed to the
current date when another cell value is changed. Is this possible? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change the date when there is a change in another cell
Yes it's possible but you don't provide much to go on.
Right click the sheet tab, view code and paste this in. When A1 changes A2 gets the date put in. You can have a range of cells and adjust the offeset Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Target.Offset(1, 0).Value = Date End If End Sub Mike "Kelly P" wrote: I have an excel spreadsheet that I would like to have the date changed to the current date when another cell value is changed. Is this possible? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change the date when there is a change in another cell
Here is some code for you to try. It must be placed in the sheet you want to
react to the change. Right click the sheet tab and select view code... add the following Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Range("B1").Value = Now() Application.EnableEvents = True End If End Sub If Cell A1 is changed then the current date (and time) is added to cell B1. You can format the cell to not show the time. -- HTH... Jim Thomlinson "Kelly P" wrote: I have an excel spreadsheet that I would like to have the date changed to the current date when another cell value is changed. Is this possible? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change the date when there is a change in another cell
Exactly what I wanted...thanks so much!
"Jim Thomlinson" wrote: Here is some code for you to try. It must be placed in the sheet you want to react to the change. Right click the sheet tab and select view code... add the following Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Range("B1").Value = Now() Application.EnableEvents = True End If End Sub If Cell A1 is changed then the current date (and time) is added to cell B1. You can format the cell to not show the time. -- HTH... Jim Thomlinson "Kelly P" wrote: I have an excel spreadsheet that I would like to have the date changed to the current date when another cell value is changed. Is this possible? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change the date when there is a change in another cell
How would I get it to change throughout the whole sheet? What I have is a
list of products, I want a corresponding cell to automatically put in the current date when the price field gets changed. Such as when A24 is changed B24 puts in todays date. "Jim Thomlinson" wrote: Here is some code for you to try. It must be placed in the sheet you want to react to the change. Right click the sheet tab and select view code... add the following Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Range("B1").Value = Now() Application.EnableEvents = True End If End Sub If Cell A1 is changed then the current date (and time) is added to cell B1. You can format the cell to not show the time. -- HTH... Jim Thomlinson "Kelly P" wrote: I have an excel spreadsheet that I would like to have the date changed to the current date when another cell value is changed. Is this possible? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change the date when there is a change in another cell
Figured it out...thanks guys
"Kelly P" wrote: How would I get it to change throughout the whole sheet? What I have is a list of products, I want a corresponding cell to automatically put in the current date when the price field gets changed. Such as when A24 is changed B24 puts in todays date. "Jim Thomlinson" wrote: Here is some code for you to try. It must be placed in the sheet you want to react to the change. Right click the sheet tab and select view code... add the following Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Application.EnableEvents = False Range("B1").Value = Now() Application.EnableEvents = True End If End Sub If Cell A1 is changed then the current date (and time) is added to cell B1. You can format the cell to not show the time. -- HTH... Jim Thomlinson "Kelly P" wrote: I have an excel spreadsheet that I would like to have the date changed to the current date when another cell value is changed. Is this possible? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel 2003 make 1 date cell automatically change another date cell | Excel Worksheet Functions | |||
| date in Cell to change colors if the date is beyond today's date | Excel Discussion (Misc queries) | |||
| Use date modified to change format & create filter to track change | Excel Worksheet Functions | |||
| Change conditional formatting to coloured alternate rows dependent on a change in date? | Excel Programming | |||
| change background row color with change of date in a cell | Excel Discussion (Misc queries) | |||
![Kelly P[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
