Application Intersect - referring to a named range

[EEEEEE]

Hi,
Basically if a cell is changed within a range (q_one) I want to put a date in another range(q_one_date) in the same row that the target cell was changed.

The code I got referred to a set cell range rather than a named range. I have successfully changed it to work if any cell is changed in (q_one) but I cannot figure out how to change the code to then place the date on the same row as the target cell but within another named range (q_one_date), the code below refers to a set column....


Private Sub Worksheet_Change(ByVal target As Range)

If Not Application.Intersect(Range("q_one"), target) Is Nothing Then


Range("AA" & target.Row).Value = Date


MsgBox ("Sheet has been changed, last updated date automatically changed. Please ensure you update the comments section with changes.")

End if
End sub


Hoping someone can help

Thanks

 

[Akuini]

If "q_one_date" refers to a range that starts at row 1, then:

Range("q_one_date").Cells(1).Offset(Target.Row - 1).Value = Date

OR
This one doesn't required "q_one_date" refers to a range that starts at row 1:

Cells(Target.Row, Range("q_one_date").Column).Value = Date

 

[EEEEEE]

If "q_one_date" refers to a range that starts at row 1, then:

Range("q_one_date").Cells(1).Offset(Target.Row - 1).Value = Date

OR
This one doesn't required "q_one_date" refers to a range that starts at row 1:

Cells(Target.Row, Range("q_one_date").Column).Value = Date

Second options works perfectly!!! Thanks so much, really appreciate it.

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.