خالد الشاعر قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 الساده الخبراء هل ممكن تحويل هذه المعادلة لكود =IF($A13="";"";INDEX(Data_all;MATCH(INDIRECT("C13");'12'!$B$13:$B$262;0);2)) مرفق ملف للتوضيح Book1.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم ورحمة الله تم استبدال المعادلة بكود لنسخ البيانات المطلوبة Book1.rar 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 اشكرك استاذ زيزو ولكن النسخ لن ينفع لان الاسماء ممكن تكون مش نفس الترتيب علشان كدة اختارت هذه المعادلة فهل ممكن يتحقق من الاسم ثم ينسخ جزاك الله كل خيراً رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم ورحمة الله بعض التعديل على كود أخي زيزو، لكني أتحفظ كثيرا على التعديل (ضعف معرفتي بالأكواد) -ثقيل جدا عند تعدد البيانات-... أرجو من السادة المتمكنين من تخفيفه... بن علية Book1_2.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم ورحمة الله تم تعديل الكود ولكنه يستغرق وقتا فى التنفيذ استبدل الكود السابق بهذا الكود Sub Tra_Data3() Application.ScreenUpdating = False LR = Sheet12.Range("B" & Rows.Count).End(xlUp).Row For R = 13 To LR For F = 13 To Cells(Rows.Count, "C").End(xlUp).Row If Cells(F, "C") = Sheet12.Cells(R, "B") Then Sheet12.Range("C" & R).Range("A1:D1").Copy Range("D" & F).PasteSpecial xlPasteValues End If Next Next Application.CutCopyMode = False MsgBox " تم بحمد الله " Application.ScreenUpdating = True End Sub 1 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 استاذ زيزو جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان