الترحيل من صفحات عدة إلى صفحة واحدة

[وائل مراد 700]

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

الأخوة الأفاضل

اريد مساعدتكم في ترحيل بعض المعلومات الموجودة في خلايا من L22 إلى p26 من شيت رقم 2 إلى صفحة كشف عمولات الموظفين وسوف أقوم بعمل هذا الكود في الصفحات من شيت 2 إلى شيت 100

أرجو المساعدة بعمل الكود

مرفق لكم الملف المطلوب العمل عليه

[رجب جاويش]

أخى الفاضل

لا يوجد مرفق

[وائل مراد 700]

أشكرك أخي الفاضل على التنبية

تم إرفاق الملف

أرجوا المساعدة

1.rar

[جمال عبد السميع]

أتمني أن يكون المطلوب

1.rar

[وائل مراد 700]

أشكرك اخي

لكن في الحقيقة ليس هذا المطلوب لان الكود سوف أستخدمة في باقي الصفحات الـ 100 للترحيل لنفس الصفحة ولي دالة فاكب

لك كل الشكر وبارك الله فيك

ما زلت بإنتظار المساعدة بكود للترحيل من الشيت رقم 2 وإلى شيت رقم 100 بعض الخلايا

ولكم كل الشكر

[MAHMOUD ALI YOUSSEF]

السلام عليكم

اخي وائل مراد اني متابع اعمالك منذ مذكرة التسوية البنكية وهي من افضل الاعمال

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

هل من الممكن ان تضع مثال توضيحي بالارقام علي سبيل المثال ماذا يحدث في ورقة 2 و 3 و4 وكيف يكون الناتج في كشف العمولات

حتي تقترب الي الذهن و يسطتيع الاخوة المساعدة

بالكود او بالمعادلات

وشكرا :fff:

[وائل مراد 700]

أخذت أحد أكواد الاستاذ ابو أحمد مدير القسم العام وعدلت عليه حسب حاجتي وهذا هو الكود

ليستفيد منه الجميع

Sub Abu_Ahmed_Trheel()

Dim LR As Integer

LR = [R1000].End(xlUp).Row

Range("R7:V" & LR).Copy Sheets("إسم الصفحة المراد الترحيل لها ").Range("B" & Sheets("إسم الصفحة المراد الترحيل لها").[b1000].End(xlUp).Row + 1)

'Range("R7:V" & LR).ClearContents

MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ ", vbOKOnly, "ÊäÈíå"

End Sub

ومرفق لكم نسخة من الملف بعد عمل الكود

1.rar