algammal

أخي الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته لقد قمت: 1) بتلوين علامة التبويب كما هو موضح بالشيت المرفق 2) بعمل ارتباط تشعبي (Hyperlink) للتنقل بين أوراق العمل المختلفة كما هو موضح أيضا بالشيت المرفق ولكن لاحظت بعد الضغط على زر (ترحيل البيانات) في شيت (معاشات) أولا: - يختفي لون علامات التبويب فقط في الأوراق التي تم ترحيل البيانات لها وهي كما يلي: · (طبيب – مهندس – مفتش – ضابط – محامي – عامل) في شيت (طريقة أخرى للبحث معدلة7) ثانيا: - يختفي الـ (Hyperlink) أيضا من نفس الصفحات فقط والمذكورة أعلاه. والسؤال: ما العمل لتلافي ذلك؟ مع توضيح الحل. وتقبلوا خالص أمنياتي ودعواتي لكما بأن يديم الله عليكم الصحة وموفور العافية؛ وجزاكم الله عنا خير الجزاء؛ دمتم في حفظ الله ورعايته. طريقة اخرى للبحث معدلة7.xlsb أخي الفاضل الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته لقد قمت: 1) بتلوين علامة التبويب كما هو موضح بالشيت المرفق 2) بعمل ارتباط تشعبي (Hyperlink) للتنقل بين أوراق العمل المختلفة كما هو موضح أيضا بالشيت المرفق ولكن لاحظت بعد الضغط على زر (ترحيل البيانات) في شيت (معاشات) أولا: - يختفي لون علامات التبويب فقط في الأوراق التي تم ترحيل البيانات لها وهي كما يلي: · (طبيب – محامي – عامل) في شيت (توحيد البحث في شيت واحد v8) ثانيا: - يختفي الـ (Hyperlink) أيضا من نفس الصفحات فقط والمذكورة أعلاه. والسؤال: ما العمل لتلافي ذلك؟ مع توضيح الحل. وتقبلوا خالص أمنياتي ودعواتي لكما بأن يديم الله عليكم الصحة وموفور العافية؛ وجزاكم الله عنا خير الجزاء؛ دمتم في حفظ الله ورعايته. توحيد البحث في شيت واحد v8.xlsb

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

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

إلى أصحاب الفضل علينا؛ إلى من علمونا؛ وما زلنا نتعلم منهم منتدى أوفيسنا (Excle) الكرام الأستاذ الفاضل / @أ / محمد صالح الأستاذ الفاضل / @ابراهيم الحداد الأستاذ الفاضل / @Ali Mohamed Ali الأستاذ الفاضل / @عبدالله بشير عبدالله الأستاذ الفاضل / @محمد هشام. الأستاذ الفاضل / @Foksh السلام عليكم ورحمة الله وبركاته جميعا كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية بالخير واليمن والبركات ملحوظة: (الأسماء مرتبة تصاعديا منذ أول رد علينا)

أخي الحبيب الأستاذ / @عبدالله بشير عبدالله أخي الحبيب الأستاذ / @محمد هشام.

أخي الحبيب الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. أخي الحبيب الأستاذ / @محمد هشام. السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. إليك الملف أخي الحبيب توحيد البحث في شيت واحد v6.xlsb

أخي الكريم الأستاذ الفاضل / @محمد هشام. السلام عليكم ورحمة الله وبركاته ظهرت لي هذه المشكلة عندما قمت في آخر تحديث من قبلكم باختزال الوظائف لثلاث وظائف فقط هي (محامي؛ عامل؛ طبيب) الغريب في الأمر أنها لا تظهر إلا عن اختيار وظيفة: محامي أو عامل فقط؛ في حين عند اختيار وظيفة طبيب تظهر النتائج كاملة؛ حاولت الوصول لحل ولم أعرف. فرجاء مساعدتي في الحل وجزاكم الله خيرا

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

