قائمه منسدله لجلب البيانات ( تصفية صفوف )

[بوامجاد]

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

ارجو المساعده ، هل يوجد داله تقوم بتصفيه الصفوف بناءاً على قائمه منسدلهولتوضيح موجود بالمرفق .

Employee.rar

[جلال الجمال_ابو أدهم]

تابع المرفق
 

مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_اكواد و فورم منفصله_قائمه منسدله و التصفيه و فلترة البيانات

[سليم حاصبيا]

جرب هذا الملف

جرى بعض التغيرات على الخلايا المدمجة لحسن عمل الكود

 

Employee salim.rar

[omar elhosseini]

الاخ بوامجاد

طريقة اخري بالمرفقات

 

Private Sub Workbook_Open()
'
Filter_On_Hide_Me
'
End Sub
 

Sub Filter_On_Hide_Me()
'
Dim Cel As Range
Dim Rng As Range
Set Rng = Range("A5:P5")
Application.ScreenUpdating = False
If Not ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("A5").AutoFilter
End If
For Each Cel In Rng
    If Cel.Column <> 7 Then
        Cel.AutoFilter Field:=Cel.Column, VisibleDropDown:=False
    End If
Next
Application.ScreenUpdating = True
'
End Sub

Sub Show_All()
'
Application.ScreenUpdating = False

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If
Application.ScreenUpdating = True
'
End Sub
 

طريقة اخري بالمرفقات

Employee_1.rar

 

 

 

تم تعديل يونيو 1, 2016 بواسطه عمر الحسيني

[بوامجاد]

 

اقدم جزيل الشكر لكل القائمين على هذا المنتدى الرائع وأشكر الأستاذ / سليم حاصبيا والأستاذ / عمر الحسيني على مساعدتهم لي والتعلم منهم