السلام عليكم جميعاً برنامج ممتاز أخي / almutanaker الله يعطيك العافية أحببت أن اساهم معك وأنال من الثواب أجريت قيل من اللمسات للتحسين والتسريع وضعت هذا الكود للمسح
Sub Clr()
Range("A10:D3477,B7").ClearContents
Range("B7").Select
End Sub
ويمكن طلبه من أية صفحة بهذا الكود
Private Sub CommandButton1_Click()
Call Clr
End Sub
كما أضفت رابط على اسماء البنوك بحيث تنتقل الصفحة المطلوبة بمجرد النقر على الإسم وإذا أردت تغير إسم البنك عليك بالضغط على اسم المطلوب تغيره لثانية ولا تنسونا في الدعاء
______________________________.zip