Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 | |
|
|
![]() |
||||
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 |