| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to set current day when a cell in a colum change
I wold like some help on the below matter:
ID Status ChangeDate Resp. --------------------------------------------- 1 Closed 2006-06-01 XXXX 2 New 2006-06-20 YYYY 3 Working 2006-07-01 XXXX Every time Status is change I would like to have ChangeDate to be updated current date and Resp. with the Name/initials of the person editing the Excel Sheet - any suggestions? |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to set current day when a cell in a colum change
Steen,
The following code should put you in the right direction. It has to be placed in the sheet object. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(-1, -1) + 1 End If Target.Offset(0, 1) = Now Target.Offset(0, 2) = Environ("username") End If End Sub -- http://HelpExcel.com 516-984-0252 "Steen" wrote: I wold like some help on the below matter: ID Status ChangeDate Resp. --------------------------------------------- 1 Closed 2006-06-01 XXXX 2 New 2006-06-20 YYYY 3 Working 2006-07-01 XXXX Every time Status is change I would like to have ChangeDate to be updated current date and Resp. with the Name/initials of the person editing the Excel Sheet - any suggestions? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
How to set current day when a cell in a colum change
Hi galimi
Nice - it work quite fine. I have a quistion - what does this line take care of: If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(-1, -1) + 1 /Stony "galimi" wrote: Steen, The following code should put you in the right direction. It has to be placed in the sheet object. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(-1, -1) + 1 End If Target.Offset(0, 1) = Now Target.Offset(0, 2) = Environ("username") End If End Sub -- http://HelpExcel.com 516-984-0252 "Steen" wrote: I wold like some help on the below matter: ID Status ChangeDate Resp. --------------------------------------------- 1 Closed 2006-06-01 XXXX 2 New 2006-06-20 YYYY 3 Working 2006-07-01 XXXX Every time Status is change I would like to have ChangeDate to be updated current date and Resp. with the Name/initials of the person editing the Excel Sheet - any suggestions? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do i assign cell A1 to show the current cursor cell in Excel? | Excel Discussion (Misc queries) | |||
| insert date | Excel Worksheet Functions | |||
| Ms Excel, Copying Cell to current sheet using 'Right Click' | Excel Discussion (Misc queries) | |||
| I Need a formula to evaluate a cell with + or - values | Excel Worksheet Functions | |||
| Cell Change Color - Need Help | New Users to Excel | |||
Linear Mode