أخي الكريم الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة اقتراب عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية جميعا بالخير واليمن والبركات والعام القادم بأمر الله نكون سويا على جبل عرفات اللهم آمين رب العالمين. وكل عام وجميع أوفيسنا (Excel) الكرام جميعا بخير ليس عليكم اعتذار؛ وإنما الاعتذار واجب منا لكم على تعبكم معنا؛ فتقبلوا اعتذارنا مغلفا بكامل الشكر والاحترام والتقدير لشخصكم الكريم هذا ما عهدناه عليكم أدامكم الله عزا وعونا لنا؛ وهذا ما يشجعنا ويجعلنا نسألكم دوما بدون تردد مرة تلو الأخرى وكلنا ثقة ويقين في تقديم الإجابات والحلول الناجحة الشافية لكل ما نسأل عنه ولكم منا كل ود واحترام وتقدير وشكر بلا حدود ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة الكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. مجرد تساؤل فقط: هل من الممكن أن يكون هناك ارتباط بين الخلية الفارغة في (E5) وزر (أنقر هنا لمسح البيانات) بحيث يقوم الزر بنفس وظيفة الخلية الفارغة بأبسط طريقة ممكنة؟ مع بيان شرح مبسط لذلك إن وجد. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه.

أخي الكريم الفاضل الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة اقتراب عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية جميعا بالخير واليمن والبركات والعام القادم بأمر الله نكون سويا على جبل عرفات اللهم آمين رب العالمين. وكل عام وجميع أوفيسنا (Excel) الكرام جميعا بخير بداية أحييكم وأشكر لكم روعة وتفصيل الرد ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة التمام والكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه.

أخي الكريم الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته حفظكم الله ورعاكم؛ وسلمت يداكم على هذه الروعة؛ وعلى كل ما قدمتموه؛ وجزاكم الله خير الجزاء؛ وجعل ما قمتم به في ميزان حسناتكم. آمين رب العالمين · القائمة المنسدلة في الخلية (E5) تم تغيير مصدرها من (=AA1:AA6) إلى (=AA1:AA8) حتى يتم إضافة خلية فارغة ضمن هذه القائمة المنسدلة؛ كي أستخدمها في (تصفير) بيانات البحث؛ ولكن تم ملاحظة أن الخلية الفارغة المضافة يتم حذفها بعد النقر على زر (أنقر هنا للبحث) وكذلك الحال في كل مرة يتم إضافتها فيها فإنها تختفي تلقائيا بمجرد الضغط على زر (أنقر هنا للبحث)؛ فكيف يتم إضافة خلية فارغة ضمن القائمة المنسدلة في (E5) وتظل ثابتة ولا يتم حذفها. وتقبلوا خالص الشكر والتقدير والاحترام لشخصكم الكريم. وكل عام وأنتم بخير أخي الكريم الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته حفظكم الله ورعاكم؛ وسلمت يداك على هذه الروعة؛ وعلى كل ما قدمتموه؛ وجزاكم الله خير الجزاء؛ وجعل ما قمتم به في ميزان حسناتكم. آمين رب العالمين أرجو أن يتم إضافة الرقم المسلسل لشيت (معاشات) في (ComboBox1) الخاص بالمسلسل حيث أنه يقتصر على مسلسل شيت (DATA) فقط. وتقبلوا خالص الشكر والتقدير والاحترام لشخصكم الكريم. وكل عام وأنتم بخير

أحسنت الرد أحي الكريم الأستاذ / @محمد هشام.

شكر وتقدير واجب أخي الأستاذ / @عبدالله بشير عبدالله أخي الأستاذ / @محمد هشام. أخي الأستاذ / @Foksh

أخي الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته فكرة وردتني من أخينا الفاضل / @محمد هشام. أطال الله عمريكما وبارك فيه؛ من الإحصائية الخاصة به من خلال الـ (UserForm1) وحقيقة أعجبتني جدا وأردت تنفيذها هنا ولكن توصلت لمعادلة واحدة فقط ولم أستطيع تنفيذها مع باقي الوظائف رغم أن نفس المعادلة ستستخدم مع باقي الوظائف ولكن لم أتوصل لطريقة الدمج الصحيحة كي تنفذ مع جميع الوظائف والمطلوب: عندما يتم اختيار وظيفة في الخلية (E5) يتم اختيارها تلقائيا في كل من الخليتين: (B10) و (G10) في نفس الوقت ثم يتم تطبيق المعادلات الموجودة في الخلايا (C10& C11) و (H10& H11) الخاصة بوظيفة طبيب على بقية الوظائف ليتم استخدامها في نفس الخلايا عند تبديل الوظائف المختلفة. (مرفق الملف للاطلاع). وتقبلوا مقدما خالص الشكر والتقدير والاحترام لشخصكم الكريم. أخي الفاضل الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته أعجبني جدا الإحصائية في نهاية الـ (UserForm1) وأشكرك حتى يعجز الشكر عن شكرك؛ وأتمنى لو شملت الإحصائية على عدد الذكور والإناث لكل من (DATA) و (معاشات) كلا على حده أي: بعد (DATA) يكون ذكور: ... وإناث: ... ويكون الذكور والإناث بعد (معاشات) كما هي في مكانها خاصة بـ (معاشات) فقط. وتقبلوا مقدما خالص الشكر والتقدير والاحترام لشخصكم الكريم. طريقة اخرى للبحث معدلة4.xlsb

