samycalls2020 قام بنشر أكتوبر 23, 2022 مشاركة قام بنشر أكتوبر 23, 2022 السلام عليكم . . الأخوة الكرام .هذا ملف المطلوب عمل كود لفرز عمود رقم واحد في الجدول بناء على الاسم الموجود في الخلية K4 والوقوف على اول خليه بها الاسم بعد الفرز في نفس العمود ..شكرا أول خلية.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 23, 2022 أفضل إجابة مشاركة قام بنشر أكتوبر 23, 2022 وعليكم السلام ورحمة الله تعالى وبركاته ..تفضل اخي 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 1 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أكتوبر 23, 2022 الكاتب مشاركة قام بنشر أكتوبر 23, 2022 ألف شكر أ / محمد هشام ..تقديري وتحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها