عمل autofilter code VBA

[WAEL-2017]

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

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

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

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

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

للاهتمام

test page.xlsm

[محي الدين ابو البشر]

May be?

Sub filter()
    Range("B3:I3").Select
    Selection.AutoFilter
    ActiveSheet.Range("B3:I3").AutoFilter Field:=2, Criteria1:="<>"
    ActiveSheet.PrintPreview
    Selection.AutoFilter
End Sub

 

[WAEL-2017]

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

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

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

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

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

 

[محي الدين ابو البشر]

Sub filter()
    Range("B3:I3").Select
    Selection.AutoFilter
    ActiveSheet.Range("B3:I3").AutoFilter Field:=2, Criteria1:="<>"
    ActiveSheet.PrintPreview
End Sub

 

[WAEL-2017]

يا سيد محي الدين شكرا لك على مجهودك

 لكن الطباعة انا بعرفها وأريد ان اثبت الفلتر بعد الطباعة  أي تثبيت الفلتر بعد الطباعة 

 

[محي الدين ابو البشر]

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

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

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

 

[WAEL-2017]

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

امر 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

[WAEL-2017]

للرفع