worksheet_change

[blewbot]

I have the following code

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("G2:G50")) Is Nothing Then
     If Target.Value > 1 Then
     Target.Offset(0, -5).Value = Format(Now, "hh:mm")
     Target.Offset(0, -6).Value = Format("N")

end if 
end if
end sub

and it works just as designed. however, i only want it to change the offset target cells once... or the first time the cell changes.

Can someone help?

 

[VoG]

Try

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("G2:G50")) Is Nothing Then
     If Target.Value > 1 And Target.Offset(0, -5).Value = "" Then
     Target.Offset(0, -5).Value = Format(Now, "hh:mm")
     Target.Offset(0, -6).Value = Format("N")

End If
End If
End Sub

 

[blewbot]

And Target.Offset(0, -5).Value = "" Then

[/code]

Thank you for the help! that worked as advertised! something so simple I'm sorry i didn't figure it out on my own.