كود يضرب قيم عمودين ويضع النتيجه فى عمود اخر

[oyousef]

الاساتذة الافاضل

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

هل من الممكن المساعدة فى الاتى

الملف المرفق به الاعمده الاول والثانى يحوى بيانات والمطلوب عمل كود ينفذ الاتى

كل قيمه فى العمود الثانى يتم طرحها من 100 ثم قسمة الناتج على 100 ووضع الناتج بالعمود الثالث ثم ضرب القيمة الموجوده بالعمود الثالث فى العمود الاول ووضع الناتج فى العمود الرابع وذلك لكل الخلايا بالاعمده المذكوره والتى قد تحمل بيانات وذلك عن طريق كود وليس معادلات

وفى الصف الثانى معادلات بالاعمده المذكورة توضح المطلوب

واخيرا لكم جزيل الشكر

DRY PRODUCTION.rar

[عبدالله باقشير]

السلام عليكم

Sub KH_START()

Dim i As Long

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

    Cells(i, "C").Value = (100 - Val(Cells(i, "B"))) / 100

    Cells(i, "D").Value = Val(Cells(i, "A")) * Val(Cells(i, "C"))

Next

End Sub

تفضل المرفق

DRY PRODUCTION.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود امل ان يفي بالغرض

Public Sub ALIDROOS()

On Error Resume Next

Dim X As Range, XX As Range, XXX As Range

Set X = Range("B1:B100")

For Each XX In X

If XX.Value <> Empty Then

XX.Offset(0, 1).Value = CDbl(XX) - CDbl(100 / 100)

XXX.Value = XX.Offset(0, 1).Value = CDbl(XX) - CDbl(100 / 100)

XX.Offset(0, 2).Value = CDbl(XXX) * CDbl(XX.Offset(0, -1).Value)

End If

Next XX

End Sub

[الـعيدروس]

السلام عليكم

استاذنا خبور حفظك الله

كنا نكتب المشاركة ولم نرى مشاركتك القيمة بارك الله

[عبدالله باقشير]

السلام عليكم

حبيبي ابو انصار------- حفظه الله

انا تعمدت ان اسبقك بالحل

فقد رايتك

عملت بنصيحتك : افعل الخير مخلصا وإنتظر العائد يوما ساعة العُسرة

امزح معاك

بارك الله فيك

[الـعيدروس]

جزاك الله خير استاذ عبدالله

هذا ماتعلمناه منكم

اعمالكم ردودكم هنا مدرسة فريده من نوعها

وانتم على روؤسها بارك الله فيك واطال الله عمرك

واما كودي اضن لم اوفق في كتابته لان النتائج غير صحيحة

[oyousef]

الاخوة الاساتذة الافاضل الاعزاء

جزاكم الله كل خيرا عنا نعم هذا يفى بالغرض

والف شكر لحضراتكم

وتحياتى للاستاذ خبور خير