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

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


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

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

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

المطلوب كود للتصفية التلقائية للعمود الذي يكون فيه أطول بيانات وتكون التصفية حسب شرط بلا فراغات حيث أن البيانات في الأعمدة متغيرة الطول وأريد أن تتم التصفية عند عمل الكود وفق أطول بيانات لعمود ما اذا لا توجد امكانية لكل الأعمدة على أقل تقدير العمودين 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 ) والمطلوب من الكود خاصتك أن يقوم بالعمل بعد كودي بالتصفية في الورقة الثانية للعمود الأطول بيانات والعملية متغيرة

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

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.

×
×
  • اضف...

Important Information