طلب كود ترحيل المدخلات في الشيت الأول وترتيبها في جدول في شيت اخر

[بن خليفه]

الاخوة الكرام ..

يرجى منكم المساعدة في الملف المرفق ..

أحتاج كود ماكرو لطريقة نسخ المدخلات في تحت الجدول الشيت الأول ولصقها في الشيت الثاني والهدف  عمل تقرير يومي ونحتاج كود للتدوير ليكون المدخل الجديد تحت السابق في الجدول الموجود في الشيت الثاني

 

وشكراً

 

My Test HSK 2017.rar

[أبوعيد]

تفضل أخي

 

My Test 1.rar

[بن خليفه]

 

تفضل أخي

 

My Test 1.rar

لك كل الشكر أستاذ أبو عيد 

لكن إللي أحتاجه كيف يتم ترحيل اللي في الصف من B3 إلى E3 في الشيت الأول فقط .. اللي في الشيت الثاني هو المطلوب إنه يترحل لشكل جدول 

الشيت الأول أحتاج يكون المدخل من صف واحد يعني حتى لو كان جدول ما احتاج يترحل منه إلا اللي في الصف فقط

وشكراً

[بن خليفه]

 

 

تفضل أخي

 

My Test 1.rar

 أستاذ أبو عيد  ..

جربت التعديل على الكود وحسب ما تعلمت من هذا المنتدى وصلت لحل وإن شاء الله يكون هو الحل الصحيح حسب الكود التالي :

 

Sub Macro1()

Dim a, b, c, d

a = Sheets(1).Range("B3", "E3").Row

b = Sheets(2).Range("B20000").End(xlUp).Row + 1

c = Sheets(2).Range("H20000").End(xlUp).Row + 1

 

For d = 3 To a

Sheets(2).Range("B" & b).Resize(1, 3) = Sheets(1).Range("B" & d).Resize(1, 3).Value

Sheets(2).Range("H" & c).Resize(1, 2) = Sheets(1).Range("E" & d).Resize(1, 2).Value

 

b = b + 1

c = c + 1

Next

MsgBox "تمت العملية بنجاح", vbOKOnly, "انتهاء عملية الترحيل"

End Sub

 

 

[أبوعيد]

إذا كان التغيير الذي عملته أنت قد حل المشكلة فالحمدلله

أما إذا لم تحل المشكلة فالرجاء شرح المشكلة بشكل أوضح لأني لم أفهم 

 

تحياتي لك