فلتر مشروط

[ehab ali926]

اهلا

مطلوب فرز البيانات لاستخراج الخلية التى تحتوى على حرف كبير+حرف صغير+رقم

EE22.xlsx

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

ربما هذا الماكرو يفي بالغرض

Option Explicit

Sub Crezy_filter()
Dim Sh As Worksheet
Dim i%, m%, Lr%
Dim Obj As Object
Dim My_match
Set Sh = Sheets("Sheet1")
Set Obj = CreateObject("Vbscript.Regexp")
Lr = Sh.Cells(Rows.Count, 1).End(3).Row
Sh.Range("C4").CurrentRegion.ClearContents
m = 4
With Obj
.Pattern = "^([A-Z][a-z]\d+)"
.Global = True
.ignorecase = False
End With
For i = 4 To Lr
    If Obj.test(Sh.Cells(i, 1)) Then
      Set My_match = Obj.Execute(Sh.Cells(i, 1))
       Sh.Cells(m, 3) = Sh.Cells(i, 1)
      m = m + 1
    End If
Next
Set Obj = Nothing
End Sub

الملف مرفق

EE22.xlsm

[ehab ali926]

الف شكر

عمل ممتاز

كما عودتنا دائما

جزاك الله كل خير

🙂 🤝

[أحمد يوسف]

ehab ali926

أين الضغط على الإعجاب على هذا الكود الرائع والإجابة الممتازة من استاذنا الغالى سليم ؟!!!💙