اخفاء الصفوف حسب شرط معين

[احمد حبيبه]

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

الاخوه الاعزاء .... الرجاء عمل كود لاخفاء صفوف الناجحين وابقاء صفوف الدور الثانى للطباعه

اخفاء.rar

[ياسر خليل أبو البراء]

الأخ الكريم أحمد حبيبه

إليك الملف المرفق عله يفي بالغرض

Sub HideNageh()
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A2:C2").AutoFilter Field:=3, Criteria1:="<>" & "ناجح"
    End With
End Sub

Sub ShowAll()
    With ActiveSheet
        .AutoFilterMode = False
    End With
End Sub

تقبل تحياتي

Filter Data.rar

[احمد حبيبه]

اخى واستاذى الكبير ..ياسر

بارك الله فيك ..هذا ما ارتده

اشكرك جدا جدا

ملحوظه (بحثت عن هذا الموضوع كثيرا فى الايام السابقه ولم اجده الا اليوم وبعد عناء ووجدت رد حضرتك فهل توجد مشكله فى المنتدى )

وهل يمكن ضبط هذا الملف وهو نفس فكره الملف السابق ..

شكرا جدا لحضرتك

اخفاء صفوف.rar

[ياسر خليل أبو البراء]

الأخ الفاضل أحمد

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

ومن السهل الوصول لموضوعاتك من خلال اسمك بالمنتدى ادخل على رابط كتاباتي ستجد كلمة المشاركات والموضوعات وبسهولة يمكنك الوصول لموضوعك

إليك الكود التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lRow As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        If Not IsEmpty(Range("F3")) Then
            Cells.EntireRow.Hidden = False
            lRow = Range("F3").Value + 4
            Rows("" & lRow & ":39").Hidden = True
        End If
    End If
End Sub

تقبل تحياتي

اخفاء صفوف.rar

[احمد حبيبه]

بسم الله ما شاء الله عليك

مبدع والله العظيم ..تسلم ايدك

لى طلب اخير هل يمكن تغيير الرقم عن طريق

زر  الزيادة والنقصان الموجود بالمرفق

تقبل تحياتى

اخفاء صفوف.rar

[ياسر خليل أبو البراء]

الأخ الكريم أحمد

إليك الملف المرفق عله يفي بالغرض

Sub HideRowsUsingSpinner()
    Dim lRow As Long
    Application.ScreenUpdating = False
        If Not IsEmpty(Range("F3")) Then
            Cells.EntireRow.Hidden = False
            lRow = Range("F3").Value + 4
            Rows("" & lRow & ":39").Hidden = True
        End If
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Hide Rows Using Spinner Form Control.rar

[ا بو سليمان]

ما شاء الله تبارك الله 

[ابوصلاح]

الأخ الكريم أحمد

إليك الملف المرفق عله يفي بالغرض

Sub HideRowsUsingSpinner()
    Dim lRow As Long
    Application.ScreenUpdating = False
        If Not IsEmpty(Range("F3")) Then
            Cells.EntireRow.Hidden = False
            lRow = Range("F3").Value + 4
            Rows("" & lRow & ":39").Hidden = True
        End If
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

مجهود كبير تقوم به اخونا ياسر بوركت

[ياسر خليل أبو البراء]

الأخ الحبيب أبو سليمان

الأخ الكريم أبو صلاح

مشكور على مروركما الكريم بالموضوع وأرجو الله أن تكون قد استفدتم وفي انتظار مشاركاتكم القيمة بإذن الله

تقبلا تحياتي