أخي الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا؛ قمتم بعمل المطلوب على أكمل وجه. لَوْ كَانَ يَسْتَغْنِي عَنِ الشُّكْرِ .. لِـــعِزَّةِ مُلْـــكٍ أَوْ عُلُــــوِّ مَكَانِ لَمَا أَمَرَ اللَّهُ الْعِبَادَ بِشُكْرِهِ .. فَقَالَ اشْكُرُوا لِي أَيُّهَا الثَّقَلَانِ دُمتم ودام إبداعكم وعطائكم المتميز ودام تميزكم.. وحفظكم الله بحفظه ورعاكم بعنايته؛ وجزاكم الله عنا خير الجزاء. لي طلب أخير: 1) بالنسبة للقائمة المنسدلة المرنة (المطاطية) في الخلية (B9) هل يمكن إضافة خلية واحدة فقط فارغة لها بحيث لا تحتوي على أية بيانات؟ 2) بالنسبة للخلية (B5) التي تختص بالأسماء؛ كنت قد طلبت سابقا حذف القائمة المنسدلة منها عن (جهل وعدم علم)؛ ولما علمت أنه يمكن البحث في قائمة الأسماء المنسدلة (المرنة) وبالتالي يمكن اختيار الاسم منها بدل كتابته كاملا مما يسهل ويختصر الوقت؛ لذا أرغب في إضافتها مرة ثانية بحيث لو تم إضافة او حذف اسم في كلا من شيتي: (DATA) أو (معاشات) يتم ذلك بطريقة ديناميكية تماما مثل القائمة المنسدلة في (J5) على وجه التحديد. أخي الفاضل الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا؛ قمتم بعمل المطلوب على أكمل وجه. لَوْ كَانَ يَسْتَغْنِي عَنِ الشُّكْرِ .. لِـــعِزَّةِ مُلْـــكٍ أَوْ عُلُــــوِّ مَكَانِ لَمَا أَمَرَ اللَّهُ الْعِبَادَ بِشُكْرِهِ .. فَقَالَ اشْكُرُوا لِي أَيُّهَا الثَّقَلَانِ دُمتم ودام إبداعكم وعطائكم المتميز ودام تميزكم.. وحفظكم الله بحفظه ورعاكم بعنايته؛ وجزاكم الله عنا خير الجزاء. لي طلب أخير: هل لي أن أطمع في كرمكم بإضافة (CommandButton) بجوار: جلب النتائج؛ وإلغاء؛ وخروج؛ يختص بمسح النتائج التي تم جلبها؛ وأنا لكم من الشاكرين.

