انا وجدة كود لموضوع القائمة للفتلرة
وعلى قدر استطاعتى عرفت ان لو عملت تسجيل للميكرو واخفيت صف عرفت انه هيظهرلى الكود الخاص بامر الفلتره وهو EntireRow.Hidden = True
والكود كامل بعد التعديل هو
Sub hiden_line()
'CODE FOR HIDE VALUE
Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
' D7 هى الخلية التى بها القائمة او القيمة المطلوب الفلتره عليها
If cell.Value = Range("D7").Value Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub
Sub show_line()
'CODE FOR SHOW VALUE
Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
If cell.Value = Range("D7").Value Then
cell.EntireRow.Hidden = False
End If
Next cell
End Sub
Sub show_lineALL()
'CODE FOR SHOW ALL VALUE
Dim rng As Range
Dim cell As Range
Set rng = Range("A10:M25")
For Each cell In rng
If cell.Value = "وارد" Or cell.Value = "صرف" Then
cell.EntireRow.Hidden = False
End If
Next cell
End Sub
@احمدزمان لو امكن حضرتك ممكن تساعدنى فى هذه النقطة
بحيث ادمج هذا الكود مع كود حضرتك بحيث يكون هناك زرار واحد لعمل كل الخطوات بدل 4 مفاتيح
يعنى انا محتاج من حضرتك تساعدنى فى دمج هذه الاكواد او
كيف اخلى لما اختار شئ من القائمة المنسدلة يتم تطبيق الميكرو تلقائي دون ان يكون هناك مفتاح لتنفيذ المايكرو