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

أخي الفاضل يرجى تغيير اسم الظهور للغة العربية لم يروقني الحل الأول بشكل كبير حيث لو أنك أردت أن تضيف المزيد من الشروط سيكون أمراً مرهقاً .. فخطرت لي فكرة أنه يمكن وضع قيم الشروط في عمود ثم تحويل القيم لمصفوفة والتعامل معها في الكود إليك الكود والإصدار الثاني Sub FilterMulipleCriteria() 'يقوم الكود بعمل تصفية بناءً على عدة شروط ، ووضعت الشروط على شكل مصفوفة '--------------------------------------------------------------------- Dim Crit As Variant 'تعيين مصفوفة الشروط من القيم في العمود السابع Crit = Split(Join(Application.Transpose(Range("G2:G" & Cells(Rows.Count, 7).End(3).Row)))) '[Sheet1] بدء التعامل مع ورقة العمل With Sheets("Sheet1") 'إلغاء التصفية في ورقة العمل .AutoFilterMode = False 'التصفية في النطاق المحدد بناءً على الشروط الموضوعة في مصفوفة .Range("A1:C1").AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues End With End Sub تقبل تحياتي Filter By Muliple Criteria YasserKhalil V2.rar

أخي الفاضل سولان سولان إليك الملف التالي عله يفي بالغرض Sub FilterMulipleCriteria() 'يقوم الكود بعمل تصفية بناءً على عدة شروط ، ووضعت الشروط على شكل مصفوفة '--------------------------------------------------------------------- '[Sheet1] بدء التعامل مع ورقة العمل With Sheets("Sheet1") 'إلغاء التصفية في ورقة العمل .AutoFilterMode = False 'التصفية في النطاق المحدد بناءً على الشروط الموضوعة في مصفوفة .Range("A1:C1").AutoFilter Field:=1, Criteria1:=Array("9", "11", "13", "19", "22", "23", "35", "66", "71", "98", "99"), Operator:=xlFilterValues End With End Sub تقبل تحياتي Filter By Muliple Criteria YasserKhalil.rar

يرجى رفع الملف بعد ضغطه ببرنامج ضغط على سيرفر المنتدى تقبل تحياتي

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

أخي الحبيب علاء رسلان توفيراً لوقتكم قمت بعمل مرفق جمعت فيه الثلاثة حلول التي قدمت ..عله يكون المطلوب .. كما تم إضافة حل آخر بالكود .. Sub FindCar() Dim Cell As Range For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row) If Not Range("H3:H8").Find(Cell.Value, , , xlWhole, , False) Is Nothing Then Cell.Offset(, 5) = 0 Else Cell.Offset(, 5) = Cell.Offset(, 2) End If Next Cell End Sub لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي Find To Check Car Existence.rar

بارك الله فيك أخي الغالي علي الشيخ بعد إذنك هذه محاولة بدون أعمدة مساعدة جرب المعادلة التالية في الخلية C2 =IF(ISNA(MATCH(A2,$G$3:$G$8,0)),B2,0)

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

لقد نوه الأخ محمد نصري إلى أن المبيعات تمثل الدائن والمشتريات المدين ، وهو ما قدمته في الكود ..

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

أخي الحبيب أبو يوسف فصبر جميل والله المستعان على ما تصفون إليك الملف التالي ..مش ملفك على الإطلاق لكن ملف شوفه واطلع عليه وشوف إذا كان طلبك زي كدا ولا طلبك مختلف وإذا كان طلبك مشابه حاول تشوف الملف اتعمل إزاي وتطبقه على ملفك ولو واجهك مشكلة أرجو إعلامنا بذلك تقبل تحياتي Search Using TextBox & AutoFilter.rar

أخي الكريم ناصر سعيد بارك الله فيك وجزاك الله خيراً على هذا النشاط الملف لا يعمل أخي الفاضل يرجى تغيير اسم الظهور للغة العربية

المهم اللي يسبق وعلى رأي المثل الأوفيسني (اللي يسبق ياخد أفضل إجابة) ههههههه تقبل تحياتي

