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

بالنسبة للطلب الثاني استخدم المعادلة التالية =RIGHT(A20,1)

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

أخي الكريم ارفق ملف للإطلاع عليه ويا حبذا لو أرفقت بعض النتائج المتوقعة تقبل تحياتي

لو توضح بشكل النتائج المتوقعة يكون أفضل أخي الحبيب عموماً جرب الملف التالي Salim.rar

أخي الكريم سليم جرب الملف التالي تم الاستعانة بعمود مساعد saleem.rar

أخي الغالي خالد ...شايف الموضوع مولع المنتدى .. ياريت كل فترة تعمل تجميعة لكل الشروحات في ملف واحد عشان اللي مش متابع من البداية يقدر يكمل معاك ويتابع (مجرد اقتراح !!) تقبل الله منا ومنكم وجعل أعمالك صالحة ولوجهه خالصة تقبل تحياتي

إخواني الكرام كي لا تضيع الكنوز إليكم أفضل ملف رأيته في موضوع التفقيط من وجهة نظري وهو للأخ الكريم أسامة البراوي حفظه الله ورعاه وسدد خطاه وجعل أعماله في ميزان حسناته يوم القيامة :fff: :gift2: والملف يشمل اللغة العربية والإنجليزية .. Tafket OB.rar

وجزيت بمثله أخي رجب تقبل الله منا ومنكم وكل عام وأنت إلى الله أقرب وعلى طاعته أدوم

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

الباشمهندس الحبيب طارق كل عام وأنتم بخير زيادةً في الخير وإثراءً للموضوع إليك أخي السائل الكود التالي .. Sub HideUnideRow() With ActiveSheet.Buttons("Button 3") If .Caption = "إخفاء المجاميع" Then .Caption = "إظهار المجاميع" Rows("5:5").EntireRow.Hidden = True Else .Caption = "إخفاء المجاميع" Rows("5:5").EntireRow.Hidden = False End If End With End Sub حيث Button 3 هو اسم زر الأمر .. في حالة الملف المرفق من قبل الباشمهندس يتم تغيير كلمة Button 3 إلى Button 1 Hide & Unhide Specific Row Tarek & Yasser.rar

الحمد لله أن تم المطلوب على خير .. يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب

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

بسم الله ما شاء الله تفاعل كبير في الموضوع إليك المعادلة التالية بعيداً عن معادلات الصفيف =SUMPRODUCT(($C$2:$C$44)*($A$2:$A$44=$F$8)*($B$2:$B$44=$H$8))

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

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

راجع المشاركة رقم 11

معادلة الأستاذ الكبير محمد صالح صحيحة وتعطي نفس النتائج للمعادلة التي أدرجتها في المشاركة رقم 9 راجع النتائج بارك الله فيك

بخصوص المشاركة رقم 8 هل قمت بعد إدراج المعادلة بالضغط على Ctrl + Shift + Enter

للحصول على أكبر سعر إليك المعادلة التالية =IF(ISERR(LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)),"",LARGE(IF($K$8:$K$130=B8,$L$8:$L$130,""),1)) لا تنسى أنها معادلة صفيف

أخي الحبيب أبا عمر إذا كان يعطيك الخطأ Name فهذا يعني أنك تستخدم أوفيس 2003 على أغلب الظن جرب تحذف الجزء الأول IFERROR والجزء الأخير "" INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1)) طبعاً سيكون هناك خطأ في حالة عدم وجود نتيجة للبحث ولكن جرب المعادلة أولاً بهذا الشكل لترى النتائج .. هل النتائج ستكون كما تريد أم لا ؟ لتجنب الخطأ جرب المعادلة في أوفيس 2003 بهذا الشكل =IF(ISERR(INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1))),"",INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1))) الجزئية الأخيرة بعد تنفيذ المطلب الأول والانتهاء منه إن شاء الله نحاول فيها

أخي الحبيب يرجى تغيير اسم الظهور للغة العربية جرب الكود التالي Sub Create_Save_Workbook() 'يقوم الكود بإنشاء مصنف في نفس مسار المصنف الذي يحوي الكود ويحفظه باسم تلقائي '---------------------------------------------------------------------------- Dim WB As Workbook Set WB = Workbooks.Add Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\Yasser_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

أخي الحبيب أبا عمر حسب ما فهمت جرب المعادلة التالية في الخلية F8 وهي معادلة صفيف أي لا تنسى الضغط على Ctrl + Shift + Enter =IFERROR(INDEX($L$8:$L$130,SMALL(IF(B8=$K$8:$K$130,ROW($A$8:$A$130)-ROW($A$8)+1),1)),"") المعادلة ستأتي لك بأول سعر موجود في القائمة الموجودة في العمود K إذا لم يكن الأمر كذلك يرجى وضع بعض النتائج المتوقعة لمعرفة المطلوب بدقة تقبل تحياتي

أخي الحبيب الغالي علاء رسلان بارك الله فيك وجزاك الله خير الجزاء على مساهماتك الفعالة في المنتدى ومحاولة مساعدة الآخرين والمشاركة المستميتة بالموضوعات والمحاولة قدر الإمكان (وهذا ما أرغبه من الجميع) أتحدث هنا عن المحاولة تلو الأخرى بدون يأس وبدون كدر فالمحاولات هي سر النجاح .. ولو تخلينا عن المحاولة لفشلنا .. فقد سمعت ذات مرة أن مخترع المصباح حاول أكثر من ألف مرة ليحقق هدفه ، فنريد أن نزرع في أنفسنا عدم اليأس وأنه طالما ان هناك أنفاس وقلب ينبض ، فالأمل دائماً موجود .. عفواً إن كنت قد اطلت عليكم ، بس يلا أديني بسلي صيامكم جرب الملف التالي عله يفي بالغرض Sub FilterData() Dim LastRow As Long LastRow = Sheets("ورقة2").Cells(Rows.Count, 4).End(xlUp).Row Sheets("Sheet3").Range("G5:N1000").ClearContents Sheets("ورقة2").Range("D4:L" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet3").Range("P1:S2"), CopyToRange:=Sheets("Sheet3").Range("G4:M4"), Unique:=True End Sub تم استخدام التصفية المتقدمة .. ويوجد في قناة اليوتيوب في التوقيع الخاص بي فيديو يشرح كيفية التعامل مع التصفية المتقدمة تقبل تحياتي وكل عام وأنت بخير Advanced Filter YasserKhalil.rar

الأخ الكريم رجب إليك الملف بدون حماية برنامج التوزيع الآلي للملاحظة المرحلة الاعدادية إصدار 1.rar

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