deathlessster

اخي هذا مثال بسيط تستطيع ان تعرف مدى اخر مثلا rA1 وتكرر العملية بعد انتهاء for next  للعمود الاول او تستخدم حسب ما اعتقد ( xltoleft)

Dim rA As Range

  For Each rA In Columns("d").SpecialCells(xlConstants, xlNumbers).Areas

    rA.Cells(rA.Cells.Count + 1).Formula = "=SUM(" & rA.Address & ")"
 Next rA

شكرا اخي العزيز على الرد 

لقد وجدتو والحمد لله الكود الخاص بطلبي 

شكرا" مرة اخرى وجزاكم الله خيرا"

اخواني الاعزاء ... السلام عليكم

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

انا استخدم فورم لادخال بيانات بشكل يومي تقريبا ومعلوماتي جدا قليلة بالنسبة لاستخدام كودات vba 

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

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