المساعده فى كود حدف البيانات

[زكرياء]

السلام عليكم ورحمة الله وبركاته  ارجو المساعده فى هذا  الطلب اريد تعديل كود حدف  البيانات بدون ان يتم مسح المعادلات

بعض اشرح في المرفيق

نموزج فاتورة.zip

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub ClearExceptFormulas()
    Union(Range("D10:I49"), Range("I50:I53")).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

[زكرياء]

جزاك الله وابارك  فيك استاذي الفاضل، فما نحن الا نقطة في بحر علمكم اخي ياسر خليل أبو البراء

تم تعديل يوليو 23, 2015 بواسطه زكرياء

[ابا اسماعيل]

دائما تسعدن وتشرفنا وتدهشنا ابدعتك أخى الحبيب الغالى / ياسر خليل

تم تعديل يوليو 23, 2015 بواسطه ابا اسماعيل

[زكرياء]

 

مشكلة في كود حدف لما تكون الخالية i49 فاريغة لما ضغت على زير حدف بي يظهار لي هد الرسلة

 

 

 

 

 

 

تم تعديل أغسطس 14, 2015 بواسطه زكرياء

[ياسر خليل أبو البراء]

أضف السطر التالي قبل سطر الكود

On erro resume next

 

وأضف السطر التالي بعد سطر الكود

On error goto 0

تم تعديل أغسطس 14, 2015 بواسطه ياسر خليل أبو البراء

[زكرياء]

جزاك الله اخي ياسر خليل أبو البراء

لما وضعت الكود في الملف كما اشرتي يوجد حطاء

 

[عبد العزيز البسكري]

جرب إضافة r في آخر كلمة erro

[زكرياء]

دائما متميز اخي سلمت يالغالي