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

بارك الله فيك أخي الفاضل علي الشيخ تسلم على المعادلة الجميلة دي

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

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

أخي الفاضل إبراهيم السيد أهلا بيك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات للضرورة .. مش مجرد روتين http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للفيل اللي نزلته (قدرت تنزله لوحدك ..بسم الله ما شاء الله .. بس الفيل تقيل يا جميل إزاي قدرت تنزله هههه ) بالنسبة لطلبك الموضوع في منتهى البساطة والشياكة إنت عندك في الخلية P1 موجود تاريخ حلو الكلام (قول حلو بس اوعاك تاكله ..) اللي حصل كالآتي .. الأخ اللي عمل الفايل حدد النطاق بالكامل من $A$1:$N$1000 من التبويب Home لو عندك إصدار أوفيس 2007 فما فوق .. هتلاقي Conditional Formatting أو بالعربي التنسيق الشرطي (بس دا ملوش علاقة بالشرطة ) افتح القايمة المنسدلة اللي جنب الكلمة واختار New Rule .. دا لو لسه مكانتش اتعملت اختار آخر اختيار في النافذة اللي اسمها New Formatting Rule والخيار اسمه Use a formula to determine which cells to format وهتكتب المعادلة التالية في الحقل اللي على يمينه سهم أحمر يا أهلاوي =$A1>=$P$1 المعادلة بتقول إن الخلية A1 أكبر من أو يساوي الخلية P1 (يعني التاريخ في A1 أكبر من أو يساوي التاريخ في الخلية P1 ..) لاحظ إن الخلية P1 قبلها علامة الدولار قبل اسم العمود وقبل رقم الصف (أصلها لسه خارجة من البنك ...) طبعاً لأن الخلية دي ثابتة ...أما الخلية A1 متغيرة يعني لما المعادلة تنطبق على باقي الخلايا طبيعي إننا نختبر كل الخلايا مش الخلية A1 بس عموما المعادلة بتكون نتيجتها يا أبيض يا إسود ..أقصد يا صح يا غلط .. أقصد يا True يا False يعني لما الشرط يتحقق ويكون التاريخ الموجود في الخلية A1 أكبر من التاريخ في P1 بيكون الناتج Tue ولما الناتج يكون صح بكدا الإكسيل هيسمع الكلام وينفذ المطلوب منه طيب ايه المطلوب من الإكسيل (دا إنت اللي بتحدده) إزاي هقولك ..ركز معاايا آخر حاجة كتبنا المعادلة ..دلوقتي هتلاقي زر أمر اسمه Format (عينك تاااااااهت ليه ) تحت الحقل اللي كتبت فيه المعادلة لما تنقر Format (اشرب فوسفات وانسى اللي فات) هتلاقي فيه تبويبات في النافذة اللي طلعت (تدخل على أي تبويب ... والمشهور التبويب Fill بتاع تلوين الخلية) واختار اللون اللي يعجبك وبعدين تضغط أوك 3 مرات .... أرجو أن تكون قد استفدت أخوك أبو البراء

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

أخي الحبيب أحمد جرب الكود التالي Sub FilterGreaterThan5() Application.ScreenUpdating = False Sheet2.Activate With ActiveSheet .AutoFilterMode = False .Range("A1").AutoFilter Field:=1, Criteria1:=">5" End With Sheet1.Activate Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

لكي تجعل الكود الثاني لا يلغي الفلترة قم بوضع تعليق على السطر التالي ActiveSheet.AutoFilterMode = False جرب وشوف

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

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

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

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

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

