Read data present in a column in sequence

[Luigi74]

Good morning all and thanks for your help.

I have this kind of problem:

I have a data in a Row "C" from line C4 to line C1500 in the Sheet "XXX" and I would like to read data, cell by cell. This reading must be done in the cell L30 every 5 seconds automatically.
I have this code that is working, but it runs too fast and I need it to be done slowly at list every 5 seconds .

Sub DATA_READ()

For MY_ROWS = 1 To Sheets("XXX").UsedRange.Rows.Count
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C" & MY_ROWS).Value
'other code here
Next MY_ROWS
End Sub


regards,
Luigi

 

[fjns]

Hi, try the Wait method:
Application.Wait(Now + TimeValue("0:00:05"))

 

[Luigi74]

Hi, try the Wait method:
Application.Wait(Now + TimeValue("0:00:05"))

Hi thank for you answer. Unfortunally it doen't work.

 

[Luigi74]

Hi thank for you answer. Unfortunally it doen't work.

Hi, the timer is working but the problem of the "Application.Wait method" , is that it pause all the other macro also and the other macro they must be working all the time.

For MY_ROWS = 1 To Sheets("XXX").UsedRange.Rows.Count
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C" & MY_ROWS).Value
Application.Wait(Now + TimeValue("0:00:05"))
Next MY_ROWS
End Sub

regards

 

[Luigi74]

I have fourd this solution but it's a very long work to do for all the line I have.


Public Sub xxx()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C4").Value
Application.OnTime Now + TimeValue("00:00:02"), "xxx1"
End Sub

Public Sub xxx1()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C5").Value
Application.OnTime Now + TimeValue("00:00:02"), "xxx2"
End Sub

Public Sub xxx2()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C6").Value
Application.OnTime Now + TimeValue("00:00:02"), "xxx3"
End Sub

Public Sub xxx3()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C7").Value
Application.OnTime Now + TimeValue("00:00:02"), "xxx4"

End Sub
Public Sub xxx4()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C8").Value
Application.OnTime Now + TimeValue("00:00:02"), "xxx5"

End Sub
Public Sub xxx5()
Sheets("XXX").Range("L30").Value = Sheets("XXX").Range("C9").Value
'Application.OnTime Now + TimeValue("00:00:02"), "xxx6"

End Sub



.........AND SO ON