[طلب] تعديل كود لتكرار إدخال الاسطر بناء على قيمة Textbox

[عاشق الاكسيل]

السلام عليكم ورحمه الله وبركاته

مطلوب كود يقوم بعمل الاتى :

1- قسمة السعر على العدد لايجاد سعر الوحدة

2- تكرار ادخال البيانات بناء على العدد وادخال سعر الوحدة الناتج من خطوة 1

مثال :

المدخل

النتيجة :

target.rar

[shreif mohamed]

وعليكم السلام ورحمه الله وبركاته

Private Sub CommandButton1_Click()
Dim a As Long
Sheets("Data").Activate
For a = 1 To CInt(TextBox5)
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection = TextBox1.Value
Selection.Offset(, 1) = TextBox2.Value
Selection.Offset(, 2) = TextBox3.Value
Selection.Offset(, 3) = TextBox4 / TextBox5
Next
End Sub 

تم تعديل نوفمبر 18, 2017 بواسطه shreif mohamed