sum بداخل الكود

[captinasd]

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

ارجوا مساعدتى فى الملف المرفق حيث ارغب فى الاقلال من عدد اسطر الكود واستبدالها بكلمه sum المعتادة التى نعرفها كلنا داخل الشيت ولكنى لا استطيع تطبيقها داخل الكود ولكم جزيل الشكر مقدما

Book1.rar

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

السلام عليكم

ممكن الاختصار بالكود التالي:

Sub Com1()

With Sheets(MySheets)

    For rr = 3 To .Range("A500").End(xlUp).Row

        If .Cells(rr, "b") = 1 Then

            .Cells(rr, "x").Value = Application.WorksheetFunction.Sum(Range(.Cells(rr, "c"), .Cells(rr, "w")))

        End If

    Next

End With

End Sub

[طارق محمود]

السلام عليكم

أخي العزيز

إستبدل الكود Com1

بالتالي

 Sub Com1()


For rr = 3 To Sheets(MySheets).Range("A500").End(xlUp).Row

  If Sheets(MySheets).Cells(rr, "b") = 1 Then

Sheets(MySheets).Cells(rr, "x").FormulaR1C1 = "=SUM(RC[-21]:RC[-1])"


End If


Next

End Sub

تفضل المرفق أيضا

Book1-2.rar

[بن علية حاجي]

Sub Com1()

For rr = 3 To Sheets(MySheets).Range("A500").End(xlUp).Row

    Sheets(MySheets).Cells(rr, "x").Value = 0

If Sheets(MySheets).Cells(rr, "b") = 1 Then

  For cc = 3 To 23

    Sheets(MySheets).Cells(rr, "x").Value = Sheets(MySheets).Cells(rr, "x") _

    + Sheets(MySheets).Cells(rr, cc)

  Next cc

End If

Next rr

End Sub

وتطبيقه في الملف المرفق...

أخوك بن علية

Book1_1.rar

[captinasd]

الاخ الفاضل خبور خير

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

اتقدم لك بخالص شكرى وتقديرى وامتنانى على مجهودك وتعبك فى الكود واعتقد انه يلبى حاجتى ويوفى بغرضى لذا اشكرك جزيلا واشكر القائمين على هذا المنتدى الرائع وجزاك الله خيرا

واحب ان انوه الى اننى منذ قليل تصفحت الموضوع فوجدت اسمك ضمن من يقرؤون الموضوع فى هذه اللحظة فاحسست بسعادة وتوقعت خيرا ان علما من اعلام المنتدى قد مر بموضوعى واستيقنت خيرا وقد كان بفضل الله وحمده

فجزاك الله خيرا

وشكرا جزيلا

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

جزاكم الله جميعا خير جزاء ووفقكم لما فيه طريقكم للجنه باذن الله تعالى

وشكرا مرة ثانية

تم تعديل يناير 13, 2011 بواسطه captinasd

[hazem0123550036]

j