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 هل بالامكان انشاء موديول خاص بالجمع ووضع نيتجة الجمع في اخر خلية فارغة في العمود المراد جمع بياناته وعند الانتهاء وادخال بيانات اخرى في نفس العمود يقوم بعمل عملية جمع جديدة للتوضيح سوف ادرج صورة لمثال بسيط عن طلبي ولكم جزيل الشكر