Changing data in a cell when other data is changed

[Beerdood]

Hi all, I've got a worksheet where I want a value in column G to change to today's date when the data is changed in the same row in Column F. It's a dropdown in column F, but I don't think that matters. This is what I've got so far, and I'm a bit stumped

Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Target, "F5:F60") Is Nothing Then
If Target.Cells.Count > 1 Then
Exit Sub
Else
Dim iCurrentRow As Integer
iCurrentRow = Target.Row
Set Form(G, iCurrentRow) = TODAY()

Else 'nothing changes if the status doesnt change
Exit Sub


End Sub




I'm stuck on that Set Form row there, I know it's kind of wrong, but this is my best guess, I'm not sure how to use that iCurrentRow properly, or how to change the data in a cell from this page. Any help would be great, thanks!

[solnajeff]

HI

If you try the amended code this ahould work okay. As NOW returns the value of a timestamp you will need to format the destination cells to whatever date format you need

Private Sub Worksheet_change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("F5:F60")) Is Nothing Then
Let Cells(Target.Row, 7) = Now()
End If

End Sub

regards

Jeff