ياسر خليل أبو البراء

تفضل أخي الغالي أخوك أبو البراء FilterListBox.rar

إبداع بلا حدود أخي الغالي عادل حنفي بارك الله فيك وزادك من علمه وجعل اعمالك في ميزان حسناتك يوم القيامة

جزاكم الله خيراً أخي الحبيب على مشاركتك النتائج موضحة في الملف المرفق (أريد النتائج بهذا الشكل) وذلك عن طريق المعادلات

أخي الحبيب تفضل المرفق التالي عله يفي بالغرض (السؤال الثاني) بس بالنسبة لطلباتك يا ريت طلب طلب حتى يستطيع الأخوة مساعدتك ولما يخلص الأول خش على التاني ...ميبقاش كله مرة واحدة وعلى رأي المعلم أبو سريع (من يطارد عصفورين يفقدهما) أخوك أبو البراء FilterListBox.rar

أخي الحبيب سؤال سهل للغاية انقر التبويب Page Layout ثم انقر page Setup (إعداد الصفحة) ثم من التبويب sheet علم صح على الاختيار Row and column headings وبذلك ستتم طباعة أرقام الصفوف وحروف الأعمدة أخوك أبو البراء

أخ konafa4000 أحسنت وحل رائع وسهل إثراءاً للموضوع إليك حل آخر بالكود أخوك أبو البراء SkipEmptyCells.rar

السلام عليكم إخواني الأحباب في منتدانا الغالي طلبي موضح بالمرفقات TT.rar

Application.ScreenUpdating = False Dim aqa As Range Dim x1 As String Set aqa = ActiveSheet.UsedRange For Each cel In aqa If cel.MergeCells = True Then cel.UnMerge End If Next cel

فكرة جميلة بارك الله فيك

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

بسم الله ما شاء الله عليك أبو عبد الله بارك الله فيك وجعل أعمالك صالحة ولوجه الله خالصة

أخي الحبيب إليك الطريقتين في ملف واحد أخوك أبو البراء Transpose.rar

رائع هو شرحك أخ كيماس كم أستفيد من شروحاتك بارك الله فيك

بارك الله فيك أخ عادل رائعة هي أكوادك تسلم ايديك

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

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

أخ أحمد ..مش أكتر من حبايبك يا كبير غيرة محمودة (بس ملهاش علاقة بمحمود) الأخ حسن أعتذر إليك الملف السابق لم يكن قد اكتمل إليك آخر تعديل وإن شاء الله يكون المطلوب أخوك أبو البراء FarmStock.rar

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

أخي الحبيب حسن إليك الملف التالي فيه طلبك الثاني إن شاء الله يكون المطلوب اطلع على الملف وأي استفسار أنا في الانتظار ... أخوك أبو البراء Stock.rar

الأخ حسن ابو عبد الرحمن إليك الملف التالي (محاولة متواضعة) اكتب فقط رقم المزرعة وستجد بياناتها (غيرت في المعادلات) وجعلت الصفوف 500 صف فقط حتى تستطيع التعامل بمرونة مع الملف أما بالنسبة لطلبك أن تترك الخلية التي بها رقم المزرعة فارغ فتأتي النتائج بكل المزارع فلم أستطع عمله لأني لم أفهم جيداً عمل الملف ولأنك تستورد النتائج من أكثر من ورقة عمل عموماً اطلع على الملف ..وستجد من يقدم حلولاً أفضل أخوك أبو البراء Stock.rar

الأخ علي الحديوي أرجو منك ضبط الصفحة المسماة Farms كما فعلت أنا بالملف المرفق ضع كل بيانات المزارع التي لديك في هذه الورقة مع مراعاة عدم ترك صفوف فارغة وعدم ربطها بملف آخر(يستحب ذلك) كما يجب التخلص من الخطأ #DIV! حاول أن تكون قاعدة البيانات منضبطة وضع كل البيانات التي لديك حتى تحصل على نتائج صحيحة إن شاء الله FarmCustomers.rar

السلام عليكم أ. مجدي تفضل الملف التالي عسى أن يكون المطلوب أخوك أبو البراء AbsenceCensusByCode.rar

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

أخي وحبيبي خالد المعادلة تعمل بشكل جيد ... لو استمرت المشكلة معك ارفق ملفك.. عموماً دي هدية من أخوك ياسر الملف التالي به حلول أساتذتنا الكرام أخوك أبو البراء LastValue.rar

قم بتعديل بسيط على الكود Sub PrintAll() Dim LastR As Integer Sheets("ÈíÇäÇÊ ÇÓÇÓíÉ").Select LastR = Sheets("ÈíÇäÇÊ ÇÓÇÓíÉ").Cells(Rows.Count, "B").End(xlUp).Row Range("B6:B" & LastR).Select x = Application.WorksheetFunction.CountA(Selection) Sheets("ãÝÑÏÇÊ").Select Range("A6").Select Selection.ClearContents For I = 1 To x Range("A6") = I ActiveWindow.SelectedSheets.PrintPreview Next I End Sub