فلترة بشرط كلمة معينة

[أبو قاسم]

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

محتاج فلترة النطاق A1:Y  بشرط كلمة WATE في العمودO    .... تـــم تعديل رفع الملف , فبما انك تريد الحلول بالأكواد فكان أولى ان تقوم برفع الملف بإمتداد XLSM

المصنف1 (1).xlsm

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

جرب هذا الملف

الماكرو يجد اخر خلية تحتوي الكلمة و يحدد الصف

1- اختر الكلمة التي تريدها من الخلية C1  ثم اضغط الزر الازرق

Option Explicit

Sub select_row()
Dim rg As Range
Dim i#, Ro#, Nb#
Ro = Cells(Rows.Count, "O").End(3).Row
Range("A4:A" & Ro).Rows.Hidden = True
 For i = Ro To 4 Step -1
  If Cells(i, "O") = Range("C1") Then
   Nb = i
  Exit For
  End If
 Next
  
  If Nb > 0 Then
    Cells(Nb, 1).EntireRow.Hidden = False
    Range("A" & Nb).Resize(, 25).Select
    Else
  Range("A4:A" & Ro).Rows.Hidden = False
  End If
End Sub
'+++++++++++++++++
Sub show_rows()
ActiveSheet.Cells.Rows.Hidden = False
End Sub

الملف مرفق

Kassim.xlsm

[Ali Mohamed Ali]

بعد اذن استاذ سليم ولإثراء الموضوع هذا كود أخر

Sub FilterRows()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=15, Criteria1:="WATE"
End Sub

ولحذف او اخفاء الفلترة -يمكنك استخدام هذا الكود

Sub TurnOFFAutoFilter()
  Worksheets("Sheet1").AutoFilterMode = False
End Sub

المصنف1 .xlsm

[أبو قاسم]

شكرا جزيلا لكم ربنا يوفقكم