مساعدة في كود للبحث من ملف في ملف اخر واستخراج نتائج البحث

[ولد جدة]

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

حفظكم الله احتاج مساعدتكم في عمل التالي

لدي ملفين اكسل

الاول يحتوي على اسماء

والملف الثاني يحتوي على بيانات تقريبا على 40 شيت وكل شيت مصنف باسم

 

احتاج مايكرو يقوم بالتالي

يقوم باخذ الاسم من اول الملف الاول ويبحث بداخل الملف الثاني من اول شيت الى اخر شيت

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

وينتقل البحث للاسم الثاني في الملف الاول وهكذا

عارف اني طلبي صعب قليل ولكن اتمنى مساعدتكم حفظكم الله

 

توضيح للطلب

 الاسم الاول في الملف 1  مثلا محمد

يقوم بالبحث في الملف 2 عن محمد في جميع الشيتات ممكن يجد محمد في الشيت 1  وايضا في الشيت 4  وممكن في الشيت 10

احتاج منه انه ينشى ملف جديد باسم محمد ويقوم بتسميه الشيت الاول بنفس الاسم للشيت 1 ويضع نتائجه وهكذا اتمنى ان طلبي يكون واضح

ولكم تحياتي

[ياسر خليل أبو البراء]

ارفق مثال ليتضح المقال وليتم التطبيق عليه أخي الفاضل

[ولد جدة]

يعطيك العافيه استاذ ياسر

دمجت الملفين وجعلتهم ملف واحد

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

 

فكرتي الله يحفظك ان يقوم بالبحث تلقائي من شيت اسماء المدارس في جميع الشيتات الاخرى

وعند اجياد النتيجة يقوم بنسخ النتيجة في ملف جديد باسم المدرسة ووضعها في الملف الجديد بنفس اسم الشيت المنسوخ منه

 

لتوضيح اذا فتحت الملف الاكسل في شيت اسماء المدارس

راح ياخذ اول مدرسة ويفضل انه البحث باسمها وليس برقمها

فراح يجد المدرسة الاولى باسم ابن الجزري الابتدائية لتحفيظ القران

فيقوم بالبحث عنها في الشيتات جميعا وراح يجد نتيجتها

 

فالمخرج الاخير ملف باسم ابن الجزاري الابتدائية وبداخله في الشيت صفوف ىبدون طلاب وفي شيت غير مرتبط برائد فصل وهكذا

 

 

اتمنى انه الفكرة تكون واضحه لانه الملف بيريحني جدا في عمل هذا التقارير بشكل تقريبا شبه نص شهري

والله يسعدكم دنيا واخره

مثال.rar

[ياسر خليل أبو البراء]

سؤال : هل تقصد إذا تطابق الشرط (نتيجة البحث ) في أحد الشيتات أن يقوم بنسخ الصف فقط من الشيت وعمله في شيت بنفس الاسم

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

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

[ولد جدة]

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

 

ممكن يجد في نفس الشيت اكثر من نتيجه فينسخها في الشيت الجديد بنفس الاسم

 

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

وارغب بانشاء من الملف الاساس ملفات بعدد المدارس بحيث ملف كل مدرسة يحتوي المشاكل التي لديهم

 

@ ملاحظة الملف الاساسي كل شيت يخص مشكله عند المدارس.

 

عارف ان طلبي صعب اتمنى ان الفكرة وصلت ولك جزيل الشكر

 

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

@ بعض المدارس لايوجد لديها مشكله في تقرير معين اتمنى وضوح الصورة ولكم جزيل الشكر

المطلوب.rar

[ياسر خليل أبو البراء]

الأخ الحبيب ولد جدة

بقالي يومين في الملف بتاعك لما عيني طلعت بصراحة

إليك المطلوب إن شاء الله يعجبك

 

بس متنساش تدعي لي .. انت عارف لو نسيت مش هساعدك تاني .. هتقولي طيب وهتعرف منين إني دعيت لك هقولك العصفورة هتقولي

 

الملف الأساسي.rar

[ibn_egypt]

 

الأخ الحبيب ولد جدة

بقالي يومين في الملف بتاعك لما عيني طلعت بصراحة

إليك المطلوب إن شاء الله يعجبك

 

بس متنساش تدعي لي .. انت عارف لو نسيت مش هساعدك تاني .. هتقولي طيب وهتعرف منين إني دعيت لك هقولك العصفورة هتقولي

 

 

اخى الفاضل أ.ياسر

 

عمل رائع ومجهود جبار .. ابداع، جعل الله عملك في ميزان حسناتك وزادك الله علما وفضلا

 

 

 

تحياتي

[ياسر خليل أبو البراء]

ربنا يكرمك يا باشمهندس .. جزيت خيرا على تشجيعك لي

و ما أقدمه لا يساوي شيئا مقابل ما يقدمه العمالقة !

