اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information