أخونا وحبيبنا الكريم معالي الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته نعم أستاذنا الفاضل اعتقادكم صحيح 100% وأعتذر عن الخطأ؛ فإن أخطأ التلميذ فالأستاذ يقظ ما شاء الله تبارك الله وهذا ما عهدناه فيكم من خلال تلك الفترة الوجيزة؛ بل ما شاء الله تبارك الله تقرؤون ما بين السطور جيدا وتعلمون المطلوب بالضبط وتضعون يدكم عليه بمهارة فائقة وفقكم الله لكل خير وجزاكم الله عنا خير الجزاء. نعم أخونا وحبيبنا الأستاذ الفاضل / @عبدالله بشير عبدالله لقد أوجزت ولخصت وبينت المطلوب تماما من أخينا وحبيبنا الأستاذ الفاضل / @محمد هشام. له منا ولكم كل احترام وتقدير؛ وكيف لا وأنتم تعلمون خبايا ودهاليز الملف لأنه صنع على يديكم فأهل مكة أدرى بشعابها. أخونا وحبيبنا الأستاذ المحترم / @عبدالله بشير عبدالله لو أمكن مساعدتنا فيما يلي: 1) عمل قائمة منسدلة في (G5) تختص بمحافظة الميلاد: (القاهرة؛ الإسكندرية؛ بورسعيد؛ السويس؛ دمياط؛ الدقهلية؛ الشرقية؛ القليوبية؛ كفر الشيخ؛ الغربية؛ المنوفية؛ البحيرة؛ الإسماعيلية؛ الجيزة؛ بني سويف؛ الفيوم؛ المنيا؛ أسيوط؛ سوهاج؛ قنا؛ أسوان؛ الأقصر؛ البحر الأحمر؛ الوادي الجديد؛ مطروح؛ شمال سيناء؛ جنوب سيناء؛ خارج الجمورية) وهي موجودة في شيت (كود محافظة الميلاد). 2) عمل قائمة منسدلة في (H5) و (K5) تختص بأسماء الأسبوع (السبت؛ الأحد؛ الاثنين؛ الثلاثاء؛ الأربعاء؛ الخميس؛ الجمعة). 3) عمل قائمة منسدلة في (M5) تختص بملاحظات: تحتوي على كلمة (معاش) لحين إضافة كلمات أخرى لاحقا. 4) بالنسبة للخلية (A5) قبل التعديل الأخير كان البحث فيها عن أي رقم متاح؛ وبعد آخر تعديل لم يعد متاحا؛ لو أمكن أن تعود سيرتها الأولى؛ وأكون لكم من الشاكرين. ودائما وأبدا لكم منا كل الود والاحترام والتقدير؛ وجزاكم الله عنا دوما كل الخير؛ ووفقكم الله لما يحبه ويرضاه؛ وكل عام وأنتم بخير وصحة وسعادة؛ وكما بدأت بالسلام أختمها بالسلام فالسلام عليكم ورحمة الله وبركاته.

أخي الكريم الأستاذ / @عبدالله بشير عبدالله أخي الكريم الأستاذ / @محمد هشام. أخي الكريم الأستاذ / @Foksh السلام عليكم جميعا ورحمة الله وبركاته أطال الله فى أعماركم وحسن أعمالكم وجعل الله لكم بركة فى العمر وسعة فى الرزق وصحة وسلامة فى البدن وأسعدكم الله فى الدارين وجعلكم الله سنداً وفخرا لنا دوما وحفظكم الله من كل مكروه وسوء؛ وأنار الله قلبكم بالعلم والدين؛ وشرح صدركم بالهدى واليقين؛ ويسر أموركم ورفع مقامكم في عليين؛ وحشركم الله بجوار النبي الأمين. اللهم آمين رب العالمين. سعادتي لا توصف لمشاركة عمالقة أمثالكم لموضوعي والإضافة إليه بما يفوق الحد والتوقعات جزيل الشكر والعرفان والتقدير لكم جميعا ولكل مشرفي ومسئولي ومنتسبي هذا المنتدى ورواده وزواره وكل عام وأنتم جميعا بخير وصحة وسعادة. وأدعو الله عز وجل في علاه أن يجمعنا جميعا على عرفات العام المقبل بأمره تعالى إنه ولي ذلك والقادر عليه آمين آمين آمين رب العالمين. أخي الكريم الفاضل الأستاذ / @Foksh جزاكم الله كل الخير على ماقدمتموه أحسنتم وأحسن الله إليكم ولا حرمنا الله من علمكم آمين رب العالمين؛ وحفظكم الله من كل مكروه وسوء. آمين رب العالمين. أخي الكريم الفاضل الأستاذ / @محمد هشام. (UserForm1) فوق الممتاز سلمت وسلمت يمينك وحفظك الله من كل مكروه وسوء؛ وإني لأرجو أخي الكريم أن يأخذ البحث الفوري والتصفية المباشرة في الحسبان ورقة (معاشات) بالإضافة إلى ورقة (DATA) وجزاكم الله الخير كله. أخي الكريم الفاضل الأستاذ / @عبدالله بشير عبدالله سلمت وسلمت يمينك وحفظك الله من كل مكروه وسوء آمين رب العالمين. أطمع في فيض علمكم ورحابة وسعة صدركم وعظيم حلمكم وكرم أخلاقكم الذي شجعنا على ألا نخجل من سؤالكم أبدا وكيف لا وأنتم من شجعتونا سابقا على ذلك بقولكم لنا دوما: · جرب الملف واعلمنى بالنتائج. · وأي ملاحظات أذكرها وإن شاء الله وبعونه نقوم بالواجب. · أتمنى أن تجد طلبك في الملف ولا حرج في أي ملاحظات تراها تخدم العمل في ملفك. · وإن أردت أي تعديل في الملف فأبشر. · جرب الملف وإن هناك شئ لم يحقق ما طلبت فأوضح ثم أبشر. · أ تمنى أن تقوم بتجربة الحل، وإذا كان هناك أي تعديل أو توضيح إضافي، فأنا على أتم الاستعداد. ومن هذا المنطلق أخي الكريم أرجو مساعدتكم بشأن ما يلي في الملف المرفق (والذي تم عليه تعديل طفيف): 1) إزالة القائمة المنسدلة من (B5) والتي تختص بالأسماء. 2) عمل قائمة منسدلة في (C5) تختص بالدرجة وتشمل: (الأولى؛ الثانية؛ الثالثة؛ الرابعة؛ الخامسة؛ السادسة؛ مدير عام؛ العالية). 3) ترك القائمة المنسدلة في (E5) والتي تختص بالوظيفة كما هي. 4) عمل قائمة منسدلة في (F5) تختص بالنوع (ذكر؛ أنثى). 5) عمل قائمة منسدلة في (J5) تختص بسن الخروج وتشمل: (60؛ 61؛ 62؛ 63؛ 64؛ 65). 6) عمل قائمة منسدلة في (B9) تشمل: كل المهن الموجودة في (B5) بالإضافة لكلمة (معاش). 7) أريد فكرة سريعة عما يفعله زر (تحديث البيانات) في شيت (SEARCH) واسم الماكرو المرتبط به. وجزاكم الله الخير كله. آمين رب العالمين. طريقة اخرى للبحث معدلة.xlsb

