مساعدة من اجل عملي هام جدا جدا من فظلك

[بهاء الرزاز]

كل عام وانت بخير بمناسبة عيد الاضحي المبارك 

السادة الافاضل اعظاء المنتدي 

المطلوب توزيع قيمة المبلغ المدون بخلية D10 علي العدد المدون بخلية G10 

مع الاعتبار ان المبلغ والعدد متغير وليس ثابت 

اي ممكن ان يكون المبلغ 100 او 200 او 240 او او او 

والعدد من 1 حتي 30 لا يزيد عن العدد 30

اريد فقط ان اضع المبلغ والعدد

يتم التوزيع علي عدد الخلاية بقيمة المبلغ المدون طبعا للعدد 

اتمني ان اكون وضحت الفكرة المطلوبة

1.rar

[أبو حنــــين]

مرحبا

جرب هذا الكود

Sub AAAAAA()

Dim sh As Worksheet, v As Double, x As Integer
Set sh = Sheets("a")
With sh
v = Val(.Range("D10").Value) / Val(.Range("G10").Value)
For x = 1 To Val(.Range("G10").Value)
.Cells(x + 12, 5) = v
Next
End With

End Sub

 

[بهاء الرزاز]

اشكرك للاهتمام لكن لا يعمل معي هذا الكود

[أبو حنــــين]

الملف يعمل عندي كما طلبت

المرفق

 

22.rar

[بهاء الرزاز]

شكرا جدا جدا لمجهودك فعلا 

يوجد خطاء بسيط 

المطلوب عند اضافة القيمة 100 مثلا 

والعدد 5 مثلا 

يتم توذيع 100 علي عدد خانة خمس 

مش قسمة مسائة علي خمس 

المفترض يكون 100 في كل خانة من الخمس 

انا اشكرك جدا لمساعدتك في عملي

[أبو حنــــين]

لو ارسلت الملف و به النتائج المتوقعة

و يستحسن اكثر من مثال 

 

جرب هذا 

Sub AAAAAA()

Dim sh As Worksheet, v As Double, x As Integer
Set sh = Sheets("a")
With sh
.Range("E13:E42") = ""
For x = 1 To Val(.Range("G10").Value)
.Cells(x + 12, 5) = .Range("D10").Value
Next
End With



End Sub

 

[بهاء الرزاز]

اشكرك لمجهودك هذا ما اريد

لا استطيع ان اعبر لك عن سعادتك 

بارك الله لك ولاسرتك 

عيد سعيد عليكم جميعا

[أبو حنــــين]

و عيدكم اسعد

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

كل عاام و انتم بخير

جرب هذه المعادلة في الخلية E13  ,و اسحب نزولاً

=IF(ROWS($A$1:A1)>$G$10,"",ROUND($D$10/$G$10,2))

 

[قلم-الاكسل(عبدالعزيز)]

قمت بوضع الماكرو لكود ابو حنين كي يسهل عليك ظهور النتائج

 

انظر الملف المرفق

 

 

الرزاز.rar

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

اثراءً للموضوع هذا الكود

Sub salim_Loop()
With Sheets("a")
            .Range("E13:E1000") = Empty
            x = .[g10]
            t = 0
            .Cells(13, "e").Activate
               Do While t < x
                        ActiveCell = Round([d10] / x, 2)
                        ActiveCell.Offset(1, 0).Activate
                        t = t + 1
                Loop
    End With
ActiveCell.Offset(-1, 0).Activate
End Sub

او هذا

Sub salim1()
With Sheets("a")
           .Range("E13:E1000") = Empty
           .Cells(13, "e").Resize(.[g10], 1) = Round(.[d10] / .[g10], 2)
 End With
End Sub

 

[بهاء الرزاز]

بارك الله فيكم جميعا 

تم انهاء العمل بنجاح 

فضل الاخ ابو حنين

كل عام وانتم بخير