محمد هشام.

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

السلام عليكم ورحمة الله تعالى وبركاته ممكن مساعدة في إضافة تقويم لإدخال التاريخ في خانات البحث i7 وL7 ظهور التقويم بمجرد الظغط على الخانات تاريخ ميلادي 27/04/2023 test501.xlsx

السلام عليكم ورحمة الله تعالى وبركاته قد تطرقت سابقا الا وضع سؤال على المنتدى لكيفية فرز وتصفية أعمدة معينة على حسب الإسم لاكن لم اتلقى للأسف الا إجابة واحدة من الأخ الغالي محمد حسن جزاه الله خيرا ...كانت إجابة موفقة نوع ما لاكن لسوءالحظ.... لا تتماشى مع الملف الأصلي لضرورة انه لازم أدخل على الشيت لتفعيل التصفية وبعد البحث وجدت الحل في إحدى المواقع لاكن بعد تنفيذها بواسطة الهاتف على نسخة 365 تمت بنجاح حيث تفاجأت لاحقا أنها لا يمكنني استخدامها على الجهاز عندي لأن النسخة المثبتة عليه 2016 الملف في المرفقات عليه المعادلة شغالة تمام المطلوب إنشاء معادلة تقوم بنفس الدور لكن بشرط أنها تشتغل على النسخة إلي عندي TEST0209.xlsm

شكرا لك أخي الغالي محمد حسن المحمد أردت أن أخبرك أنه تم الوصول لحل المشكلة وتنفيذ المطلوب بمعادلة بسيطة جدا .وجدتها على موقع فرنسي لم استخدمها من قبل كانت كافية للوصول للمبتغى أجدد أسفي لحضرتك بتعبك معايا دايما 👍👍👍 أنا صراحة لم أتمكن من توصيل لك الفكرة بوضوح ممكن ده إلي صعب الموضوع..على العموم ممكن تبص على الملف لفهم ما كنت أريد توصيله لحضرتك TEST09.xlsm

السلام عليكم ورحمة الله تعالى وبركاته المرجو من الأساتذة الأفاضل المساعدة في تعديل الملف المرفق .مع شرح للمطلوب وهو يتضمن ما يلي التعديل على معادلة البحث index الموجودة في الملف والتي يتم بواسطتها جلب قيم معينة للأعمدة المقابلة بشرط الإسم .وإظهارها في نفس الشيت .قد تم وضعها مسبقا .المطلوب هو: التعديل على المعادلة لكي يتم البحث بنفس الطريقة لاكن من شيت لآخر وياريت بدون فراغات ...وهل عملية فلترة شيت البيانات يأثر على النتيجة المستخرجة؟ مشاركة مكررة TEST03.xlsx

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

بعد اذن الأساتذة عاوز طريقة استخرج بها القيم من ثلاثة اعمدة بشرط الإسم المقابل لها والذي يتكرر عدة مرات في الجدول . test01.xlsx

فعلا المشكلة في نسخة الاوفيس عندي بعد التجربة على جهاز آخر بنسخة اوفيس2021 الملف تمام ربنا يكرمك وآسف على الإزعاج

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

المرجوا المساعدة في كود ترحيل بيانات من شيت لآخر المشكلة انه البيانات المرحلة مش ثابتة ممكن تتراوح من صف إلى 65صف كحد أقصى . وممكن يكون هناك فراغات بين الصفوف فقط عمود التاريخ إلي هو A هو الي ثابت عاوز ارحل البيانات من Sheets 1 A5:Ab إلى Sheets 2 A8:Ab وكل مرحل بيانات تتحط تحت إلي قبلها أنا عندي الكود ده إلي في الصورة بيرحل تمام لاكن بطيء جدا في الترحيل. الاربع اعمدة الأولى من a5:d عندي فيها معادلات ياريت تترحل كقيم من غير معادلات أنا حاولت أعملها بيشتغل تمام أول مرة لاكن عند الترحيل مرة أخرى بيديني فراغات بين الترحيل والآخر أستسمح لعدم رفع الملف لأنه حجمه كبير شوية ..

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

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

الفكرة المراد تنفيذها على الملف في جميع الشيتات وكل combo box وأزرار الماكرو الموجودة عندي Activex Combo box.xlsm

السلام عليكم ورحمة الله أستاذتنا الأفاضل ارجوا المساعدة في كود إخفاء أسماء جميع الشيتات مع إمكانية التنقل بينها بالكومبو بوكس أو أزرار الماكرو الموجودة داخل الملف لقد تم رفع ملف يشرح الفكرة test-2.xlsm

الف مبروك مزيدا من التألق والإبداع بإذن الله 🤝

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

شكرا لكم جميعا أستاذتنا الكرام 👍👍👍

