Code looping twice

[Dipak543]

Hi friends,

I am stuck in a VBA problem. actually, the code is printing the value twice in subsequent rows its working fine on my previous excel version 2007 but now I shifted to office 365 and its printing the values twice whenever the cell changes.
Attached photo for clarification see timing it printing the value twice in the same second.

Thanks

Private Sub Worksheet_Calculate()
If Time >= TimeSerial(9, 25, 2) And Time <= TimeSerial(20, 29, 59) Then

    capturerow = 2

    currow = Cells(Rows.Count, 1).End(xlUp).Row
   
    Cells(currow + 1, 1) = Cells(capturerow, 1)
    Cells(currow + 1, 2) = Cells(capturerow, 2)
              
Else
Exit Sub
End If
   
End Sub

Private Sub worksheet_change(ByVal target As Range)
   
  
Dim Cell As Range
For Each Cell In target
    If Cell.Column = Range("A:A").Column Then
        If Cell.Value <> "" Then
            Cells(Cell.Row, "c").Value = Format(Now(), "HH:MM:SS")
           

          
        End If
    End If
Next Cell

End Sub

 

[Ruddles]

I'm guessing you ought to do a Application.EnableEvents=False before making any changes inside the event handler Worksheet_Calculate(), then reset it to True before exiting. Why it should work differently between 2007 and 365 though, I can't say.

 

[Dipak543]

I'm guessing you ought to do a Application.EnableEvents=False before making any changes inside the event handler Worksheet_Calculate(), then reset it to True before exiting. Why it should work differently between 2007 and 365 though, I can't say.

Thank you for the reply-

Like this-?

Private Sub Worksheet_Calculate()
If Time >= TimeSerial(9, 25, 2) And Time <= TimeSerial(20, 29, 59) Then

Application.EnableEvents = False

capturerow = 2

currow = Range("A65536").End(xlUp).Row

Cells(currow + 1, 1) = Cells(capturerow, 1)
Cells(currow + 1, 2) = Cells(capturerow, 2)

Application.EnableEvents = True

Else
Exit Sub
End If

End Sub
Private Sub worksheet_change(ByVal target As Range)


Dim Cell As Range
For Each Cell In target
If Cell.Column = Range("A:A").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "c").Value = Format(Now(), "HH:MM:SS")



End If
End If
Next Cell

End Sub

 

[Ruddles]

Looks right to me...

 

[Dipak543]

Looks right to me...

SORRY it's not working, the time is also not printing and values are copying twice