إبراهيم ابوليله

الاخوه الكرام حلول جميله ورائعه ولكن اريد حل اخر وبطريقه اخرى ارجو مشاهده المرفقتسلس.rar

الاخ رجب والله ياخى العزيز لا اجد من الكلمات ما تستحق غير ان اقول لك جعل الله مشاركاتك فى ميزان حسناتك وجعلك نافعلا بعلمك ولكن ماذا لو اردنا تغير النطاق ليكون من b4 الى b12 اى ان النطاق سيكون رأسى ماذا سيكون شكل الكود

الاخ ابو لميس بارك الله فيك ونتمنى ان تكون الاعمال كلها مرفق مع فيديو للاستفاده وفعلا نجد فى هذا المنتدى مالم نجده فى اى منتدى اخر

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

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

الاخ محمود بارك الله فيك وكل عام وانت بخير وحل جميل باستخدام المعادله subtotal بارك الله فيك ومشكورا على الرد

الاخ رجب منور والله المنتدى وكل عام وانت بخير ومفتقدينك جميعا ونستحلفك بالله ان تحاول ان تكون متواجد بالمنتدى قدر الامكان ليستفيد من خدماتك كل من اراد ذلك بارك الله فيك

الاخ محمود انا فعلا اقصد عمل القائمه المنسدله بالطريقه المرنه افقيا وليس رأسيا وانا فعلا على علم بالطريقه الرئسيه لكنى لم استطع عملها افقيا

اخى الكريم تفضل المرفق Book1.rar

الاخوه الكرام عندى مجموعه اسماء تبدأ من الخليه a4الى الخليه f4 واريد ادراج هذه الاسماء فى Data Validation

الاخ الكريم تفضل المرفقتسلسل.rar

تفضل ياأخى وكل عام وانت بخير Sub hima() 'If Target.Column = 3 Then Range("A5:A10000").ClearContents s = 0 'متغير يشير الى ان بدايه الترقيم الرقم صفر For t = 5 To 100 ' متغير يشير ان الترقيم سيبدا من السطر الخامس الى السطر 100 If Cells(t, 3) > "" Then s = s + 1 Cells(t, 3).Offset(0, -2).Value = s ' يعنى ان الترقيم سيظهر فى العمود الثالث ناقصا منه عمودين(اى فى العمود الاول)وهذا على حد علمى End If Next 'End If End Sub

الاخ عباد اكوادك فوق الوصف والخيال وندعو اله ان نصل الى درجة علمك

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

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

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

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

الاخ عباد بارك الله فيك ممكن ارفاق شيت كمثال لاننى لم استطع تفعيل الكود

انا لله وانا اليه راجعون اللهم اسكنه فسيح جناتك وتجاوز عن سيائته ولا تحاسبه باعماله فانت ارحم الراحمين

الاخوه الافاضل نفترض ان لدى شيت مكون من اربع ورقات واريد كود منع حزف الورقه الاولى والثانيه

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

الاخ عبد الله بارك الله فيك ومشكورا على الرد ولكن هذا ما قمت انا بالمحاوله به ولكن يحدث خطأ RUN TIME ERROR '9 ارجو عمل الكود على الشيت المرفق سابقا وارساله لى مع العلم بانك مشغول جدا بارك الله فيك

الاخ عبد الله بارك الله فيك الكود الذى تفضلت بهى يعمل اذا كان الزر فى نفس الشيت لكن ماذا لو كان الزر فى شيت اخر

للرفع

الاخ ابو حنين جزاك الله خيرا ولكن ماراريده بالضبط موجود فى المرفق combobox.rar