تحويل معادلة

[خالد الشاعر]

الساده الخبراء

هل ممكن تحويل هذه المعادلة لكود

=IF($A13="";"";INDEX(Data_all;MATCH(INDIRECT("C13");'12'!$B$13:$B$262;0);2))

مرفق ملف للتوضيح

Book1.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تم استبدال المعادلة بكود لنسخ البيانات المطلوبة

 

Book1.rar

[خالد الشاعر]

اشكرك استاذ زيزو

ولكن النسخ لن ينفع لان الاسماء ممكن تكون مش نفس الترتيب

علشان كدة اختارت هذه المعادلة

فهل ممكن يتحقق من الاسم ثم ينسخ

جزاك الله كل خيراً

[بن علية حاجي]

السلام عليكم ورحمة الله

بعض التعديل على كود أخي زيزو، لكني أتحفظ كثيرا على التعديل (ضعف معرفتي بالأكواد) -ثقيل جدا عند تعدد البيانات-... أرجو من السادة المتمكنين من تخفيفه...

بن علية

 

Book1_2.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تم تعديل الكود ولكنه يستغرق وقتا فى التنفيذ

استبدل الكود السابق بهذا الكود

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

 

[خالد الشاعر]

استاذ زيزو

جزاك الله كل خير