كيف يتم تغيير محتوى الخلية المرتبطة بالجدول بعد الفلترة

[القول المأثور]

مرحبا بالجميع لدي استفسار من لديه الفكرة 

كيف يتم تغيير محتوى الخلية المرتبطة بالجدول بعد الفلترة 

 

مرفق ملف الأكسل للتوضيح أكثر  

كيف ربط وتغيير محتوى الخلية بعد الفلترة.xlsx

[أ / محمد صالح]

تفضل أخي الكريم 

يمكنك استخدام دالة معرفة udf لجلب معيار او معيارين للفلتر في الخلية وتكون فارغة في حالة عدم تشغيل الفلتر 

Function AutoFilter_Criteria(Rng As Range) As String
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = CStr(.Criteria1)
        If .Operator = xlAnd Then
            str2 = " AND " & CStr(.Criteria2)
        ElseIf .Operator = xlOr Then
            str2 = " OR " & CStr(.Criteria2)
        End If
    End With
End With
AutoFilter_Criteria = Replace(UCase(Rng) & ": " & str1 & str2, "=", "")
End Function

ولاستدعائها

=AutoFilter_Criteria(C7)

بالتوفيق 

[القول المأثور]

جزاك الله خير استاذ محمد صالح

هل يوجد معادلة بسيطة تقوم بالمهمة دون الكودات

[أ / محمد صالح]

لا أظن وجود معادلة بسيطة 

ربما معادلة مصفوفات 

[بن علية حاجي]

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

يمكن استعمال معادلة الصفيف التالية (في خلية غير مدمجة): 

=INDIRECT("C"&MATCH(1;SUBTOTAL(3;INDIRECT("C"&ROW($8:$100)));0)+7)

وهي معادلة صفيف حيث يجب تأكيدها بالضغط على : CTRL+SHIFT+ENTER

وفي الملف المرفق تطبيق مباشر لهذه المعادلة... أرجو أن تفي الغرض المطلوب...

ملاحظة: المعادلة لا تعمل عند الفلترة بعدة شروط أو عند إلغاء الفلترة (وهي في هذه الحالات تعطي الكلمة في الصف الأعلى بداية من الخلية C8)..

كيف ربط وتغيير محتوى الخلية بعد الفلترة.xlsx

[أ / محمد صالح]

عود حميد استاذ @بن علية حاجي

معادلة رائعة 

[القول المأثور]

جزاكم الله خيراً اساتذتنا الكرام ... كما هو مطلوب