كود ترحيل من ملف الى ملف أخر

[SHAMMAKHI]

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

أساتذتي وإخواني الأعزاء، عندي طلب لو سمحتوا إذا أي واحد يقدر يساعدني أكون له من الشاكرين.

عندي ملف أكسل وحاب أعمل ترحيل معين بإختياري ( يعني مو كل البيانات مرة وحده ) من ملف أكسل لآخر وبعد الترحيل تنحذف البيانات من الملف الأول.

بعدين أريد البيانات اللي في الملف الثاني تترحل لشيتات مختلفة حسب نوع معين وبشرط البيانات ما تنحذف من الشيت الأول عشان أقدر أعمل إحصائية في المستقبل.

 

ملف الأكسل موجود عندي وحاولت أطبق اللي في الشروحات بس سبحان الله ما ضبط معي..

 

اللي يقدر يساعدني في ميزان حسناته وجزاكم الله خير جميعا.

 

 

[SHAMMAKHI]

 

المعذرة أخي الكريم..

أنا أقصد ترحيل البيانات من الصف الأول A2 إلى M2 متى ما إكتملت جميع البيانات وهكذا الأمر ينطبق على جميع الصفوف من 1 إلى آخر عدد ممكن أظيفة في الشيت.. ( بس أريد الترحيل يكون بأمري وليس تلقائيا لكامل الصفمن A2 إلى M2 أو الصف A8 إلى M8  متى ما إكتملت جميع البيانات .. مثل شرح الأستاذ مجدي يونس في هذا الفيديو 

https://www.youtube.com/watch?v=qWSxxtg1xmg&t=162s

 

بس أنا أريد الترحيل يكون في الملف النهائي وليس شيت آخر في نفس الملف مع حذف البيانات من الملف الأول بعد الترحيل.

 

أما الأمر الثاني فأنا أريد البيانات اللي في الملف النهائي المرفق تترحل إلى شيتات مختلفة في نفس الملف بس بدون حذف البيانات في الشيت الأول مثل هذا الفيديو بالضبط

 

https://www.youtube.com/watch?v=GRvQg9kexjo&t=25s

 

الملف الأول.xlsm الملف النهائي.xlsm

[حسين مامون]

بالنسبة للترحيل من ملف لاخر هناك زر ترحيل في شيت1 بالملف الاول

اما الترحيل الى الشيتات الاخرى يجب عليك انشاء الصفحات كما تريد وضع بعض البيانات فيها كنمودج نهائي للعمل وارفعه مع شرح المراد

في المرفق فك الضغط ستجد مجلد "my_test"ضعه كما هو في اي فولدر تريد 

 

my_test.rar

[SHAMMAKHI]

 

شكرا لك أستاذي العزيز حسين..

 

بالنسبة للملف الأول أنا أريد أرحل كل صف على حدة وليس جميع البيانات.. مثال ( السطر رقم 5 إكتملن بياناته فأنا أريد أرحل السطر 5 فقط مع الإبقاء على جميع  الأسطر مكانها لحين إكتمال أي سطر آخر لترحيله ).. بينما في الطريقة التي أرسلتها جميع البيانات في الشيت تترحل ..

فإذا ممكن طريقة ترحيل كل سطر على حده أكون ممنون لك.

 

أما الترحيل للشيتات الأخرى فأنا أرفق لك الملف وأريد ترحيل الأسطر بناءَ على المعطيات في خانة ( M ) حيث أن البيانات في هذه الخانة سوف تكون إما ( مستعجل أو عادي أو بدون طلب أو إيداع ) وعليه يكون ترحيل كل سطر إلى الشيت الخاص به كما في الملف المرفق.. مع التذكير أن الترحيل يكون مع إبقاء البيانات مكانها في الشيت الأساسي بدون حذف.

الملف الأول.xlsm الملف النهائي.xlsm

[حسين مامون]

سأعدل الكود غدا ان شاء الله ولكن تريد تترحل بناءا على ماذا ؟

مثلا ادا كان خلية العمود m فارغة لا يرحل الصف

اجيب من الهاتف

[SHAMMAKHI]

 

الترحيل يكون بناءً على المعطيات في الخانة M وهي ( مستعجل أو عادي أو بدون طلب أو إيداع )

وإذا كانت الخانة فارغة فلا يترحل شئ.. مع مراعاة عدم حذف البيانات من الشيت الأساسي بعد الترحيل.

 

وحبذا لو تخبرني الطريقة حتى أستطيع إضافة حقول جديدة في الخانة M وشيت جديد للترحيل إذا ما إستدعت الحالة لإضافات جديدة في المستقبل.

 

وجزاك الله عنا خير الجزاء.

[حسين مامون]

جرب المرفق

my_test.rar