ActiveCell.Row -

[AC PORTA VIA]

Hi, i am having hard time to understand active cell offset
Why does the below code offset to different row on different computers

If Not Intersect(Target, Range("C1:C1000")) Is Nothing Then
Application.EnableEvents = False 
Cells(ActiveCell.Row - 0, 11) = Now

if My active cell is E3 above code Should put date in K3
However on the one computer it does on the other it selects K4
i am running office 2007 on both computers
Than you!

 

[Yongle]

Try this instead

If Not Intersect(Target, Range("C1:C1000")) Is Nothing Then
   Application.EnableEvents = False 
   Cells(Target.Row , "K") = Now

ActiveCell is where the cursor ends up
- some users have Excel set up for next cell down to be selected after entering value in cell
- others have the next to the right selected etc

Using Target (which triggered the macro) should give the correct and consistent row

 

[MARK858]

Why not just...

ActiveCell.Offset(0, 6) = Now

 

[AC PORTA VIA]

I tried both codes but none works correct
i have created new file with below code and still puts date in one row below

Private Sub Worksheet_Change(ByVal Target As Range)
    
If Not Intersect(Target, Range("c1:c1000")) Is Nothing Then
Application.EnableEvents = False
ActiveCell.Offset(0, 6) = Now
End If
Application.EnableEvents = True
End Sub

 

[MARK858]

Does the message box below give you what you expect for the Active cell?

Private Sub Worksheet_Change(ByVal Target As Range)
    
If Not Intersect(Target, Range("c1:c1000")) Is Nothing Then
Application.EnableEvents = False
MsgBox ActiveCell.Address
ActiveCell.Offset(0, 6) = Now
End If
Application.EnableEvents = True
End Sub

 

[AC PORTA VIA]

I got it working using below code

  Cells(Target.Row , "K") = Now

Thanks YONGLE

 

[Yongle]

Thanks for the feedback