تفضل Sub FLTR_ACC_CS_CR() ActiveSheet.AutoFilterMode = False Rows("2:6").EntireRow.Hidden = False Cells.Columns.EntireColumn.Hidden = False Range("A9:M9").AutoFilter With Range("A9:M708") .AutoFilter field:=9, Criteria1:=Range("C2").Value .AutoFilter field:=4, Criteria1:=Range("C6").Value End With Rows("3:4").EntireRow.Hidden = True Columns("D:D").EntireColumn.Hidden = True Columns("I:I").EntireColumn.Hidden = True End Sub الثاني لابد من إضافة عليه Public Sub FLTR_ACC_DATE() Dim lngStart As Long, lngEnd As Long lngStart = Range("C3").Value 'Assume this is the start date lngEnd = Range("C4").Value 'Assume this is the end date ActiveSheet.AutoFilterMode = False Rows("2:6").EntireRow.Hidden = False Cells.Columns.EntireColumn.Hidden = False 'Assume you have field name / label in D29 Range("A9:M708").AutoFilter field:=2, _ Criteria1:=">=" & lngStart, _ Operator:=xlAnd, _ Criteria2:="<=" & lngEnd Rows("2:2").EntireRow.Hidden = True: Rows("6:6").EntireRow.Hidden = True End Sub تقبل تحياتي

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

أخي محمد الخازمي جبر التالي عله يكون المطلوب ....... Private Sub CommandButton1_Click() Range("D10:D13").Interior.Color = xlNone If ActiveCell.Address <> "$D$10" And ActiveCell.Address <> "$D$11" And ActiveCell.Address <> "$D$12" Then With Range("D10") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$10" Then With Range("D11") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$11" Then With Range("D12") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$12" Then With Range("D13") .Select: .Interior.Color = RGB(128, 128, 128) End With End If End Sub تقبل تحياتي

عموما جرب الكود بهذا الشكل : Private Sub CommandButton1_Click() If ActiveCell.Address <> "$D$10" And ActiveCell.Address <> "$D$11" And ActiveCell.Address <> "$D$12" Then Range("D10").Select ElseIf ActiveCell.Address = "$D$10" Then Range("D11").Select ElseIf ActiveCell.Address = "$D$11" Then Range("D12").Select ElseIf ActiveCell.Address = "$D$12" Then Range("D13").Select End If End Sub عله يكون المطلوب

مزيد من التوضيح لأنك بكدا بترهق الأعضاء هل تريد زر أمر يقوم بالتنقل عوضاً عن مفتاح Enter ؟؟ أليس هذا الأمر - إذا كان كما فهمت - فيه شيء من الصعوبة ؟؟؟؟؟؟؟؟؟؟

أخي الكريم أبو عاصم جرب الكود الأول بهذا الشكل Sub FLTR_ACC_CS_CR() ActiveSheet.AutoFilterMode = False Rows("2:6").EntireRow.Hidden = False Range("A9:M9").AutoFilter With Range("A9:M708") .AutoFilter field:=9, Criteria1:=Range("C2").Value .AutoFilter field:=4, Criteria1:=Range("C6").Value End With Rows("3:4").EntireRow.Hidden = True End Sub والكود الثاني بهذا الشكل Public Sub FLTR_ACC_DATE() Dim lngStart As Long, lngEnd As Long lngStart = Range("C3").Value 'Assume this is the start date lngEnd = Range("C4").Value 'Assume this is the end date ActiveSheet.AutoFilterMode = False Rows("2:6").EntireRow.Hidden = False 'Assume you have field name / label in D29 Range("A9:M708").AutoFilter field:=2, _ Criteria1:=">=" & lngStart, _ Operator:=xlAnd, _ Criteria2:="<=" & lngEnd Rows("2:2").EntireRow.Hidden = True: Rows("6:6").EntireRow.Hidden = True End Sub تقبل تحياتي

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

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

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

المرحلة الثانية شاهد الفيديو وشوف الملف المرفق وكمل البيانات الناقصة ..حاول بقدر الإمكان تظبط البيانات Filter Data.rar

في الخلية C2 ضع المعادلة التالية علها تفي بالغرض =IF(B2="","",IF(B2<1,0,IF(AND(B2>1,B2<200),5,IF(AND(B2>200,B2<420),9,IF(AND(B2>420,B2<625),12,IF(B2>625,15)))))) تقبل تحياتي