أخي الكريم الأستاذ / @Foksh السلام عليكم ورحمة الله وبركاته دعني أولا أثمن ما قمتم به من جهد واضح وملموس تستحقون الشكر كل الشكر والثناء عليه وإني لأطمع في رحابة وسعة صدركم وكلي أمل في أن تعيروني اصغاءكم لما لا حظته من خلال التجربة العملية حتى نصل لملف كامل النمو ويليق بخبراء أوفيسنا (Excel) الكرام ويستحق أن يستخدمه كل من يجد فيه ضالته المنشودة وألخص ما توصلت إليه ضمن ما يلي: 1) التسلسل في شيت (SEARCH) نسي (5) الخمسة صفوف الأولى من شيت (DATA) وبدأ الترقيم من رقم (6)؛ والمفترض أن الخمسة صفوف الأولى من شيت (DATA) من (B5) وحتى (B9) تأخذ مكانها في شيت (SEARCH). 2) لو أمعنا النظر في شيت (SEARCH) جيدا ولاحظنا أول اسم في الشيت لوجدناه في خلية (B10) بإسم (محمد 128) 3) ولو لاحظنا آخر الشيت ذاته لوجدنا أن أسماء شيت (معاشات) مكررة فيه بداية من خلية (B7855) بإسم (محمد 98) وحتى خلية (B7871) باسم (محمد 95) هذا ولا نريد تكرار هذه الأسماء في هذا الموضع أو غيره نهائيا علما بأن التكرار أيضا نسي (5) الخمسة صفوف الأولى من شيت (معاشات) ويبدأ الترقيم من رقم (6). 4) لو أمعنا النظر في شيت (DATA) في الخلية (B10) لوجدناها باسم (محمد 128)؛ ولو قمنا بتغيير الرقم القومي الخاص بهذا الاسم ليصبح (26505071500030) بدلا من (26508071500030) ليصبح تاريخ إحالته على المعاش هو (06/05/2025) ثم قمنا بالضغط على زر (ترحيل المحالين على المعاش) الموجود في شيت (DATA) لتم ترحيل الاسم إلى شيت (معاشات) وأصبح في الخلية (B27) وهو بهذا الشكل يصبح في التسلسل التصاعدي الطبيعي له طبقا لتاريخ الإحالة للمعاش وهذا جهدا خالصا للأستاذ / @عبدالله بشير عبدالله الذي لم يدخر جهدا ولم يمل من كثرة تساؤلاتنا حتى وصل بنا لعمل يستحق عليه الشكر والثناء فجزاه الله عنا خير الجزاء؛ وأيضا لتم حذف الاسم من شيت (DATA) ويتم تغيير التسلسل الخاص بالترقيم تلقائيا ولا يتأثر سواء بالحذف أو الإضافة. 5) لو عدنا إلى شيت (SEARCH) لوجدنا اسم (محمد 128) قد تم حذفه من خلية (B10) وحل الاسم التالي له في الشيت نفسه مكانه ليصبح (محمد 129) والمفترض أن اسم (محمد 128) يتم إضافته في شيت (SEARCH) ليصبح في الخلية (B7855) ويتم حذف الأسماء المكررة المشار إليها سابقا في الملحوظة رقم (3) ولو ضغطنا على زر (Ref) الخاص بتحديث البيانات في الشيت نفسه لخرجت لنا رسالة تخبرنا بأنه (تم تحديث البيانات بنجاح) علما بأنه لم يتغير من الأمر شيء فالمكرر كما هو والاسم الذي تم حذفه من الشيت لم يأخذ مكانه الآخر والمفترض أن يكون فيه في نفس الشيت. هذا وإذ أشكر لكم مقدما حسن تقبلكم لملاحظتنا من واقع التجربة العملية لا يسعني سوى أن أتقدم لكم بخالص الشكر والتقدير والعرفان بالجميل وأن يجعل الله التوفيق حليفكم ودمتم بخير. ملحوظة: أخي الكريم الأستاذ / @Foksh لا أريد أن أثقل عليكم إن تم الأخذ بالملاحظات وتم التوصل لحل لها فخير ونعمة وإن لم يكن فلا بأس؛ وجزاكم الله خير الجزاء على ما قمتم به وقدمتموه لنا.

