كود ترحيل الى نفس الشيت

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم
الاخوه الكرام ارجو المساعده فى عمل كود
يقوم بنقل قيمه الورديه من(  D30To D40    )حسب الاسم المقابل لها فى الخلايا من (B30 TO B40  )
الاسم احمد 1 قيمه الورديه الخاصه به 15
الاسم احمد 3 قيمه الورديه الخاصه به 20 وهكذا
يتم نقل القيمه الىى العمود F  ابتداء من الخلايا ( F2 To F20 )
كما بالشكل  بنفس الفرمات
 

Sheft.rar

[ابو علي و سدرة]

اخى الكريم

المرفق هو حل بمعادلة بدون كود

لو كان يفى بالمطلوب تقدر تستخدمه

وان لم يفى بالمطلوب فبرجاء تحديد المطلوب بدقة اكبر

Sheft.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم ابو علي و سدرة

جزاك الله كل على وقتك ومجهودك 

اخى الحبيب استخدام كود وذلك لان القيم المتغيره  هى المراد ترحلها 

والمعادلات تجعل اى اسم غير موجد امامه قيمه صفر

وتم حبل الامر بكود من ابداع الاخ حسام ..جزاه الله كل الخير والتقدير

مرفق الكود لاستفاده لمن اراد

Sub alsqr()
For i = 30 To 40
For r = 2 To 20
If Cells(i, 2) = Cells(r, 2) Then
Cells(r, 6) = Cells(i, 4)
End If
Next
Next
End Sub