أنا مجرد قطرة في محيط هذا المنتدى

تقبل تحياتي وتقديري

[ولد جدة]

اخى الفاضل أ.ياسر
السلام عليكم ورحمه الله وبركاته
جزاك الله الف خير عمل رائع وجبار واعذرني علي ارهاقك بملفي
يعلم الله انه سارتاح من مجهوود كبير في عملية التصدير في السابق بشكل يدوي
اراحك الله دنيا واخرة وفتح الله عليك رزقه من أوسع ابوابه.
وزادك من علمه وبارك الله لك في مالك ونفسك وبدنك وابنائك وذريتك
 
تقبل تحياتي لك ولي عودة بعد تجربته على الداتا الأساسية

[ياسر خليل أبو البراء]

اخى الفاضل أ.ياسر

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

جزاك الله الف خير عمل رائع وجبار واعذرني علي ارهاقك بملفي

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

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

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

 

تقبل تحياتي لك ولي عودة بعد تجربته على الداتا الأساسية

جزيت خيرا على دعواتك الطيبة أخي الحبيب ولد جدة

؟؟هو لسه فيه عودة ربنا يستر ..

عموما الحمد لله أن تمت الخطوة الأولى والأخيرة بخير

[ولد جدة]

حبيبنا الأستاذ ياسر

والله العظيم من اكثر من خمس ساعات وانا شغال علي الملف الأساسي

احتجت اعدل في بعض الاعمدة حيث بعض التقرير اسم المدرسة  ليس بالعمود J

وقمت بالتعديل بوضع اسم المدرسة في العمود J وحمد لله الأمور تمام بعد فهمي للكود.

 

بس تفاجئت انه عن تشغيل التصدير بيبداء يصدر بأول الرينج A2  ومايكمل بعد تقريبا 6 شيتات وتظهر الرساله التاليه :mad:

مرفق صورة منها بالملف المرفق.

واعذرني اني اثقلت عليك حفظك الله

 

Desktop.rar

[ياسر خليل أبو البراء]

جرب تضع هذه الجملة

                With ws
                    On Error Resume Next
                  For lngCtr = .Range("J" & Rows.Count).End(xlUp).Row To 2 Step -1
                    If .Range("J" & lngCtr).Value <> rngCell.Value Then .Rows(lngCtr).Delete
                  Next lngCtr
                End With
              End If

On Error Resume Next

[ولد جدة]

الله يسعدك مشي معاي الحال

هو بعض الملفات الان تصدر بشكل كامل

والبعض يوقف في نص الشيتات ويحفظها

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

مشكور حفظك الله .

[ياسر خليل أبو البراء]

أخي الفاضل تأكد أن تكون الشيتات بنفس التنسيق حتى يتم التصدير بشكل صحيح

أنا لما اشتغلت اشتغلت على المرفق اللي حضرتك أرفقته واعتمدت إن كل الشيتات بنفس الشكل

إنت عارف حجم الشغل اللي بيعمل الكود .. أكيد ممكن يكون فيه أخطاء ..

بص في المتغيرات كويس لربما يكون فيه متغير مش متعرف بشكل صحيح

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

بالتوفيق إن شاء الله

[ولد جدة]

اخوي ياسر

كمية البيانات في الشيت لها دوور في فقدان البيانات والخطاء

لانه بعض الشيتات فيها اكثر من خمس الالف صف .؟

لانه عند نشغيل الكود يعلق الاكسل ويبدء في التصدير ولا يبان معاي الوضع وين وصل .

 

 

هل لديك فكره لإظهار رسالة حالة التقدم في التصدير

[ياسر خليل أبو البراء]

أترك هذه النقطة للأستاذ عبد الله باقشير

يمكننا الاستفادة من خبراته والتعديل على الكود بما يتناسب مع العمل ...

إن شاء الله تجد المساعدة ..

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

[ولد جدة]

أبشر حبيبنا والله أحرجتني بكرمك وذوقك حفظك الله

انا الان شغال على سحب تقرير فرش من النظام مجرد مااجهز نسخه راح أرسلها لك علي ايميلك المسجل علي المنتدى

ارسل علي الياهو والا الهوت ميل ؟؟

 

وباذن الله الأستاذ عبدالله يتكرم بمساعدتنا ولك وله جزيل الشكر

[ياسر خليل أبو البراء]

سحب تقرير من النظام ؟؟ نظام ايه ..

يرجى توضيح مشكلتك الآن .. هل تم التوصل لحل أم ان النتائج غير صحيحة أم أن الأمر يستغرق وقتا كثيرا .. كم يستغرق من الوقت؟

[ولد جدة]

الله يسعدك الملفات الاكسل اسحبها من نظام تعليمي خاص بمدارس المملكة

باذن الله بس انتهي واتواصل معاك السستم فيه مشكله حاليا