مطلوب اليه للترحيل

[محمد حماده]

السلام عليكم اخواني واساتذتي

برجاء التكرم بمساعدتي 

فما اريده هو ترحيل بيانات الاعمده من A الي E  مثلا ولكن يحدث الترحيل تلقائيا كل فترة دقائق احددها انا فمثلا كل 10 دقيقة يتم الترحيل الي شيت con 

ويكون الترحيل التالي تحته اي لا يتم حذف الترحيلات بل يتم حفظها اسفل بعضها 

علما بان يكون هناك قابليه لتغيير رينج الخلايا التي يتم ترحيلها وتكون للصفوف من 1 الي 20 فقط وليست كل الصفوف 

وجزاكم الله خيرا

dddata.xlsx

[طارق محمود]

السلام عليكم

أخي الكريم
شرح سريع للحل
يمكنك إختيار فترة الترحيل بالدقائق من الأسهم  عند الخلايا N1:N4 والتي تغير بالخلية M2 أو N2 وهي التي تحدد فترة الترحيل بالكود
ثم بإستخدام هذا الكود يتم مقارنة الفترة منذ آخر ترحيل وبناءا عليها يتم أو لايتم عمل النسخ من البيانات
لم أحذف الباينات في الشيت الأول ، فقط نسختها <<يمكن جعل الكود يمسحها بعدما تترحل >>

وفي آخر الكود يطلب تشغيل كود آخر وظيفته تشغيل عداد زمني بالفترة المطلوبة ليطلب بعدها تشغيبل الكود الأول مرة أخري

 

Sub AutoTarheel()
Sheets(1).Activate
e = Now - [j1]
x = [n2] / 24 / 60

If e >= x Then

    With Sheets(2)
        LR = .[A9999].End(xlUp).Row
        If LR <> 1 Then LR = LR + 1
        [A1:F20].Copy .Cells(LR, 1)
    End With
    [j1] = Now
End If
Call Rept ' for starting timer again
End Sub

Sub Rept()
t = "00:" & Format([n2], "00") & ":00"
Application.OnTime Now + TimeValue(t), "AutoTarheel"
End Sub

 تفضل الملف وبه الكود

dddata.xlsm

[محمد حماده]

الف الف شكر 

تسلم ياباشا دائما ما تفيدونا بعلمكم 

جزاكم الله خير الجزاااء