سؤال للاساتذة الأفاضل أنا عندي ملف إكسيل عامل عليه فلترة من خلال textbox وضمن العناصر أو الأسماء المفلتر عليها ....أسماء متشابهة مثلا عنصر إسمه Junior وآخر إسمه Junior + مع العلم اني كاتب واحد بالحروف الكبيرة والثاني لا لما بعمل الفلترة على Junior بيسمعوا عندي الإثنين مع بعض في الفلترة. هل هناك طريقة لإظهار كل أحد على حدى ؟ مع أنني جربت أترك فراغ بعد الإسم في واحد منهم لاكن مزبطتش معايا

شكرا جزيلا لحضرتك تمت العملية بنجاح 👍

تواجهني مشكلة عند البحث في تكست بوكس بالرقم الوظيفي اي بالاعداد وعند البحث بالاسم بتشتغل تمام المرجوا شرح المشكلة ده من فضلكم علشان انا عاوز أعمل فلترة للجدول بواسطة تكست بوكس لما أدخل الرقم الوظيفي للموظف يفلتر مباشرة TEST.xlsm

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

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

السلام عليكم ورحمة الله تعالى وبركاته المرجوا المساعدة في اضافة msgbox إلى الكود لأني حاولت كثيرا حيث عند اضافة الرسالة يتم عرضها عدد مرات ترحيل الاعمدة يعني يرحل عمود وتظهر الرسالة ولما بضغط ok يكمل الترحيل وهكذا حتى ينتهي عاوز طريقة تخلي الرسالة تظهر مرة واحدة عند نهاية الترحيل فقط الكود: Sub V_ترحيل() Dim r As Integer Dim xnewr As Integer For r = 5 To 650 Application.ScreenUpdating = False If IsEmpty(Cells(r, 1)) Then Exit Sub xnewr = Feuil5.Cells(1, 1).CurrentRegion.Rows.Count + 1 If Cells(r, 1).Value = "" Then Exit Sub Feuil5.Cells(xnewr, 1) = Cells(r, 1) Feuil5.Cells(xnewr, 2) = Cells(r, 2) Feuil5.Cells(xnewr, 3) = Cells(r, 3) Feuil5.Cells(xnewr, 4) = Cells(r, 4) Feuil5.Cells(xnewr, 5) = Cells(r, 5) Feuil5.Cells(xnewr, 6) = Cells(r, 6) Feuil5.Cells(xnewr, 7) = Cells(r, 7) Feuil5.Cells(xnewr, 😎 = Cells(r, 😎 Feuil5.Cells(xnewr, 9) = Cells(r, 9) Feuil5.Cells(xnewr, 10) = Cells(r, 10) Feuil5.Cells(xnewr, 11) = Cells(r, 11) Feuil5.Cells(xnewr, 12) = Cells(r, 12) Feuil5.Cells(xnewr, 13) = Cells(r, 13) Feuil5.Cells(xnewr, 14) = Cells(r, 14) Feuil5.Cells(xnewr, 15) = Cells(r, 15) Feuil5.Cells(xnewr, 16) = Cells(r, 16) Feuil5.Cells(xnewr, 17) = Cells(r, 17) Feuil5.Cells(xnewr, 18) = Cells(r, 18) Feuil5.Cells(xnewr, 19) = Cells(r, 19) Feuil5.Cells(xnewr, 20) = Cells(r, 20) Feuil5.Cells(xnewr, 21) = Cells(r, 21) Feuil5.Cells(xnewr, 22) = Cells(r, 22) Feuil5.Cells(xnewr, 23) = Cells(r, 23) Feuil5.Cells(xnewr, 24) = Cells(r, 24) Feuil5.Cells(xnewr, 25) = Cells(r, 25) Feuil5.Cells(xnewr, 26) = Cells(r, 26) Feuil5.Cells(xnewr, 27) = Cells(r, 27) Feuil5.Cells(xnewr, 28) = Cells(r, 28) Cells(r, 5) = "" Cells(r, 6) = "" Cells(r, 7) = "" Cells(r, 😎 = "" Cells(r, 9) = "" Cells(r, 10) = "" Cells(r, 11) = "" Cells(r, 12) = "" Cells(r, 13) = "" Cells(r, 14) = "" Cells(r, 15) = "" Cells(r, 16) = "" Cells(r, 17) = "" Cells(r, 18) = "" Cells(r, 19) = "" Cells(r, 20) = "" Cells(r, 21) = "" Cells(r, 22) = "" Cells(r, 23) = "" Cells(r, 24) = "" Cells(r, 25) = "" Cells(r, 26) = "" Cells(r, 27) = "" Cells(r, 28) = "" Application.ScreenUpdating = True Next End Sub

المرجوا من الإخوة الأعزاء شرح طريقة نقل شريط التحميل المرفق في الملف إلى ملف آخر به كود ليتم اظهار الشريط أثناء تنفيذ كود معين TEST100.xlsm

كود ولا أروع👍 ما شاء الله عليك أخي عبد الفتاح بحثت على زر يعبر عن شيئ أكثر بكثير عن أفضل إجابة ولم أجده فعلا شكرا لك بجد . 🤝🤝🤝