مساعده .... ترتيب ارقام متشابهه بين عمودين

[atob]

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

اعزائي اعضاء هذا المنتدى الرائع عندي طلب واريد مساعدتكم فيه وهو ان لدي عمودين وفيها ارقام واريد ان ارتب الارقام المتشابهه بين العمودين

طبعا يصعب الشرح هنا ولكن في الملف المرفق الفكره اوضح

واخير اشكر لكم مساعدتي

وضع رقم مشابهه.rar

[أبو حنــــين]

السلام عليكم

ربما هذا يفيدك

Sub sCoopy()

Application.ScreenUpdating = False
Dim C As Range, J As Range
    Range("D6:D13").ClearContents
    For Each C In Range("C6:C13")
    For Each J In Range("J6:J13")
    If J Like C & "*" Then C.Offset(, 1).Value = J.Value
    Next
    Next
Application.ScreenUpdating = True

End Sub

 

[ابو عبدالبارى]

6 ساعات مضت, atob said:

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

اعزائي اعضاء هذا المنتدى الرائع عندي طلب واريد مساعدتكم فيه وهو ان لدي عمودين وفيها ارقام واريد ان ارتب الارقام المتشابهه بين العمودين

طبعا يصعب الشرح هنا ولكن في الملف المرفق الفكره اوضح

واخير اشكر لكم مساعدتي

وضع رقم مشابهه.rar

الأخ الكريمatob

السلام عليكم

يمكن ايضا عمل ذلك بمعادلات الصفيف

={IFERROR(VLOOKUP(C6;MID(J6:J13;1;FIND(" ";J6:J13;1)-1);1;0)&MID(J6:J13;FIND(" ";J6:J13;1);3);""}

 

 

abo_abary_وضع رقم مشابهه.zip

[atob]

اشكركم اخي ابو حنين واخي ابو عبدالباري على مساعدتكم لي

ولي طلب اخير هل استطيع ان احدد عدد الارقام المتشابهه من خارج الكود

مثلا الرقم  581011RA00   يشبه  الرقم  581011RA00 M  لكني اريد ان يحدد الرقم المشابهه في عدد خانات (مثلا او ل 5 خانات 58101 من اليسار ) او اي رقم خانات احدده من خارج الكود

والكود الذي اعطيتني اخي ابو حنين ممتاز لكني اريد هذه الاضافه ولا عليك امر