أخي الفاضل الأستاذ / @Foksh السلام عليكم ورحمة الله وبركاته لا عليك يا أخي؛ فلقد أصبت الهدف؛ يتبقى ملحوظة مهمة أرجو أن يتم أخذها بعين الاعتبار ألا وهي: تحديث بيانات شيت (SEARCH) دوما بطريقة ديناميكية كلما تم تعديل في شيت (DATA) وشيت (معاشات). وتقبل خالص شكري وتقديري؛ وجزاكم الله خير الجزاء؛ وبارك الله فيكم؛ ودمتم عونا لنا ولكل من أراد العون.

السادة الأفاضل الكرام خبراء أوفيسنا (Excel) السلام عليكم جميعا ورحمة الله وبركاته طبتم وطابت أوقاتكم بكل خير وبعد بداية أود أن أنوه إلى أن الملف المرفق نتيجة لجهد عملاقين من عمالقة المنتدى وهما: الأستاذ @عبدالله بشير عبدالله والأستاذ @محمد هشام. ولا أنسى عملاق آخر وهو الأستاذ @Foksh الذي أثرى الحوار العلمي فيما بينهم؛ وحقيقة تمتعت برقي أخلاقهم وأدب حوارهم الذي يفوق الوصف كل ذلك مع تمكنهم العلمي من أدواتهم جيدا مصحوبا بتواضع العلماء؛ نفعنا الله بعلمهم وزادهم علما؛ وجزاهم الله عنا خير الجزاء. · قمت بإنشاء: (Macro1) و (Macro2) و (Module3) و (Module4)؛ كما هو موضح بملف العمل المرفق حيث: · شيت (search DATA) مرتبط بـ (Macro1) وهذا مبين في (Module3). · وشيت (search معاشات) مرتبط بـ (Macro2) وهذا مبين في (Module4). · المطلوب · أن يصبح شيت (SEARCH) هو شيت البحث الرئيس لما يحتويه شيت (search DATA) وشيت (search معاشات) ثم يتم حذف كلا الشيتين لعدم الحاجة إليهما. ·أو · ضم شيت (search معاشات) إلى شيت (search DATA) وحذف شيت (search معاشات) لعدم الحاجة إليه بعد أن يصبح شيت (search DATA) هو شيت البحث الرئيس وتغيير اسمه ليكون شيت (SEARCH). ملاحظة · أمكنني البحث بأي من محتويات الخلايا (M4:A4) ماعدا الخليتان: (G5) محافظة الميلاد (المظللة باللون الأصفر) و (K5) يوم الخروج للمعاش (المظللة باللون الأصفر)؛ ولا أعلم سببا لذلك؛ في كلا من شيتي: (search DATA) و (search معاشات). شاكر لكم حسن تعاونكم مسبقا ولكم خالص الشكر والتقدير والاحترام. ضم ماكرو1 وماكرو2 معا وتوحيد البحث في شيت واحد.xlsb

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

