الوقوف على اول خليه بعد الفرز

[samycalls2020]

السلام عليكم . . الأخوة الكرام .هذا ملف المطلوب عمل كود لفرز عمود رقم واحد في الجدول بناء على الاسم الموجود في

 الخلية K4 والوقوف على اول خليه بها الاسم بعد الفرز في نفس العمود ..شكرا

أول خلية.xlsb

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته  ..تفضل اخي

Sub cherche()
Dim plage As Range, add As Range
Dim X As Long, Y As Long
Dim cellule As Variant
Set plage = Range("E8:E1000")
Set cellule = Range("k4")
ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1, Criteria1:=Feuil1.Range("k4").Value
Set SearchRange = Range("E8:E1000")
    Set Findrow = SearchRange.Find(cellule, LookIn:=xlValues, lookat:=xlWhole)
 
 If Findrow Is Nothing Then
            MsgBox "الاسم غير موجود"
        Else
            X = Findrow.Row
            Y = Findrow.Column
            Cells(X, Y).Select
        End If
End Sub

ملاحظة قد تم استبدال قائمة الاسماء بقائمة مطاطية مع حدف التكرار

أول خلية_MH.xlsb

[samycalls2020]

ألف شكر  أ / محمد هشام  ..تقديري وتحياتي