دغيدى

أخى الفاضل / مجدى سلام الله عليكم فعلا حسبت عدد الأرجل ولم ألحظ اجابة الزملاء الأفاضل فالرقم فعلا هو 10990 لما تجاهلنا سائق الباص ؟

أخى الفاضل / حسام حمدان سلام الله عليكم أهلا بكم فى المنتدى أخ وزميل فاضل أولا يجب ارفاق ملف من عندك حتى يتم عمل اللازم ثانيا عود نفسك على أن يكون عنوان الموضوع معبرا على المطلوب

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

أخى الفاضل / ارسل الملف وسوف تجد المطلوب

أخى الفاضل / عبد الله المجرب سلام الله عليكم اينما حللتم أشكركم .. كل الشكر لتكريمى الكبير بنسب الفكرة لى وما أنا إلا مستخدم لهذا الصرح الذى ميزنى عن كثير من زملاء العمل .. لأنه سكنى الحالى ==================== مطلوب قائمة منسدلة بدون ( فراغات أو تكرار ) مرفق ملف به : 1 -قائمة أسماء بها تكرارات 2 - قائمة اخرى بدون تكرارات للقائمة الأولى 3 - قائمة منسدلة بدون تكرار ولكن بها فراغات المطلوب اكتمال العمل بأن تكون القائمة المنسدلة بدون ( فراغات أو تكرار ) تحياتى قائمةبدون تكرار.rar

أخى الفاضل / عبد الله المجرب أشكركم على بساطة العمل

أخى الفاضل يجب توزيع الملاحظين يدويا لمراعاة كل الظروف

أخى الفاضل / محمد صــالح مروركم شرف لى أشكركم من قلبى

أخى الفاضل / جمال الفار ذوق .. فن .. علم .. خلق .. هدف .. رائع

Sub change_sheet_tab_color() ActiveWorkbook.Sheets(1).Tab.ColorIndex = 0 ActiveWorkbook.Sheets(2).Tab.ColorIndex = 1 ActiveWorkbook.Sheets(3).Tab.ColorIndex = 2 ActiveWorkbook.Sheets(3).Tab.ColorIndex = 3 ActiveWorkbook.Sheets(4).Tab.ColorIndex = 4 End Sub كود تلوين تبويبات الأوراق غير فى أرقام الألوان ولاحظ ملحوظة : يجب أن يكون الكود مناسبا للعدد الأوراق كود تلوين تبويبات الأوراق.rar

أخى الفاضل / احمد حمور-ابوعبدالله سلام الله عليكم فى حالة استخدام ملفك وانا لا أعلم الاختصارات سوف تكون مشكلة

أخى الفاضل / بن علية السلام عليكم تغيير جميل وتستحق الشكر

أخى الفاضل اتبع ما قاله "أخى سعد " لأنها اسهل طريقة

اخى عبد الله اثابكم الله على ماتقدمه من خير

أخى الفاضل ..أبو الحارث كل عام وأنتم بخير شكرا جزيلا

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

Sub deletshape() Dim sh As Shape For Each sh In activesheet.Shapes If sh.Type = msoPicture Then sh.Delete End If Next sh End Sub حذف جميع الصور الموجودة فى الصفحة النشطة

لمعرفة عدد ايام شهر محدد ( معين ) =DAY(DATE(YEAR(A2);MONTH(A2)+1;DAY(1))-1)

إدراج صف فارغ عند تغيير البيانات في عمود منقول إدراج صف فارغ.rar

وهذا الكود لفتح control panel Sub open_control_panel_by_vba() Shell ("control panel") End Sub

أخى الفاضل / يوسف تم عمل كود من الأخوة الأفاضل ولكن هناك مشكلة وهى : الهمزة الوسطية مثل : رأفت ستكون رافت

Sub open_notepad_by_vba() Shell ("notepad") End Sub كود لاظهار النوت باد notepad

أخى الفاضل / محمد شكرا جزيلا .. وحشتنى

Sub open_Calculator_by_vba() Shell ("calc") End Sub كود لاظهار الآلة الحاسبة

أخى الفاضل / عبد الله المجرب شكرا جزيلا فمنكم تعلمت . وأرغب فى التعلم شكرا