Solved: Copy Data from Sheet 1 to sheet 2 with auto

[muzammel]

Hi master vba,

I need helps on my excel since i'm zero background on VBA knowledge.

At sheet 1, i have 8 different running data and i need to collect all this data at sheet 2 for data collection.

At sheet 2, the data arrange from top to bottom based on every 30minute

1. I need vba program to copy data from sheet 1 to sheet 2.
2. Is there any possibility to do auto data collection for every 30minute.

Thanks in advance for helps

Muzammel

[mdmackillop]

Give this a try
[VBA]Option Explicit
Dim i As Long

Sub test()
Application.OnTime TimeValue("08:00:00") + i * TimeValue("00:30:00"), "my_Procedure"
i = i + 1
End Sub

Sub My_Procedure()
Sheets(1).Cells(3, 2).Resize(, 8).Copy Sheets(2).Cells(i + 3, 3)
If i = 30 Then
i = 0
Exit Sub
End If
test
End Sub

[/VBA]

[muzammel]

thanks mdmackillop,

i will try on monday and update the result.

Thanks again