Alaaq3

أنا اعتذر منك استاذنا العزيز . شكراً لجهودك المحترمة

أُستاذنا العزيز عبد الفتاح... اجدد شكري وتقديري لحظرتك وأُقدر حرصك على المواضيع التي تُطرح في المنتدى. استاذنا لم اطلب مراجعة جميع أسطر المحرر بل اعتمدت على شكل اليوزر فورم من خلال الملف المرفق والصورة لذلك من البديهي إن خاصية وعمل أداة الـ checkbox هي اتخاذ إجراء وإلغاءه (check & Uncheck) أما عن المحاولات فإني حاولت كثيراً ولم افلح لذلك التجأت للاساتذة في هذا المنتدى. تحياتي

الاخ العزيز عبد الفتاح.. شكراً لمتابعتك مواضيع المنتدى بشكل دقيق ومجدي وقد اجبت عن موضوعي مشكوراً، كذلك انا رأيت توقيعك بعدم التعديل وتفهمت الموضوع ولم اطلب تعديلاً بناءً على توقيعك الموقر وقلت(اردتُ ان اطلب) وبالفعل لم اطلب هذا في الواقع . اما بخصوص تنويهك بإضافة كل تفاصيل الموضوع من البداية بدلاً من طلبات التعديل في كل مرة؟! اقول انا في البداية ارفقت الملف وفيه خاصية حذف العمود في حالة عدم التعليم على checkbox لذلك من البديهي أن اسأل عن هذه الخاصية طالما كانت موجودة مسبقاً. تحياتي 🌹

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

الغاية من الموضوع هو نسخ اعمدة محددة، وكذلك منعاً لبعثرة الشيت الاصلي عندما اجري عليه بعض العمليات مثل الفلترة والحذف وغيرها

السلام عليكم ورحمة الله وبركاته " اريد عندما اضغط على اي خيار من checkboxs يقوم بنسخ محتويات العمود الذي اخترته من الشيت الاول الى الشيت الثاني وهكذا بالتسلسل انتبه من فضلك .. مشاركة مكررة فقد تــــم بالفعل حذف المشاركة الأخرى check column.xlsm

احسنت اخي الكريم : جزاك الله الف خير

السلام عليكم ورحمة الله : احصائية.xlsmاريد احضائية بيانات تظهر على الفورم معرفة عدد الذكور ..عدد الاناث.. عدد الاذكور البالغين الموظفين .. عدد الذكور البالغين العاطلين ... عدد الذكور الاحداث الموظفين ... الخ احصائية.xlsm

شكرا لك اخي العزيز . جزاك الله الف خير

اخي الكريم ارفقت ملف ياريت تطلع عليه وتقوم بتعديله

لدي مشكلة في هذا الكود عندما اقوم باختيار الكل فأن البيانات تختفي Private Sub ComboBox1_Change() ActiveSheet.Range("B2").CurrentRegion.AutoFilter Field:=2, Criteria1:=ComboBox1.Value End Sub Private Sub UserForm_Initialize() ComboBox1.List = Array("الكل", "ذكر", "انثى") End Sub الجنس.xlsm

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

كود حذف تنسيق الصفوف الاخيرة الفارغة ClearFormats Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeBlanks).ClearFormats هذا الكود بحذف تنسيق الخلايا الفارغة اريد التعديل عليه ليقوم بحذف تنسيق الصفوف الفارغة بدل الخلايا الفارغة

ممكن كود يقوم بتحديد الخلايا التي تحتوي على نص في الشيت

تم حل الموضوع