طالما انك لم تقم برفع ملف وتوضيح طلبك
تفضل هذا الكود فى حدث الورقة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("C2").Interior.Color = Me.Range("A2").Interior.Color
End Sub
ولإثراء الموضوع
هذا كود لتفعيل الماكرو
Sub enableEvents()
Application.EnableEvents = True
End Sub
وهذا كود اخر لتعطيل الماكرو
Sub disableEvents()
Application.EnableEvents = False
End Sub
لقد تم الرد والإجابة على هذا التساؤل فى هذه المشاركة
عليك بتتبع مشاركتك ومعرفة هل تم الإستجابة ام لا
https://www.officena.net/ib/topic/87465-توزيع-الكميات-تنازلياتوزيع-الكميات-بالترتيب-بالتساوي-تنازليا-حتى-الوصول-الى-اخر-كمية-كل-صنف/