mhshahen

الاخوة الفضلاء انا مبرمج بعيد عن مجال 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