عبد الفتاح كيرة

أكرمك الله أستاذ جلال و إن شاء الله ربنا ييسر الأمور

شكرا لك أخى الفاضل بارك الله فيك

شكرا جزيلا أستاذ على و استفدت كثيرا من إضافاتك هنا إن شاء الله ينتفع بها الأعضاء جزاك الله خيرا

عفوا أخى هذه أسرع و أفضل طريقة للترحيل وفقك الله

http://www.youtube.com/user/MsKemas

جزيل الشكر لك أخى الفاضل وفقك الله لكل خير

الزر موجود اضغط على تبويب الشيت من أسفل sheet1,sheet2,sheet3 ,....

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

أنت تستخدم نسخة وندوز 64 بت يجب استخدام نسخة تعمل على وندوز 64 بت أو بمعنى آخر أنت كتبت الكود على نسخة وندوز 32 بت ثم غيرت الوندوز إلى 64 بت

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

أهلا أستاذى أبا علاء الحمد لله أن نلت ما كنت تبحث عنه إن شاء الله أضع المشاركات بموضوع مستق و جزاك الله خيرا * تم إفراد المشاركات فى موضوع مستقل هنا

هذا ما طلبتم بطريقة ثالثة مختلفة باستخدام حدث " قبل الطباعة" لاحظ أن الرأس و التذييل هنا لن تراه إلا عندما تطبع و يوضع فى الوورك بوك فى حدث قبل الطباعة Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .RightHeader = Sheets(2).Range("A1").Value .CenterHeader = Sheets(2).Range("A2").Value .LeftHeader = Sheets(2).Range("A3").Value .RightFooter = Sheets(2).Range("A4").Value & Date .LeftFooter = Sheets(2).Range("A5").Value End With End Sub تنبيه : هذا الكود فى حدث " قبل الطباعة " يهدف إلى حماية رأس و تذييل الصفحة من التغيير فمهما تم تغيير رأس و تذييل الصفحة من قبل المستخدمين فإنه عند الطباعة يتم تنفيذ رأس و تذييل الصفحة الموجود بالكود وشكرا رأس و تذييل من خلية - يظهر عند الطباعة فقط.rar

و هذا طلبكم أيضا بطريقة أخرى غير عبارات الرأس و التذييل من شيت رقم 2 كود Sub PageStp() With ActiveSheet.pagesetup .RightHeader = Sheets(2).Range("A1").Value .CenterHeader = Sheets(2).Range("A2").Value .LeftHeader = Sheets(2).Range("A3").Value .RightFooter = Sheets(2).Range("A4").Value & Date .LeftFooter = Sheets(2).Range("A5").Value End With End Sub الرأس و التذييل يتغير من الخلية.rar

أهلا و سهلا هذا طلبكم الرأس و التذييل يأخذ قيمه من الشيت المسمى sourse يمكن تغيير الرأس و التذييل من الخلية ثم تنفيذ الكود مرة أخرى مع الشكر تذيل الصفحه kemasfrom cells.rar

ننتظرك

جزاك الله خيرا أخى الحبيب ياسر الحافظ وأنا معجب باسمك جدا أشعر معه بسوريا بلد العلماء و المجاهدين وفقك الله

يتساوى هنا الكود و العمل اليدوى لأنك لو عملت رأس و تذييل بأية طريقة فلن يتم إزالتها ما لم تفعل ذلك و مع ذلك نفذ الكود فى الصفحة الثالثة تذيل الصفحه kemas-by code.rar

تفضل تذيل الصفحه kemas.rar

ارتباط الملف الذي طلبته غير صالح.

مشكور أستاذنا الكبير خبور لابد من إفراد هذه الدالة بموضوع منفصل

هنيئا لك الترقية أخانا المعتصم وفقك الله لكل خير

تمام أستاذ منتصر نصرك الله استفدت منك كثيرا جزاك الله خيرا

نفهم من هذا أن أكسس أقوى و أوسع من إكسل -- ردك ينم عن وعى و فهم للبرنامجين وقد استفدت كثيرا من كلامك نفذت برنامج شئون طلاب مدرسية بإكسل لكنى أشعر أنه أقرب لقاعدة بيانات ويحتاج استخلاص بيانات مشروطة منه إلى معادلات و أكواد هل تظن أن استخلاص البيانات المشروطة فى أكسس أكثر سهولة و مرونة؟ شكرا لك على حسن استجابتك

تفضل والكود أسرع و أخف لسرعة الملف STAFF-kemas-byformula.rar

تفضل STAFF-kemas.rar