طريقة نقل اسم موظف

[بلال اليامين]

السلام عليكم

لدي ورقة1 فيها اسماء التلاميذ  وامام كل اسم تلميذ يوجد الرقم 0

ولدي ورقة2 فيها جدول فقط بدون اسماء 

اريد عند تغيير الرقم من الصفر الى واحد يظهر اسم التلاميذ في الورقة الثانية

Bilal_Y.xlsm

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub replace_1_Name()
Dim sh12 As Worksheet
Dim sh13 As Worksheet
Dim Rg12 As Range, Rg13 As Range
Dim i%

Set sh12 = Sheets("الصفحة 12")
Set sh13 = Sheets("الصفحة 13")
Set Rg12 = sh12.Range("D5:N17")
Set Rg13 = sh13.Range("D5:N17")

Rg13.ClearContents
Rg13.Value = Rg12.Value
For i = 1 To Rg13.Rows.Count
 Rg13.Rows(i).Replace 1, sh13.Cells(i + 4, 2), 1
Next

End Sub

الملف مرفق

Bilal_Y.xlsm

[بلال اليامين]

اخي اين اضع الكود بارك الله فيك

الكود لديك داخل الملف  الأمر لا يحتاج كل هذا

[أحمد يوسف]

بلال اليامين

أين انت من هذه الإجابة الممتازة ؟!!!

أين الضغط على الإعــــجـــــاب  , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!🖤