اذهب الي المحتوي
أوفيسنا

التصفية حسب القسم


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

  • أفضل إجابة

ليست المرة الأولى التي اقول فيها انه يجب على الجدول في اكسل ان يكون مستقلاُ عن اي بيانات أو خلايا خارجية

(خاصة اذا كان هناك عدو الاكواد والمعادلات / الحلايا المدمحة)

فوقة صف فارغ الى يمينه ويساره أعمدة فارغة و بدون خلايا مدمحة أو فارغة

انصح دائماً باستعمال اللغة الأجنبية لتسمية الشيتات    لجسن عملية نسخ الكود ولصقة بدون مشاكل اللغة

اي جدول يأتي لا يطابق هذه المواصفات أعتذر عن المساعدة

تم ادراح صفين فارغين 8  و 9 لفصل الجدول عن كل شيء

Option Explicit
Sub filter_me()
Dim mot, rg As Range, col%
mot = Arabi.Range("M2")
Set rg = Arabi.Range("B9").CurrentRegion
col = 16
rg.AutoFilter col, mot
End Sub
'+++++++++++++++++++++++++++++++
Sub show_all()
If Arabi.FilterMode Then
 Arabi.Range("B9").CurrentRegion.AutoFilter
End If
End Sub

الملف مرفق

 

Filter_Ali.xlsm

  • Like 3
رابط هذا التعليق
شارك

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