خالد الرشيدى

اخي الكريم بالنسبة لطلب الطباعه فأشهر وأسهل الطرق لتحجيم حجم الصفحه من خلال تنشيط وضع Page Break Preview والسحب واليك الملف --بعد التعديل على الكود -- search+111_2.rar

السلام عليكم اخي الكريم زكرت في المطلوب إظهار العمود التاسع وهذا تم / اما وعن الطباعه فلم افهم حضرتك زكرت انه عند تنفيذ الكود تتغير نطاقات الطباعه -- اي كود تقصد -- كيف تقوم بالطباعه -- ارجو مزيد من التوضيح search+111.rar

السلام عليكم اخي الكريم زكرت في المطلوب انه من خلال زر ادخال او DblClick يتم ادخال بيانات الصنف بالصف المحدد له بالوقه Search دون تحديد اى صف تقصد عموما جرب الملف التالى علة المطلوب -- الى اول صف فارغ --- search.rar

نقوم بتحديد اسم صفحة البيانات ( Sheet1 ) قبل نطاق البحث ونطاق النتيجه انظر الملف khaled 2.rar

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

اخي الكريم هناك طرق كثيره منها Private Sub Record_Click() Dim i As Integer, Lr As Long Lr = ورقة1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Lr If CDate(ورقة1.Cells(i, 1).Value) = CDate(Me.ComboBox1.Value) Then ورقة1.Cells(i, 2).Value = Me.TextBox1.Value End If Next End Sub تقبل تحياتي

اخي الكريم استخدم المعادلة التالية للوظيفة =IFERROR(VLOOKUP(D2,$A$2:$B$18,2,0),"") وهذه للاقامة =IFERROR(VLOOKUP(D2,$A$2:$C$18,3,0),"") تقبل تحياتي

السلام عليكم اخي الكريم طرق الحل كثيرة منها ضع المعادلة التالية بالخلية D2 ثم اسحبها لاسفل =IFERROR(INDEX($A$2:$A$20,MATCH(0,INDEX(COUNTIF($D$1:D1,$A$2:$A$20),0,0),0)),"") والمعادلة التالية بالخلية E2 ثم اسحبها لاسفل =IF($D2="","",COUNTIF($A$2:$A$20,$D2))

السلام عليكم اخي الكريم قم بادراج ملف مبسط مشروح فيه المطلوب وان شاءالله تجد المساعدة تقبل مروري وتحياتي

السلام عليكم اخي الكريم ضع المعادلة التالية في الخلية G2 ثم اسحبها لاسفل =COUNTIF('جمع المنتوج'!$F$2:$F$3212,B2)

اطلع على الملف بالموضوع التالي https://www.officena.net/ib/topic/62717-شرح-الدالة-indirect/

فعلا اخي الكريم انا لم انتبة الي طبيعة العمل علي الملف ...... لذا استبدل المعادلة السابقة بهذة المعادلة =VLOOKUP($O$2,INDIRECT("'"&$O$1&"'!"&"A13:J100"),10,FALSE) مرتبات.rar

بعد اذن أستازي / زيزو العجوز أخي الكريم اليك إختصار للمعادلة المستخدمة مرتبات.rar

السلام عليكم أخي الكريم اليك احد المعادلات من كثيرة يمكنها تنفيذ المطلوب =VLOOKUP($B2,CHOOSE({1,2},اعتمادية3!$F$2:$F$100,اعتمادية3!$B$2:$B$100),2,0) نقل اسم المالك.rar

اخي الكريم المشكلة في نطاق بحث الدالة Match استبدل المعادلة السابقة بهذه المعادلة =IF(B2="","",IF(ISNUMBER(MATCH($B2,'تسهيل مهمة'!$B$2:$B$171,0)),"موجود","غير موجود"))

اخي الكريم جرب المرفق علة المطلوب Book1.rar

اخي الكريم كان عليك ذكر احتمال تكرار الاقسام .. وعلية جرب الملف التالي علة المطلوب تماماً =IF(COUNTIF($B$4:$B5,$B5)=1,MAX($C$4:$C4)+1,INDEX($C$4:$C$1500,MATCH($B5,$B$4:$B5,0),1)) New Microsoft Excel Worksheet (2).rar

السلام عليكم اخي الكريم وكما قال استاذي ابو البراء باستخدام IF ستكون المعادلة طويلة جداً الي جانب انه مع كل إضافة لقسم ستحتاج التعديل علي المعادلة ولهذا اليك معادلة Match وهي تعتمد في الترقيم علي ترتيب القسم داخل جدول البيانات علها تفي بالغرض =MATCH(B2,$B$2:$B$21,0) New Microsoft Excel Worksheet.rar

السلام عليكم ذكر استاذي / سليم حاصبيا أخطاء إستخدام معادلة Vlookup ولانه استخدم Index + Match لهذا اخي الكريم اليك حل اخر باستخدام Vlookup مع توضيح اكبر للأخطاء اليك مثال من خلاله سيتضح أخطاء أستخدام الدالة : واليك الملف المرفق مطبق علية الحل. vlookup_error.zip

أستاذي / جلال شكراً جزيلاً لحضرتك علي هذا المرور الطيب عفواً أ. زياد والحمد لله الذي بنعمته تتم الصالحات

السلام عليكم اخي الكريم فقط قم بتغيير هذا السطر Last = wr.Range("E" & Rows.Count).End(xlUp).Row + 1 في حدث الضغط علي الليست بوكس Private Sub ListBox1_Click() الي هذا السطر Last = wr.Range("E19").End(xlUp).Row + 1 ولفهم هذا السطر : ( wr.Range("E" & Rows.Count بدءاً من اجمالي عدد صفوف العمود وهي 1048576 ....... .End(xlUp).Row صعوداً الي اعلي اوجد اول صف بة بيانات ..... E20 ... +1 لايجاد اول صف فارغ E21 ولهذا وجب تحديد صف البداية E19 صعودا ً الي اعلي سيعيد E8 مثال اخر :

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

السلام عليكم استاذ : asdhamdy شاكر مرور حضرتك اخى الكريم .. جزاك الله خيرا أ . محي الدين ابو البشير لا اجد من العبارات لشكر حضرتك على هذه العبارات الرائعه التى لكم اسعدتنى تغيبى فقط لظروف السفر .. واتمنى ان لا يحول اكثر من ذلك بينى وبين مشاركه اساتذتى بالمنتدى العامر بالدرر الذى دائما وابدا اتعلم منهم خالص حبى وتقديرى

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

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