طلب كود فرز نسب مئوية مرتبط بمتغير بخلية اخرى

[الســـــــاهر]

السلام عليكم ورحمة الله وبركاته

 

الاخوة الافاضل اسرة منتديات اوفيسنا الكرام

 

 

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

 

 

و جزاكم الله خير

 

مرفق ملف يوضح المطلوب 

Book2.rar

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

ممكن مزيد من التوضيح

هل الفرز لكل عمود على حدا أم أن العمودين مرتبطين ببعضهما؟

لو ممكن ترفق شكل النتائج المتوقعة من عملية الفرز ..

[الســـــــاهر]

السلام عليكم

 

الاستاذ الفاضل ياسر

 

اشكر لك مرورك الكريم

 

المطلوب كل عامود على حدة وكل  عامود مرتبط بالخليه اللي فوق الاول ب today  والثاني بالخلية yasterday

 

مرفق ملف بالنتائج المتوقعة 

Book2.rar

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

الأخ الفاضل الساهر

-----------------

إليك الكود التالي في حدث ورقة العمل لعله يكون المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR As Long
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("B6:C6")) Is Nothing Then
        With ActiveSheet
            .AutoFilterMode = False
            With .Range("B8:C" & LR)
                .AutoFilter Field:=1, Criteria1:=">=" & Range("B6").Value, Operator:=xlAnd
                .AutoFilter Field:=2, Criteria1:=">=" & Range("C6").Value, Operator:=xlAnd
            End With
        End With
    End If
End Sub

وأخيراً لا تنسى أن تحدد الإجابة كأفضل إجابة في حالة أن تم حل المسألة

تقبل تحياتي :fff:

AutoFilter Automatically YasserKhalil.rar

[الســـــــاهر]

الاستاذ الفاضل  ياسر

 

 

هذا المطلوب تماما ماشاء الله تبارك الرحمن 

 

كما عودتنا بعطائك الاكثر من رائع

 

 

جزاك الله خير الجزاء

 

تقبل تحياتي واحترامي

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

الحمد لله أن تم المطلوب على خير

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

تقبل ودي واحترامي وتحياتي وورودي :fff: