بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'نقل بيانت'.
تم العثور علي 1 نتيجه
-
الاخوة الفضلاء انا مبرمج بعيد عن مجال 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