تعديل كود للتسلسل التلقائي

[أبو العاصم]

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

فى الملف المرفق ( خزينة ) كود مركب يقوم بعمل تسلسل تلقائى مع الفلتر 

ويقوم أيضا بعمل ترصيد المطلوب تعديله أو الاستفسار عن الخلل به

هو جزء التسلسل فى العمود A حيث يقوم بعمل التسلسل مع الفلتر 

فأحيانيا يعطى التسلسل تلقائى وأحيانا يضع معادلة للتسلسل

ومع الكود فى حدث الصفحة يوجد الموديل التالى  

 

Sub Macro1()

'

' Macro1 ãÇßÑæ

'

 

'

    ActiveCell.FormulaR1C1 = _

        "=IF(AND(RC[-2]="""",RC[-1]=""""),"""",SUM(R9C[-2]:RC[-2])-SUM(R9C[-1]:RC[-1]))"

End Sub

فهل هو المسؤل عن إدراج المعادلة

الذى أتمناه هو تعديل على الكود ليقوم بالتسلسل مع الفلتر بدون هذا الخلل

ويضع أرقاما وليس معادلات 

وأحيانا أخرى تؤثر تلك المشكلة على الجزء الخاص بالرصيد

لذلك قمت بإرفاق ملف أخر( ترصيد )  به كود الترصيد بتسلسل تلقائى لكنه بحاجة لتعديل ليسلسل مع الفلترة

فإما تعديل الخلل فى الملف الاول

أو تعديل جزء تسلسل مع الفلتر فى الملف الثانى

وبوركتم جميعا على غرة رجب

خزينة.rar

ترصيد#1.rar

[سليم حاصبيا]

 ربما كان المطلوب

الفلترة او اخفاء الصفوف لا تئثر على التسلسل

ترصيد#1 salim.rar

[أبو العاصم]

أخ سليم حاصييبا 

المطلوب هو عمل الفلتر بدون معادلة

وبدون كود يضع معادلة

المطلوب كود يضع أرقاما فقط

[أبو العاصم]

للرفع