الاخوة الفضلاء انا مبرمج بعيد عن مجال VBA
ومضطر لترحيل بيانات من شيت الى شيت اخر بحيث
يتم الترحيل صف بعد صف كل فترة زمنية محدده
توصلت للكود ولكنه ينقل الجميع مرة واحدة
اريد دمج اللوب مع التايمر ولا ادري في الفجوال بيزيك كيف يتم ذلك
ارجو من احد الخبراء افادتي
Option Explicit
Sub KickStart()
Application.OnTime Now + TimeValue("00:00:17"), "My_Procedure"
End Sub
Sub My_Procedure()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
.Range("A" & i & ":H" & i).Copy
Sheets("Sheet2").Range("A" & i - 1).PasteSpecial Paste:=xlPasteValues
Call KickStart
Next i
End With
End Sub