أخي الكريم / Foksh السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على المعلومة الجديدة بالنسبة لي أما بخصوص الكود التالي - والذي لكم الفضل في أن يظهر بهذا الشكل - والذي أعنيه فهو موجود في ورقة2 شيت ( معاشات) وبدايته هي: Sub CopyDataToWorksheets() Dim wsData As Worksheet Dim wsNew As Worksheet Dim cell As Range Dim lastRow As Long Dim i As Long Dim sheetNames As Object Set sheetNames = CreateObject("Scripting.Dictionary") ' تعيين الورقة التي تحتوي على البيانات (اسم الورقة هو "معاشات") Set wsData = ThisWorkbook.Sheets("معاشات") Application.ScreenUpdating = False ' تعطيل تحديث الشاشة لتسريع الأداء ' حساب آخر صف غير فارغ في العمود E lastRow = wsData.Cells(wsData.Rows.Count, "E").End(xlUp).Row ' تحويل البيانات في العمود E إلى أسماء الأوراق العمل ونسخ الصفوف المناسبة For Each cell In wsData.Range("E5:E" & lastRow) ' التحقق من صحة الأحرف في اسم الورقة العمل Dim sheetName As Variant sheetName = Trim(CStr(cell.Value)) ' التحقق من صحة اسم الورقة العمل المحدثة If sheetName <> "" Then ' إضافة اسم الورقة الجديدة إلى القاموس (دون تكرار) If Not sheetNames.exists(sheetName) Then sheetNames(sheetName) = 1 End If End If Next cell ' حذف الأوراق القديمة المطابقة وإنشاء أوراق جديدة For Each wsNew In ThisWorkbook.Sheets If Not wsNew Is wsData Then If sheetNames.exists(wsNew.Name) Then ' حذف الأوراق القديمة Application.DisplayAlerts = False wsNew.Delete Application.DisplayAlerts = True End If End If Next wsNew ' إنشاء الأوراق الجديدة ونسخ البيانات المطابقة For Each sheetName In sheetNames.keys If Not SheetExists(CStr(sheetName)) Then Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) wsNew.Name = CStr(sheetName) wsData.Rows(4).Copy Destination:=wsNew.Rows(4) i = 5 ' تبدأ من الصف الثاني Do Until IsEmpty(wsData.Cells(i, "E")) If wsData.Cells(i, "E").Value = CStr(sheetName) Then wsData.Rows(i).Copy Destination:=wsNew.Rows(wsNew.Cells(wsNew.Rows.Count, "A").End(xlUp).Row + 1) End If i = i + 1 Loop ' تعديل عرض الأعمدة في الورقة الجديدة وفقًا للعرض في الورقة الأصلية wsData.Columns.AutoFit wsNew.Columns.AutoFit End If Next sheetName Application.ScreenUpdating = True ' تمكين تحديث الشاشة مرة أخرى End Sub Function SheetExists(sheetName As String) As Boolean Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets If ws.Name = sheetName Then SheetExists = True Exit Function End If Next ws SheetExists = False End Function فقط أود أن ألفت الانتباه إلى أن الكود الموجود في (Module1) يعمل بكفاءة عالية ولا أريد التعديل عليه حيث أنه مرتبط بزر (ترحيل المحالين على المعاش) في شيت (DATA) إلى شيت (معاشات)؛ وما أريده أخي الكريم هو الكود المذكور عاليه والمرتبط بزر (ترحيل البيانات) الموجود في شيت (معاشات) مع الشيتات الناتجة عنه وهي: (طبيب؛ مهندس؛ ضابط؛ محامي؛ عامل)؛ ما أريده ألخصه فيما يلي: 1= أريد ظهور الخلايا (J3:B3) بنفس تنسيقها في شيتات (طبيب؛ مهندس؛ ضابط؛ محامي؛ عامل) وأن تظل ثابته لا تتأثر بترحيل البيانات في المرات القادمة حي أنها تختفي كلما قمت بترحيل البيانات. 2= أريد ارتفاع الصف (20.25) في شيتات (طبيب؛ مهندس؛ ضابط؛ محامي؛ عامل) بأكملها من أول صف لآخر صف. 3= أريد عرض الأعمدة من (B:A) فقط في شيتات (طبيب؛ مهندس؛ ضابط؛ محامي؛ عامل) مطابقة لعرض الأعمدة المذكورة في شيت (معاشات)؛ حيث أن عرض الأعمدة من (M:C) مضبوطة ولا تحتاج تعديل. ملحوظة: أما بخصوص الخط في الخلية (E3) شيت (معاشات) فقد تم حله بفضل الله. هذا والله الموفق والمستعان وجزاكم الله خير الجزاء؛ وأسعدكم في الدارين: الدنيا والاخرة وتقبلوا خالص احترامي وتقديري

