المساعدة فى إستكمال كود

[أبو سجده]

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

أرغب فى مساعدتكم فى إستكمال هذا الكود

حيث يقوم بنقل بيانات أعمدة محددة من ورقة الى أخرى

الكود يعمل بشكل جيد عند هذة المرحلة لكن توقف تفكيرى وتركيزى عند ثلاث نقاط أريد تحقيقهم بفضل الله أولا ثم بفضلكم

النقطة الأولى هى إدراك صف واحد فارغ بدون حدود بعد كل 30 صف بداية من الصف الثامن

النقطة الثانية سيتم إضافة بعض السلاسل النصية

كتوقيعات ( توقيع أول / توقيع ثانى / توقيع ثالث ) أسفل الجدوال مباشرة

النقطة الثالثة وهى ضبط فواصل الصثفحات الأفقية والرأسية تلقائيا

وكذا منطقة الطباعة ال Print_Area و Print_Titles

لمزيد من التوضيح يرجى الإطلاع على المرفق التالى لمعرفة ما أعنيه فى ورقة " الإخراج المطلوب "

والإطلاع على معاينة الصفحات شكرا لطيب مساعدتكم الطيبة

وجزاكم الله خير الجزاء ***** تقبلوا وافر التقدير والإحترام

 

 

sample.xlsb.xlsm

تم تعديل يناير 31, 2025 بواسطه أبو سجده

[عبدالله بشير عبدالله]

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

الفاضل / ابو سجده

الكود الخاص بك لم اغير فيه شي 

الكود الجديد يتم استدعائه في تهاية الكود الخاص بك

مكان التوقيعات   يظهر هكذا                   

         
                .Value = "Third signature                             Second signature                             First signature"

 يمكنك نغييره للغة العربية او تركه فارغا بلالتعديل في الكود 

sample.xlsb (1).xlsm

لك كل التقدير والاحترام استاذنا

 

تم تعديل فبراير 1, 2025 بواسطه عبدالله بشير عبدالله

[أبو سجده]

أخى الفاضل الحاج / عبدالله جزاكم الله خيرا على إستجابتكم المباركة وعلى هذا الجهد الطيب الذى أحتسبة عند الله تعالى فى ميزان حسنتاتكم

هناك نقطة أخرى غاية فى الأهمية وهى ماذا لو أن البيانات التى سيتم نقلها أقل من 30 صف أوربما أقل من أويساوى 30 صف

أعتقد أننا فى حاجة الى إضافة شرط من شأنه إستكمال عدد الصفوف المدرجة الى 30 صف ووضع التوقيعات أسفلها مباشرة

برجاء تشغيل الكود ثم الإطلاع مرة أخرى على ورقة الإخراج المطلوب وتحديدا أخر صفحة ستجدها تحتوى على 10 صفوف فقط

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

لكنى حاولت عدة مرات لتحقيق ذلك دون جدوى ***** نسأل الله عز وجل الرشاد والصواب ****** مرة أخرى جزاكم الله خيرا

 

تم تعديل فبراير 1, 2025 بواسطه أبو سجده

[عبدالله بشير عبدالله]

السلام عليكم

جزاك الله خيرا على دعائك

جرب التعديل في المرفق

وان لم يكن الامر هو المطلوب فاعذرنى 

قال توقف تفكيري وتركيزي

ياريته معاي توقف وبس

مش لاقيه خالص

تحياتي

sample.xlsb (1) (1).xlsm

 

[أبو سجده]

هههههههه حبيبى ياحاج عبدالله

أنار الله تعالى بصرك وبصيرتك وجزاكم الله خيرا