كود نسخ القيمه المقابله للاسم

[commandos1975]

يوجد مجموعه من الاسماء لها اكواد وتم حذف بعض الاسماء والمطلوب كود ماكرو ينسخ الكود المقابل للاسم الي المكان الجديد له بجواره

copy.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الإجراء

Sub mas()
lr = Cells(Rows.Count, 3).End(3).Row
With Range("d4:d" & lr)
.Formula = "=IFERROR(VLOOKUP(C4,H$4:I$27,2,0),"""")"
.Value = .Value
End With
MsgBox "Done by mr-mas.com"
End Sub

وربطه يزر أو في حدث التغيير

بالتوفيق

[هشام جودي]

السلام عليكم

عمل جد ممتاز 

بارك الله فيكم

هل يمكن استعمال الماكرو بين 2 شيتات

[أ / محمد صالح]

ممكن جدا

المهم استعمال الكائن الذي يشير للشيت في مكانه الصحيح

وتعديل المعادلة بما يتوافق مع الشيتين