أخي الكريم / Foksh السلام عليكم ورحمة الله وبركاته بداية أشكر لكم سرعة الرد؛ وأتمنى أن تدلني على الطريقة التي قمت فيها بإرسال الكود على النحو المبين أعلاه حتى أستطيع أن أتواصل معكم بنفس الطريقة وكتابة الكود الذي أقصده حتى نتوصل لتفاهم مشترك؛ وتقصير المسافة نحو الوصول للمطلوب وجزاكم الله خيرا؛ وتقبل خالص تحياتي وتقديري

السادة خبراء أوفيسنا (اكسيل) الكرام (السلام عليكم ورحمة الله وبركاته) بداية أود أن أنوه إلى أن الملف المرفق جهد خالص للأستاذ الفاضل / عبد الله بشير عبد الله في موضوع سابق بعنوان (ترحيل بيانات موظف محال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات) & (تعديل كود ترحيل بيانات موظف محال للمعاش) له مني كل الشكر والتقدير والاحترام وبعد ·شاهدت أحد فيديوهات اليوتيوب وقمت – وهذه أول مرة – بتطبيق ما فيه بما يتناسب مع ما أريده؛ وذلك بإضافة الكود المرفق في (شيت معاشات) وعن طريق (زر ترحيل البيانات) في الشيت نفسه يقوم بترحيل البيانات الموجودة في العمود (E) وفقا للمهن المدونة فيه إلى شيتات مستقلة يحمل كل شيت منها نفس اسم المهنة: (طبيب – مهندس – ضابط – محامي – عامل)؛ وهكذا الحال لو تم إضافة مهنة أخرى أو تعديل في أي بيان يتم التعديل والتحديث بطريقة أوتوماتيكية في الشيتات الناشئة. ·ولكن لاحظت أن الخلايا (J3:B3) لا يتم إدراجها في الشيتات الناشئة فقمت بإدراجها يدويا عن طريق النسخ واللصق؛ ولكن عند الضغط على زر ترحيل البيانات مرة أخرى تختفي؛ وأريدها ثابتة لا تتاثر بشيء. ·وكذلك أريد الاحتفاظ بعرض الأعمدة من B:A في كل الشيتات الناتجة مطابقة تماما لمثيلتها في شيت (معاشات)؛ حيث لاحظت أن العرض يتغير لبعض الأعمدة كما هو موضح في الملف المرفق؛ علما أن عرض الأعمدة من M:C مضبوطة. ·مع ثبات الارتفاع (20.25) في الشيت بأكمله لكل الشيتات الناتجة (طبيب – مهندس – ضابط – محامي – عامل) أو الشيتات التي ممكن أن تنشأ لاحقا نتيجة إضافة مهنة أخرى في العمود (E). ·أود ان يكون الخط (Arial) ثابتا في الخلية (E3) من (شيت معاشات)؛ بدلا من (PT Bold Heading)؛ حيث أنه كلما تم ضبطه يعود ويتغير لما كان عليه بعد الضغط على زر (ترحيل المحالين على المعاش) في شيت (DATA). ولكم مني جميعا خالص الشكر والتقدير والاحترام؛ وجزاكم الله عنا خير الجزاء. ترحيل البيانات من شيت إلى عدة شيتات مستقلة.xlsb