VBA Help to Copy a Cell Value every 2 minutes

[jenningstrades]

Hello,

I have a set of values that update in real time. I am trying to create a graph with the data overtime. I am new to excel and have value that I would like to copy every 2 minutes in cells F3 and G3. I would like to have the value copied every 2 minutes into a column with time stamps. How can I accomplish this?

 

[Logit]

Option Explicit

Dim TimeToRun

Sub chkTimer()
    Application.DisplayAlerts = False
    TimeToRun = Now + TimeValue("00:2:00")
    Application.OnTime TimeToRun, "runMacro"
    Application.DisplayAlerts = True
End Sub

Sub runMacro()
    Calculate
    Sheet1.Range("F3:G3").Copy Destination:=Sheet1.Range("K3")
    Sheet1.Range("N3") = Format(Now, "hh:mm:ss")
   
    chkTimer
End Sub

Sub stopMacro()
    On Error Resume Next
    Application.OnTime TimeToRun, "runMacro", , False
End Sub

 

[jenningstrades]

Option Explicit

Dim TimeToRun

Sub chkTimer()
    Application.DisplayAlerts = False
    TimeToRun = Now + TimeValue("00:2:00")
    Application.OnTime TimeToRun, "runMacro"
    Application.DisplayAlerts = True
End Sub

Sub runMacro()
    Calculate
    Sheet1.Range("F3:G3").Copy Destination:=Sheet1.Range("K3")
    Sheet1.Range("N3") = Format(Now, "hh:mm:ss")
  
    chkTimer
End Sub

Sub stopMacro()
    On Error Resume Next
    Application.OnTime TimeToRun, "runMacro", , False
End Sub

I tested this one out this morning. The code worked to copy the information, however it refreshed the same cell repeatedly. It is possible to get this to paste each value into the following row in the for each refresh? Also it is pasting the formula in the cell as well. It is possible that it can do the value only?

 

[Logit]

Option Explicit

Dim TimeToRun

Sub chkTimer()
    Application.DisplayAlerts = False
    TimeToRun = Now + TimeValue("00:0:05")
    Application.OnTime TimeToRun, "runMacro"
    Application.DisplayAlerts = True
End Sub

Sub runMacro()
Application.ScreenUpdating = False
    Calculate
    Sheet1.Range("F3:G3").Copy 'Destination:=Sheet1.Range("K3")
    'Sheet1.Range("N3") = Format(Now, "hh:mm:ss")
    Sheet1.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheet1.Cells(Rows.Count, 14).End(xlUp).Offset(1, 0) = Format(Now, "hh:mm:ss")
    Application.CutCopyMode = False
Application.ScreenUpdating = True

    chkTimer
End Sub

Sub stopMacro()
    On Error Resume Next
    Application.OnTime TimeToRun, "runMacro", , False
End Sub

 

[jenningstrades]

Option Explicit

Dim TimeToRun

Sub chkTimer()
    Application.DisplayAlerts = False
    TimeToRun = Now + TimeValue("00:0:05")
    Application.OnTime TimeToRun, "runMacro"
    Application.DisplayAlerts = True
End Sub

Sub runMacro()
Application.ScreenUpdating = False
    Calculate
    Sheet1.Range("F3:G3").Copy 'Destination:=Sheet1.Range("K3")
    'Sheet1.Range("N3") = Format(Now, "hh:mm:ss")
    Sheet1.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheet1.Cells(Rows.Count, 14).End(xlUp).Offset(1, 0) = Format(Now, "hh:mm:ss")
    Application.CutCopyMode = False
Application.ScreenUpdating = True

    chkTimer
End Sub

Sub stopMacro()
    On Error Resume Next
    Application.OnTime TimeToRun, "runMacro", , False
End Sub

Wow great stuff! It is working like a charm now. Thanks a ton!

 

[Logit]

You are welcome.