insayah,
Detach/open workbook CR_workbook - insayah - EF767930 - SDG13.xls.
On worksheets 1.1 thru 3.1, make changes/choices in range J11:J20, and range L11:L20
In your actual working workbook(s), copy the below code into each of the worksheets where the data validation is set in colukmn J and L beginning in row 11.
Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).
1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Select the worksheet in which your code is to run
3. Right click on the sheet tab and choose View Code, to open the Visual Basic Editor
4. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
5. Press the keys ALT + Q to exit the Editor, and return to Excel
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 03/12/2011
' http://www.excelforum.com/excel-programming/767930-multiple-time-stamps-depending-on-choice-in-drop-down-list-choice.html
If Intersect(Target, Range("J:J", "L:L")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Target.Row < 11 Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Application
.EnableEvents = False
.ScreenUpdating = False
If Target.Column = 10 Then
Target.Offset(, -7) = Format(Now, "mmmm, dd, yyyy hh:mm AM/PM")
End If
If Target.Column = 12 Then
Select Case Target.Value
Case "Standing" 'Column M
Target.Offset(, 1) = Format(Now, "mmmm, dd, yyyy hh:mm AM/PM")
Case "In Process" 'Column N
Target.Offset(, 2) = Format(Now, "mmmm, dd, yyyy hh:mm AM/PM")
Case "Pending" 'Column O
Target.Offset(, 3) = Format(Now, "mmmm, dd, yyyy hh:mm AM/PM")
Case "Closed" 'Column P
Target.Offset(, 4) = Format(Now, "mmmm, dd, yyyy hh:mm AM/PM")
End Select
End If
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Then make data valadation selections in columns J and L, beginning in row 11.
Bookmarks