Vba copy data every 5 minutes

[ste33uka]

Hi would anyone have a vba that would copy data from cell F5 to F16 to H5 to H16 every 5 minutes and paste as values.
so data in F5 would copy to H5, F6 to H6 and so on,
Need it to run on 5 sheets
sheets are named 1,2,3,4,5
Thanks

 

[ste33uka]

i made new workbook, made 5 sheets named 1,2,3,4,5 and pasted code into "this workbook",
tried a few times , workbook wont open if i paste that code into it.
Very strange

 

[Waimea]

I think that the code will take 5 minuters to run?

Perhaps someone else will post some code to help you further?

 

[ste33uka]

I think that the code will take 5 minuters to run?

Perhaps someone else will post some code to help you further?

Thanks for helping, ill have to maybe try something else

 

[ste33uka]

would anyone else have any ideas if this is possible ?

 

[Waimea]

Hi again,

in your workbook:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "runEveryFiveMinutes"
End Sub

In a module:

Sub runEveryFiveMintutes()

Dim i As Integer

For i = 1 To 5

With Sheets(i)
     .range("F16").value = .range("F5").value
   
     .range("H16").value = range("H5").value
End With

Next i

Call runEveryFiveMinutes

End Sub

 

[Waimea]

Hi,

change the code to:

Sub mySchedule()
Application.OnTime Now + TimeValue("00:05:00"), "runEveryFiveMinutes"
End Sub

and

Sub runEveryFiveMintutes()

Dim i As Integer

For i = 1 To 5

With Sheets(i)
     .range("F16").value = .range("F5").value
   
     .range("H16").value = range("H5").value
End With

Next i

Call mySchedule

End Sub

 

[ste33uka]

Hi,

change the code to:

Sub mySchedule()
Application.OnTime Now + TimeValue("00:05:00"), "runEveryFiveMinutes"
End Sub

and

Sub runEveryFiveMintutes()

Dim i As Integer

For i = 1 To 5

With Sheets(i)
     .range("F16").value = .range("F5").value
  
     .range("H16").value = range("H5").value
End With

Next i

Call mySchedule

End Sub

Thanks for helping , but nothing happens when i try that,

 

[ste33uka]

Hi,

change the code to:

Sub mySchedule()
Application.OnTime Now + TimeValue("00:05:00"), "runEveryFiveMinutes"
End Sub

and

Sub runEveryFiveMintutes()

Dim i As Integer

For i = 1 To 5

With Sheets(i)
     .range("F16").value = .range("F5").value
  
     .range("H16").value = range("H5").value
End With

Next i

Call mySchedule

End Sub

it runs once if i remove "Call mySchedule" , but does not run every 5minutes
if i leave "Call mySchedule" in module, it wont work

 

[eirikdaude]

To run some code every 5 minutes put the following your workbook events:

    Private Sub Workbook_Open()
        RunEveryFiveMinutes
    End Sub

And in a module you put the following sub:

    Sub RunEveryFiveMinutes()
        //Add code here for whatever you want to happen
        Application.OnTime Now + TimeValue("00:05:00"), "RunEveryFiveMinutes"
    End Sub

You may also want to put in some code to kill the next scheduled run upon closing the workbook. I seem to remember something like this reopening my workbooks after I've closed them, but the details are a bit hazy.

 

[ste33uka]

Thanks , that works,
is there any way to have 2 running so in workbook would look something like this,

Private Sub Workbook_Open()
RunEveryFiveMinutes
RunEveryTenMinutes
End Sub