منع الترحيل في حالة المكرر

[احمدزمان]

بسيطة ان شاء الله

نضيف كود الرصيد الى الكود الجديد و نلغية من شيت 2

 

salam alikom

 

كشفحساب.xls

[kh_yh]

صديقي بس انتا ليش شلت كود الاستعلام عن كشف الحساب

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

[kh_yh]

حاولة اعمل الكود التالي لاعادة الترصيد بعد التعديل بس ما زبط معي شو السبب 
Sub KH()
Dim LR3 As Integer
LR3 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Sheet2.Range("G2:G" & LR3).FormulaR1C1 = "=SUMIF(R2C2:RC[-5],RC[-5],R2C5:RC[-2])+SUMIF(R2C2:RC[-5],RC[-5],R2C6:RC[-1])"
Sheet2.Calculate
Sheet2.Range("G2:G" & LR3) = Sheet2.Range("G2:G" & LR3)
End Sub

[احمدزمان]

salam alikom

اخي الكريم

في حل آخر

نحنه نعمل هذا الكوود الي انته تبغاه يشتغل بعد الإنتهاء من ترحيل كل البيانات

اظن كدة افضل

شوو رأيك

[kh_yh]

انا بفرض اني رحلت وعملت حسباتي وثاني يوم عدلت فاتورة كيف رح يتعدل الرصيد 
انا اتوقع لو بالاضافة لكودك الرئيسي نعمل كود خاص بشيت 2 يعمل اعادت ترصيد يستعمل فقط في حالة التعديل

[احمدزمان]

طيب 

كده اسهل

نعمل زر في شيت2 يقوم باعادة الترصيد

تمام

 

[kh_yh]

طيب انا جربت بالكود بس ما اشتغل معي ممكن كودها 

[احمدزمان]

السلام عليكم

عند الدخول الى شيت2 يتم الحساب

 

كشفحساب.xls

[kh_yh]

شكرا الك ما قصرت معاي هاليومين 

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

[احمدزمان]

آمين

و اياك