You're welcome Mr. Rasheedy

نعم اخي الكريم

الحمد لله أن تم المطلوب على خير يرجى تحديد المشاركة رقم 9 كأفضل إجابة حيث أنها هي التي أدت المطلوب تقبل تحياتي

الأخ الفاضل إسلام مسلم إليك الملف التالي عله يفي بالغرض Countifs Function.rar

أخي الحبيب رجب أقترح طرح موضوع جديد وأن تنظم أفكارك بشكل يسهل معه فهم المطلوب ..أنا تهت بين طيات الكلام ... اطرح موضوع جديد أفضل ويا ريت يكون مرفق واحد فقط مش 3 مرفقات

ولا يهمك يا أخ أحمد جرب Sub ConvertFormulaToVBA() 'لتظهر النتائج في العمود الثالث [=(B1-A1)/A1] يقوم الكود بتحويل المعادلة '---------------------------------------------------------------------- Dim I As Long Application.ScreenUpdating = False 'حلقة تكرارية من الصف الأول لآخر صف به بيانات في العمود الأول For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'إذا كانت الخلية في العمود الأول تساوي صفر لا يتم تنفيذ السطر التالي ويتم الانتقال للسطر الذي بدايته 1 If Cells(I, 1) = 0 Then Cells(I, 1) = 1 'الخلية في العمود الثالث تساوي الفرق بين الخليتين ثم القسمة على الخلية في العمود الأول Cells(I, 3) = (Cells(I, 2) - Cells(I, 1)) / Cells(I, 1) 'الانتقال للخلية التالية Next I Application.ScreenUpdating = True End Sub

الأخ الكريم مولتو (تصدق جعت لما سمعت اسمك) أهلا ومرحباً بك في المنتدى ونورت .. يرجى تغيير اسم الظهور للغة الزهور اللغة العربية يرجى الإطلاع على هذا الرابط لمعرفة التوجيهات (للضرورة ..إذا كنت ستتعامل مع المنتدى بشكل دائم) http://www.officena.net/ib/index.php?showtopic=60147 يرجى إرفاق ملفك الذي به المشكلة المشكلة بشكل مبدئي سببها الخلايا المدمجة ................................ إذا أزلت الدمج ستحل المشكلة تقبل تحياتي

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

أخي الكريم أبو عاصم (مش ناوي تغير اسم الظهور للغة العربية) إليك الملف التالي عله يكون المطلوب تم إضافة هذا السطر لأكواد الحماية .EnableOutlining = True Protect & Unprotect All Sheets YasserKhalil V3.rar

جرب الكود بهذا الشكل Sub ConvertFormulaToVBA() 'لتظهر النتائج في العمود الثالث [=(B1-A1)/A1] يقوم الكود بتحويل المعادلة '---------------------------------------------------------------------- Dim I As Long Application.ScreenUpdating = False 'حلقة تكرارية من الصف الأول لآخر صف به بيانات في العمود الأول For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'إذا كانت الخلية في العمود الأول تساوي صفر لا يتم تنفيذ السطر التالي ويتم الانتقال للسطر الذي بدايته 1 If Cells(I, 1) = 0 Then GoTo 1 'الخلية في العمود الثالث تساوي الفرق بين الخليتين ثم القسمة على الخلية في العمود الأول Cells(I, 3) = (Cells(I, 2) - Cells(I, 1)) / Cells(I, 1) 'الانتقال للخلية التالية 1 Next I Application.ScreenUpdating = True End Sub

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

أخي الحبيب صلاح يتم استخدم الكلمة Call ثم اسم الإجراء الفرعي المراد تنفيذه Call MyMacro حيث أن MyMacro اسم الإجراء الفرعي المراد تنفيذه عند فتح المصنف

أخي الفاضل أحمد علي المعادلة أو الكود يوضع بين أقواس تنصيص ليظهر بالشكل المناسب ستجد هذا الشكل <> لتضع المعادلة فيه