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

التصفية التلقائية وفق العمود ألأطول بيانات


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

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

أساتذتي الأفاضل حفظكم الله

المطلوب كود للتصفية التلقائية للعمود الذي يكون فيه أطول بيانات وتكون التصفية حسب شرط بلا فراغات حيث أن البيانات في الأعمدة متغيرة الطول وأريد أن تتم التصفية عند عمل الكود وفق أطول بيانات لعمود ما اذا لا توجد امكانية لكل الأعمدة على أقل تقدير العمودين A و G

أبو أنس

تصفية بشرط العمود الاطول بيانات.rar

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

ده كود تصفية أرجو أن يكون المطلوب وتستطيع التعديل علية كيفما شئت بما يناسب إحتياجاتك ويمكن أيضا تعديل مجال التصفية فية حسب ماتريد

تصفية بشرط العمود الاطول بيانات.rar

تم تعديل بواسطه mahmoud-lee
رابط هذا التعليق
شارك

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

أخي الفاضل محمود حفظك الله ويسر لك سبل الخير

عذراً فليس هذا هو المطلوب

فالمطلوب أن يتحسس الكود من العمود الأطول بيانات ثم يتم التصفية فيه حسب شرط بلا فراغات انا ربما استطيع حله بمساعدة عمود مساعد ولكن أريد كود مباشر.

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

أبو أنس

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

السلام عليكم

جرب الكود التالي:


Sub kh_AutoFilter()

Dim c As Long, m As Long

Dim f As Integer, v As Integer


Cells.AutoFilter

With Cells.Worksheet

    If .AutoFilterMode = False Then

        .Range("A3:K" & .UsedRange.Rows.Count).AutoFilter

    End If

    With .AutoFilter

        For f = 1 To .Range.Columns.Count

            c = WorksheetFunction.CountA(.Range.Columns(f))

            If c > m Then m = c: v = f

        Next

        .Range.AutoFilter v, "<>"

    End With


End With


End Sub

هل هو المطلوب

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

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

سيدي وأستاذي الفاضل عبد الله باقشير حفظك الله

اللهم أسالك بأسمك الأعظم أن تتم نعمك على سيدي عبد الله باقشير وأن تجعل الفردوس الأعلى دار قراره مع من يحب.

أبو أنس

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

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

أستاذي وسيدي الفاضل عبد الله باقشير حفظك الله

حدث تعارض مع كود أستخدمه والكود خاصتك أرجو تصويب الخلل لدي.

المرفق

CHEKING.rar

أبو أنس

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

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

أستاذي وسيدي الفاضل عبد الله باقشير حفظك الله

حدث تعارض مع كود أستخدمه والكود خاصتك أرجو تصويب الخلل لدي.

المرفق

CHEKING.rar

أبو أنس

لم افهم ايه المطلوب من الكود بتاعك

لان فيه الكثير من الفلترة

طيب الكود اللي انا عامله اين عمله في الشيت الاول او الثاني

اذا كان في الشيت الاول

حسب وضعك للكود وضعته بعد تحديد الشيت الثاني

؟؟؟؟؟؟؟؟؟؟

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

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

أستاذي الفاضل بالنسبة للكود خاصتي يقوم بالتصفية في الورقة الاولى للأعمدة C و G كلا على حدة حسب وجود الرقم واحد والنسخ أيضا كلا على حدة للاعمدة المتعلقة بكل عمود إلى الورقة الثانية (وهي من A:D بالنسبة للعمود C و E:H بالنسبة للعمود G ) والمطلوب من الكود خاصتك أن يقوم بالعمل بعد كودي بالتصفية في الورقة الثانية للعمود الأطول بيانات والعملية متغيرة

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information