ارجو المساعد فى كود ترحيل

[إبراهيم ابوليله]

السلام عليكم ورحمة الله وبركاته

ارجو المساعده فى كود الترحيل

المطلوب بداخل المرفق

المساعده فى كود ترحيل.rar

[سليم حاصبيا]

السلام عليكم و رحمة الله

الحل مع المرفق

1المساعده فى كود ترحيل.rar

[إبراهيم ابوليله]

اخى سليم

اشكرك على متابعتك للموضوع

والجهد المبذول

ولكنى اخى

هذا الكود يقوم باستبدال البيانات المرحله

بمعنى ان يوضع البيانات التى يتم ترحيلها مكان البيانات التى تم ترحيلها سابق

وان اريد

ان تبقى البيانات القديمه كما هى

ثم يتم ترحيل البيانات الجديده اسفل البيانات القديمه

[سليم حاصبيا]

استاذ ابو ليلة

فهمت عليك ما المقصود سأجرب ان اعدل على الكود

 

[إبراهيم ابوليله]

اخى سليم

اسأل الله ان يوفققط فى عمل ذلك

[سليم حاصبيا]

تم التعديل بنجاح

على الصفحة 2

2المساعده فى كود ترحيل.rar

[إبراهيم ابوليله]

اخى سليم

اشكرك على الاهتمام

ولكن ماذال الكود لاياتى بما اريده

وقد وضعت فيديو يوضح ما اريده

ارجو مشاهده الفيديو

h.rar

[إبراهيم ابوليله]

للرفع

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Sub Macro1()
Dim LR As Long
With Range("A4:C" & Cells(Rows.Count, "A").End(xlUp).Row)
    If .Row = 4 Then
        LR = Cells(Rows.Count, "G").End(xlUp).Row + 1
        Cells(LR, "G").Resize(.Rows.Count, 1).Value = Date
        Cells(LR, "H").Resize(.Rows.Count, 3).Value = .Value
    End If
End With
End Sub

تحياتي

[إبراهيم ابوليله]

السلام عليكم ورحمة الله وبركاته

اخى واستاذنا

عبدالله باقشير

ما شاء الله عليك

كل يوم نتعلم منك الجديد والجديد

بارك الله فيك

نسأل الله ان يزيدك من فضله وعلمه

وندعو الله الا يحرمنا منك

وكل عام وانت فى افضل حال

تقبل تحياتى