عمل احترافي أخي رجب
بارك الله فيكم
و هذا كود مختصر يقوم بنفس العمل
Private Sub CommandButton1_Click()
For s = 1 To 8
Cells(8, 10 - s).Value = Cells(5, s + 1).Value
Next
End Sub
السلام عليكم
أولا ان كان هناك اي سؤال فاسأل اخي بدون اي حرج ما نعرفه نقوله و ما لا نعرفه يعرفه غيرنا
لقد ارسلت الملف مع تغيير اللون و صورتين للتوضيح
اطلب منك ان تقوم انت بالعمل اولا على الملف السابق و هو تغيير العدد 14 بالعدد 10
ان نجحت فهو المطلوب و ان لم تنجح فانظر الى الرفق
مجلد جديد.rar