علي العابد

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

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

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

للرفع

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

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

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

اخي الكريم ياسر هذا اذا كان زر امر ممكن ولكن اذا كان صورة او ايقونة مثل ايقونة الطابعة او الالة الحاسبة او اغلاق

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

للرفع

السلام عليكم ورحمة الله وبركاته : اسعد الله صباحكم جميعا المطلوب حذف اسم او خلية من خلال مربع التحرير والسرد مرفق مثال يوضح المطلوب والتعديل عليه وهناك طلب اخر فكرت به منذ زمن وهو اضافة تعليق لزر الكود عند وضع المؤش عليه وشكرا لكم حذف خلية من الكمبو بكس.rar

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

شكرا لك اخي الحبيب ابن مصر ولكن ملاحظتان الاولى : عند وضع الكود في حدث عند التغيير للورقة يبقي يعمل دون استجابة يعني الشاسة بترمش على طول والثانية : عند مسح احد الاسماء من العمود B لا يمسح مقابلها في العمود H فان تكرمت اخي الكريم وكملت معروفك معاي وشكرا

اخي ابو العبد شكرا لك على ردك ولكنك لم تجري اي تعديل على الكود واعدت الملف كما هو الرجاء من الاخوة الافاضل المساعدة الملف مرة ثانية نسخ بشرط.rar

السلام عليكم ورحمة الله وبركاته : لو تكرمتم اخواني الافاضل مطلوب نسخ عمود بشرط والمثال المرفق يوضح بالمطلوب بشكل افضل نسخ بشرط.rar

شكرا لكم اخواني جميعا وبارككم الله وابقاكم لمساعدة وتعليم الناس وجازاكم الله عنا الف خير وللعلم بعد محاولات عديدة توصلت الى هذا الكود وكله من تعليم حضراتكم فلولا ان الله يسركم لنا لما كنا نعلم شيئا عن هذه البرمجة اكرر شكري لكم [C1] = WorksheetFunction.CountA(Range(Cells(3, "B").Address, Cells(Rows.Count, "B").Address))

السلام عليكم ورحمة الله وبركاته : اخواني الافاضل المطلوب التعديل على الكود وهو للدالة Count لاضعه في موديل ليعمل على اي ورقة دون تحديد اسم الورقة مرفق مثال بسيط للتعديل عليه Count.rar

عزيزي عندما طبقت الكود على برنامجي كان بطئ هل يمكن تسريعه

استاذي الفاضل : ما رأيك في هذا التعديل لمساتك الاخيرة اذا لزم الامر مثال.rar

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

اخي الفاضل اول ما افتح الملف تظهر ورقتان AA NN وعندما اختار ورقة XX تختفي الورقة AA ويبقى ظاهرا XX NN يعني باستمرار يظهر بعلامة تبويب الاوراق ورقتان مثل الصورة المرفقة والمفروض ان يظهر بعلامة تبويب الاوراق الورقة التى اختارها فقط مثال.rar

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

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

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

السلام عليكم ورحمة الله وبركاته : المطلوب كما هو بالعنوان مرفق مثال للتعدبل عليه ارجو من الاخوة الكرام التكرم بالتعديل عليه ولهم جزيل الشكر مثال.rar