Offset Range

[Enigo]

Hi,

I am using the following code but I need to have D3 value change depending
on what row I am entering data into.

I have been working on this and can't find the answer.

Here's the code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AOI As Range

Set AOI = [D3]

If Not Intersect(Target, AOI) Is Nothing Then
Select Case AOI.Text
Case Is = "Possible Soft Hold"
AOI.Offset(0, 7).Value = Date
Case Is = "Soft Hold"
AOI.Offset(0, 8).Value = Date
Case Is = "Hard Cut"
AOI.Offset(0, 9).Value = Date
End Select

End If
End Sub

 

[Bob Phillips]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim AOI As Range

If Not Intersect(Target, Me.Columns(4)) Is Nothing Then

With Target

Select Case AOI.Text
Case Is = "Possible Soft Hold"
AOI.Offset(0, 7).Value = Date
Case Is = "Soft Hold"
AOI.Offset(0, 8).Value = Date
Case Is = "Hard Cut"
AOI.Offset(0, 9).Value = Date
End Select
End With
End If
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)