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

 

[Waimea]

Hi, perhaps something like (seems like you edited your post after my answer)

Sub Test()
Do While True

Application.Wait (Now + TimeValue("00:05:00"))

Dim i As Integer

For i = 1 to 5

With Sheets("Sheet" & i)
     .Range("F16").value = .Range("F5").value
    
     .Range("H16").value = Range("H5").value
End With

Next i

Loop

End Sub

 

[ste33uka]

I pasted code in "this workbook" but nothing happens,
do i paste it somewhere else ?
Thanks

 

[Waimea]

Hi,

try

Private Sub Workbook_Open()

Do While True

Application.Wait (Now + TimeValue("00:05:00"))

Dim i As Integer

For i = 1 to 5

With Sheets("Sheet" & i)
     .Range("F16").value = .Range("F5").value
    
     .Range("H16").value = Range("H5").value
End With

Next i

Loop

End Sub

 

[ste33uka]

Hi,

try

Private Sub Workbook_Open()

Do While True

Application.Wait (Now + TimeValue("00:05:00"))

Dim i As Integer

For i = 1 to 5

With Sheets("Sheet" & i)
     .Range("F16").value = .Range("F5").value
   
     .Range("H16").value = Range("H5").value
End With

Next i

Loop

End Sub

i get run time error 9 with that ,
debug shows "With Sheets("Sheet" & i)" in yellow

 

[Waimea]

Hi,

do you have 5 sheets, named Sheet1, Sheet2, Sheet3, Sheet4 and Sheet5?

Private Sub Workbook_Open()

Do While True

Application.Wait (Now + TimeValue("00:05:00"))

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

Loop

End Sub

 

[ste33uka]

i have 12 sheets, 1st 7 sheets i want to ignore , next 5 sheets are named 1,2,3,4,5 without the word "sheet"

 

[Waimea]

Hi,

try the code I posted above.

 

[ste33uka]

Hi,

try the code I posted above.

i paste it into "this workbook" ?

 

[Waimea]

Hi,

you paste it into "this workbook".

You should try it with an empty workbook, where you add values into cells "F5" and "H5" and if you see that it works.

So create a new workbook, create five sheets, named 1,2,3,4 and 5.

And if that works for you,

then you can paste it into your real workbook.