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

[أبو أنس حاجب]

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

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

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

أبو أنس

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

[جمال عبد السميع]

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

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

تم تعديل يونيو 2, 2012 بواسطه 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 ) والمطلوب من الكود خاصتك أن يقوم بالعمل بعد كودي بالتصفية في الورقة الثانية للعمود الأطول بيانات والعملية متغيرة