توزيع رقم على عدد من الخلايا

[amr_ha2003]

برجاء توزيع الرقم الإجمالي على عدد من الخلايا

بحيث يكون الإجمالي موزع على الحضور والتكليفات وmt 

بشرط الرقم في الحضور لا يزيد عن 5 والتكليفات لا يزيد عن 10 وmt لا يزيد عن 10 

كما بالملف المرفق 

وشكرا مقدماً

Book1.xlsx

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

جرب هذا الماكرو

Option Explicit
Sub distribute_num()
Application.ScreenUpdating = False
With Sheets("sheet1")
     Dim cel As Range
     Dim my_rg As Range
     Set my_rg = .Range("e2:e" & .Cells(Rows.Count, "e").End(3).Row)

    For Each cel In my_rg
       If cel <> vbNullString Then
1:
           With cel
             .Offset(, -3) = Int(5 * (Rnd() + 1)) - 4
             .Offset(, -2) = Int(10 * (Rnd() + 1)) - 9
             .Offset(, -1) = cel - (cel.Offset(, -3) + cel.Offset(, -2))
               If .Offset(, -1) > 10 Then
                 GoTo 1
               End If
           End With
       End If
    Next
 End With
 Application.ScreenUpdating = True
End Sub

الملف مرفق

 

Rand_Number.xlsm

[amr_ha2003]

شكرا جدا جزاك الله خيرا