Creating An Audit Log

[drmingle]

I am trying to get this code to spit out the data in a cell within the same workbook but a different worksheet --> Sheet ("SpeedLog") instead of the message box.

The time element works fine within the routine, but I need help converting from a message box to a value in a cell:

MsgBox "This CVTY Speed Search was completed in" & " " & (DateDiff("s", start_time, end_time)) & " " & "seconds."

In addition, I only the time not the commentary:

(DateDiff("s", start_time, end_time))

Lastly, I am trying to use this other code snippet to be sure I fill the next cell which is empty with only the calculated data:

I think this should work

Sheets("SpeedLog").Activate
Sheets("SpeedLog.Range("C1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Any thoughts would be appreciated...

 

[dodger7]

sheets("Speedlog").range("A1").value =  "This CVTY Speed Search was completed in" & " " & (DateDiff("s", start_time, end_time)) & " " & "seconds."

or

sheets("Speedlog").range("A1").value = DateDiff("s", start_time, end_time)

if your trying to get this same value into the next empty cell then:

Sheets("SpeedLog").Range("C1").End(xlDown).Offset(1, 0).value = DateDiff("s", start_time, end_time)

 

[drmingle]

I'm getting a run-time error of 1004

on the code you posted --> Application-defined or Object-defined error

Any ideas??