Hi, so I have a fairly basic problem that's the last link to a PM tool i've built.
I have several cells in the same row with drop down lists. When an item is selected from the list I want to record the date in another cell in the same row.
I've managed to get it working for the first cell, but the code doesn't any other cells.
Here is my code:
Code
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xOffsetColumn1 As Integer
Dim xOffsetColumn2 As Integer
Dim xOffsetColumn3 As Integer
Dim xOffsetColumn4 As Integer
Dim xOffsetColumn5 As Integer
Dim xOffsetColumn6 As Integer
Dim xOffsetColumn7 As Integer
Dim xOffsetColumn8 As Integer
Dim xOffsetColumn9 As Integer
xOffsetColumn1 = 55
xOffsetColumn2 = 56
xOffsetColumn3 = 57
xOffsetColumn4 = 58
xOffsetColumn5 = 59
xOffsetColumn6 = 60
xOffsetColumn7 = 61
xOffsetColumn8 = 62
xOffsetColumn9 = 63
If Not Intersect(Target, Me.Range("G:G")) Is Nothing Then
Target.Offset(, xOffsetColumn1).Value = Now
Target.Offset(, xOffsetColumn1).NumberFormat = "dd-mm-yyyy"
End If
If Not Intersect(Target, Me.Range("I:I")) Is Nothing Then
Target.Offset(, xOffsetColumn2).Value = Now
Target.Offset(, xOffsetColumn2).NumberFormat = "dd-mm-yyyy"
End If
End Sub
Display More
I will need to do this for 9 different ranges, Column G,I,K,M,O,Q,S,U,V.
I wont be sleeping till I get this working for tomorrow, so any help would be SUPERR DUPER APPRECIATED
Thanks in advance.