atob قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم ورحمه الله وبركاته اعزائي اعضاء هذا المنتدى الرائع عندي طلب واريد مساعدتكم فيه وهو ان لدي عمودين وفيها ارقام واريد ان ارتب الارقام المتشابهه بين العمودين طبعا يصعب الشرح هنا ولكن في الملف المرفق الفكره اوضح واخير اشكر لكم مساعدتي وضع رقم مشابهه.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم ربما هذا يفيدك 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 رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 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 رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 اشكركم اخي ابو حنين واخي ابو عبدالباري على مساعدتكم لي ولي طلب اخير هل استطيع ان احدد عدد الارقام المتشابهه من خارج الكود مثلا الرقم 581011RA00 يشبه الرقم 581011RA00 M لكني اريد ان يحدد الرقم المشابهه في عدد خانات (مثلا او ل 5 خانات 58101 من اليسار ) او اي رقم خانات احدده من خارج الكود والكود الذي اعطيتني اخي ابو حنين ممتاز لكني اريد هذه الاضافه ولا عليك امر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان