مساعدة في التصفية

[أزهر]

أعلم أن موضوع التصفية في الاكسل موضوع واسع ومتشعب ومفيد جداً.

أرفق لكم ملفاً به المطلوب. فياليت أحدكم يفيدني وله جزيل الشكر

سؤال.rar

[يحيى حسين]

أخي إن كنت تقصد ان يتم وضع قيمة اي خلية في المدى الذي قمنا بتصفيته في الخلية D4

جرب هذا الكود البسيط

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 6 Then Exit Sub

LR = Range("F" & Rows.Count).End(xlUp).Row

If Target.Row > LR Or Target.Row <= 4 Then Exit Sub

Range("D4").Value = ActiveCell.Value

End Sub

[أزهر]

اشكرك أخي جزيل الشكر على ما تفضلت به من رد،،،

قمت بإدراج الكود في الملف فلم يظهر لي أي شيء، يمكنك تجربة ذلك في الملف المرفق في المشاركة السابقة وإفادتي،

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

[عبدالله باقشير]

السلام عليكم

بعد اذن اخي يحي حسين

استخدم الصيغة التالية في الخلية D4

IF(COUNT($F$5:$F$300)=SUBTOTAL(2;$F$5:$F$300);"";SUBTOTAL(4;$F$5:$F$300))

تفضل المرفق

ارجاع قيمة التصفية.rar

تم تعديل أكتوبر 19, 2009 بواسطه خبور خير

[أزهر]

أشكرك جزيل الشكر أخي خبور خير على ما تفضلت به من حل لمشكلتي، وجزاك الله كل خير، كما أن الشكر موصول لأخي يحيى حسين

[يحيى حسين]

ما شاء الله عليك اخي خبور

أستاذ و ستبقى استاذ في هذا المنتدى

و الله اني احبك في الله

[عبدالله باقشير]

السلام عليكم

اخي ازهر

تقبل تحياتي وشكري

اخي الحبيب يحي حسين

ادام الله المحبة في الله

تقبل تحياتي وشكري

[أزهر]

هل من الممكن تطبيق ذلك على نص بدل تأريخ