macro to drag and fill formula til the time stamp match

[AS_2011]

I have this WB, how to autofill formula to D:G range til the time stamp is same as cell J1

[Admin]

Hi

In I1,

=MATCH(J1-INT(J1),C4:C47)

In H1, type 1. To stop macro type 0 in H1


Sub StartMacro()

Dim r, t As Date, i As Long

t = Now() + TimeSerial(0, 0, 5)

Application.OnTime t, "StartMacro", , True

r = [i1]
i = [h1]

If Not i = 0 Then
If Not IsError(r) Then
Range("d4:h4").AutoFill Range("d4:h4").Resize(r)
End If
Else
Debug.Print Now
Application.OnTime t, "StartMacro", , False
End If

End Sub

[AS_2011]

I can't get it to work, I1 show #N/A when i run the macro, can use macro button to run and stop the macro?

[AS_2011]

Admin, I think i found the problem, in the time column i am using some formula to get the time, how to add the code to change the time formula to value in your code? when the value of time format is m/dd/yyyy h:mm:ss AM/PM I1 show #N/A, but when i change the time format to h:mm:ss AM/PM, it is good,

[Admin]

modify your formula like

=YourOriginalFormula-INT(YourOriginalFormula)

And format the cell as time