قيمة عامل التصفية

[أزهر]

السلام عليكم...

لدي ملف قمت بعمل تصفية فيه لأحد الأعمدة، وأريد حين عمل التصفية أن يتم اختيار القيمة التي تمت التصفية بها ويضعها في خلية أخرى.

يوجد مثال بسيط حول طلبي.

الطلب: الآخر: هل يمكن حفظ حقوق في ملفات الاكسل دونما باستطاعة أحد تغييره؟

شاكراً لكم.... برجاء يكون ردكم سريعاً

test.rar

[عبد الفتاح كيرة]

السلام عليكم

الشائع أن تكون الفلترة تبعا لقيمة خلية

وليس العكس

عموما هذا ما يحضرنى الآن

استخدم هذا الكود

Set kk = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)

    kk.Copy Range("z1")

      Range("d2") = Range("aa2")

      Range("aa:z").ClearContents

   Set kk = Nothing

الملف المرفق

test -kemas.rar

[الخالدي]

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

حل اخر باستخدام المعادلات

ادخل المعادلة التالية في الخلية D2 :

=INDEX($D:$D;INDEX(4^8-MAX((INDEX(SUBTOTAL(103;INDIRECT(ADDRESS(ROW($D$5:$D$11);COLUMN($D$5:$D$11))));0)>0)*(4^8-ROW($D$5:$D$11)));))

المعادلة اعلاه تعطي اول عنصر مصفى في العمود , ويمكن تعديل المعادلة لاستخراج العناصر المصفاة وبدون تكرار من أي عمود.

[ابو الآء]

كل الشكر والتقدير الى الاخ الحبيب كيماس

واتمنى منه شرح التصفبه التلقائية بالكود ولكن عند تغيير قيمة خلية محددة تتبعها التصفية التلقائية

استاذى الحبيب الخالدى : كيف حالك اتمنى من المولى عز وجل ان تكون بخير

والله وحشتنا اعمالك وردودك الجميلة

بارك الله فيك

[عبد الفتاح كيرة]

ما شاء الله على الإبداعات

مرحبا بأستاذنا عادل

إن شاء الله فى قابل الأيام إن يسر الله و أعان

هذا كود أكثر اختصار

و يمكننا اعتباره كودا لمعرفة أول خلية مفلترة

Sub Button4_Click()

With ActiveSheet.AutoFilter.Range

Set kemas = .Columns(2).Resize(.Rows.Count, 1).Offset(1, 0) _

.Cells.SpecialCells(xlCellTypeVisible)

Range("d2") = kemas

End With

End Sub

معادلة لمعرفة أول عنصر مصفى2.rar

تم تعديل مايو 3, 2011 بواسطه kemas

[احمد فضيله]

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

[أزهر]

أتقدّم بشكري الجزيل لكل من ساعدني في حل هذا الأمر...

شكرا جزيلا