السلام عليكم
الاخ الكريم / إبراهيم ابوليله
بارك الله فيك
شاهد اخي الكريم الملف المرفق
نظرا لضيق الوقت فقط لدي هذه الايام ( الميزانية بقي ) قمت بضبط الكود الذي قمت انت بوضعه ليعمل بشكل سليم وطبيعي
وان شاء الله حال وجود اي وقت فراغ ساعمل علي الفورم خاصتك
** حيث تم تقسيم الكود الي ثلاثة اجزاء ( جزء رئيسي وهو في حدث الزر الخاص بالترحيل - جزئين في موديل منفصل )
ولكن يجب ملاحظة انه عند تقسيم الكود ونقله الي موديل جديد فانه يجدب عليك تغيير كلمة ME في الكود الي UserForm24
** وبذلك اصبح لدينا كودين اسمهما مثلا Sub sama1 و Sub sama2
** ثم يتم استدعاؤهما في الكود الاساسي في حدث الزر بوضع السطرين
Call sama1
Call sama2
Call sama3
** قم بتجربة الكود وابلغني بالنتائج
مع ملاحظة انه في الكود كان هناك بعض الاكواد المكررة والتي كانت ستعيق عمل الكود مثل الاكواد الخاصة بـ
If B29.Value <> "" Then
وكذلك
If b64.Value <> "" Then
وستجدهم بالكود ايضا لكن معطلين وباللون الاحمر
ان شاء الله في الملف والكود بطلبك
تقبل خالص تحياتي
Copy of S-SAMA.rar