تعبئة رصيد الكشف تلقائياً بالكود

[ابوالزوز]

السلام عليكم ..

أخواني لدي في المرفق كشف حساب يحتوي كالعادة على عمود مدين وآخر دائن إلا أنني أريد تعبئة الرصيد عند كل حركة

تلقائياً بالكود وليس بمعادلات الإكسل فهل يمكن المساعدة من فضلكم

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

كشف حساب.zip

[طارق محمود]

السلام عليكم

ضع الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = 0 Then Exit Sub

If Target.Row < 3 Or Target.Column < 5 Or Target.Column > 6 Then Exit Sub

Cells(Target.Row, 8).FormulaR1C1 = "=R[-1]C+RC[-3]-RC[-2]"

End Sub

أيضا بالمرفق ومعه كذلك تحديد للبيانات

بحيث لايجوز مليء بيانات دائن او مدين بسطر إذا كان الذي يعلوه فارغا

تفضل المرفق وبه الكود وتحديد البيانات

كشف حساب2.rar

[ابوالزوز]

شكراً لك أخي TareQ M على اهتمامك ومجهودك الطيب الذي استفدت منه بالتأكيد

إلا أن الشرط الذي طبقته في المثال غير منطقي حيث لابد من وجود مدين أو دائن في سطر واحد وليس الإثنين معاَ

تقبل تحياتي أخي العزيز

[طارق محمود]

السلام عليكم

أخي العزيز

إلا أن الشرط الذي طبقته في المثال غير منطقي حيث لابد من وجود مدين أو دائن في سطر واحد وليس الإثنين معاَ

الشرط لايسمح لك بمليء بيانات في سطر في حالتين

(1) إذا كان الذي يعلوه فارغ

أو

(2) أنك وضعت أرقاما في كلا الطرفين المدين و الدائن

يعني زيادة تأكيد أنك حتي هذا السطر قد أدخلت البيانات بشكل صحيح

[ابوالزوز]

تسلم أخي TareQ M على التوضيح إلا أنني جربت الملف ووجدت فيه ماذكرت أعلاه أرجو منك أخي تجربته مرة أخرى

تقبل تحياتي

[طارق محمود]

السلام عليكم

عندك حق

تفضل المرفق وتم إصلاحه

كشف حساب3.rar

[ابوالزوز]

شكراً لك مرة أخرى أخي العزيز

تقبل تحياتي