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

عمل autofilter code VBA


إذهب إلى أفضل إجابة Solved by محي الدين ابو البشر,

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

عندي ملف يوجد عليه كود لعمل فلتر على الصفحة بحيث 

1-لايكون فراغ على الاسطر 

2-الضغط على كبسة الفلتر تلغي الفراغ اي فلتر وتمسح الفراغ 

ادخلت كود اوتوفلتر على vba لاكن يوجد خطا عندي 

مع المرفق ... مشاركة مكررة , ممنوع تكرار نفس المشاركات انتبه لذلك , تم بالفعل حذف المشاركة الأخرى

للاهتمام

test page.xlsm

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

شكرا لكي اخي الكريم محي الدين جعله في ميزان حسناتك

الكود شغال معي 100% ولكن في ملاحظة 

عند الضغط على كبسه الفلتر يقوم بعمل فلترة وعند الخروج منها يظهر الفراغات كما كانت في السابق 

 لا اريد الفراغات حتى بعد الضغط على كبسة الفلتر أي يعني فلتر للصفحة كامله  

وشكرا لك مره ثانية 

 

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

  • أفضل إجابة

المشكلة بالمصطلحات التي تستخدمها

لا أدري إذا كان هذا ما تقصد

Sub test()
    Range("C3").Resize(Cells(Rows.Count, 3).End(xlUp).Row - 3) _
            .SpecialCells(4).Offset(, -1).Resize(, 8).Delete shift:=(xlUp)
            ActiveSheet.Range("b3:i10").PrintPreview
End Sub

 

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

اريد  أن اضيف اوامر جديده على ملف 

امر copy 

أمر undo 

عندي كود vba

Sub Button4_Click()
Application.ScreenUpdating = False
    LR = [c1000].End(xlUp).Row
    For i = LR To 2 Step -1
        If Cells(i, 3) = 0 Then Rows(i).Delete shift:=xlUp
    Next
Application.ScreenUpdating = True
End Sub

undo    -  اريد ان اعمل رجوع بعد إلغاء الاسطر 

copy    -(delete) اريد ان اعمل نسخ من سطر الى سطر بعد الإلغاء

اليك المرفق 

تم حذف المشاركة الأخرى فممنوع تكرار نفس المشاركات

page.xlsm

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

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

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



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

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

Important Information