ارجو المساعدة بكود لجلب بيانات الغياب من ورقة 2

[فضل حسين]

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

الى خبراء واعضاء منتداى العزيز والعظيم

مرفق ملف موضح به المطلوب

وجزاكم الله كل خير

الغياب.rar

[طارق محمود]

السلام عليكم

تفضل المرفق

الغياب2.rar

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم طارق

مبدع دائما في حلولك

هل من حل لعدم تكرار جلب نفس البيانات

اذ انه عند الضغط اكثر من مرة على زر  get data  يتم تكرار جلب البيانات بعدد مرات الضغط على الزر

جزاكم الله خير

[طارق محمود]

السلام عليكم

هل من حل لعدم تكرار جلب نفس البيانات

 

 

نعم حلها سهل ، إمسح البيانات من الصفحة قبل بدء الجلب

وذلك بإضافة السطر

[B16:J9999].ClearContents

إلي أول الكود

ليصبح

 

Sub get_data()
[B16:J9999].ClearContents
Sheets(2).Activate
..

[فضل حسين]

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

حبيب قلبى استاذى الفاضل / طارق محمود

عمل رائع بكل المقاييس . بل عمل يجب ان يكتب بحروف من النور . تسلم الايادى يااستاذنا وجزاك الله عنا كل خير .وبارك الله فيك ودعائى لك بكل الحب والتوفيق ان يزيدك الله علما وتوفيقا وان يجعل هذة الاعمال الجميلة مثلك فى ميزان حسناتك اللهم امين .

استاذى الفاضل / بصراحة استوقفنى هذا الكود طويلا وحاولت ساعات كثيرة ان افهمه جيدا وبذلت فى سبيل ذلك كل مااستطيع من مجهود ولكن وللاسف كثرة المتغيرات فى هذا الكود كانت دائما عائق للفهم الجيد لهذا الكود العظيم .

لذا

يااستاذى الفاضل انا اعرف وظيفة كل امر فى الكود ولكن وللاسف كثرة المتغيرات تجعلنى لااستطيع ان امسك او اعرف الفكرة الاساسية لهذا الكود أى اريد ان اعرف العصب الرئيسى لهذا الكود . فهذا الكود به على الاقل 9 متغيرات كل متغير يقوم بوظيفة معينة .

لذا

اسمحلى ان اتجاسر على سيادتكم وانا اعرف نبل اخلاقكم الكريم وسماحة خلقكم بان تشرح لى الفكرة الاساسية او العصب الاساسى لهذا الكود . ومعرفة مثلا المتغير 1c هل تقصد به اول عمود وكذلك الحال بالنسبة لباقى المتغيرات وهم mx , nm, nr ,rw , mc , a

وكله كوم والدالة counta كوم اخر وماهى فكرة وظيفتها

حبيبى قلبى / البشمهندس طارق محمود

اكرر شكرى وامتنانى لشخصكم الكريم وعملكم العظيم وارجو الا اكون بثقل عليكم فى طلبى هذا

فى انتظار ردكم

وشكر

تم تعديل أغسطس 31, 2013 بواسطه فضل 1

[طارق محمود]

السلام عليكم

عندك حق أخي الكريم ، فقد اسخدمت متغيرات كثيرة لتناسب طلبك

وهذه بعضها

 

الإسم nm : name

الصف الجديد nr : new row

LastColumn lc اخر عمود  

rw الصف

mx الصف الأقصي

 date التاريخ d

 

عمود الشهر Month Column mc"

 

وفي المرفق تجد الملف وبه الأمر الأمر الذي أضفناه ردا علي مشاركة أخونا hamada21

وتجد كذلك ورقة إضافية بها شرح مطول للكود

تفضل

الغياب3.rar

[الـعيدروس]

السلام عليكم

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

كود احترافي 

------

استخدام اوامر الفيجول في غير مكانها الصحيح

ترهق ذاكرة الجهاز

------

وارى في الكود تركيبة مبرمج محترف ملم في ادواته

انتم مدرسة فعلا

 

تقبل مروري

[عادل ابوزيد]

استاذى العزيز الباشمهندس طارق

اعمالك نقف امامها طويلاً لنتعلم منها الكثير

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

[فضل حسين]

البشمهندس / طارق محمود

الله عليك ياباشا كده وضحت الرؤيا .

بالفعل كود عبقرى من شخصية عبقرية

انا شاكر لك بابشمهندس شكرا يليق بمقامك وكرم اخلاقك وعطائك بلا حدود فى مجال العلم

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

لنتعلم من سيادتكم ونستمتع بأعمالكم

كل الحب والتوفيق والاحترام والاجلال للبشمهندس طارق محمود

وشكرا

[طارق محمود]

السلام عليكم

 

إخواني وأحبائي

عباد (العيدروس)

عادل ابوزيد

فضل

 

لاأستطيع الرد علي كلماتكم الرقيقة المليئة بالمشاعر الطيبة هذه

إلا بالدعاء بدوام مابيننا جميعا في طاعته عز وجل - جزاكم الله جميعا خير الجزاء