رجب جاويش

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

البقاء لله اللهم اغفر له وارحمه واسكنه فسيح جناتك

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

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

أخى الفاضل جرب هذه الفكرة تم عمل كود بسيط للصق القيم فقط بعد عمل أمر النسخ يتم تحديد الخلية المراد اللصق بها ثم تنفيذ الكود عن طريق ضغط زر Ctrl مع زر W أى ( Ctrl + W ) لصق قيم.rar

أخى الحبيب / محمود شكرا جزيلا أخى الحبيب على كلماتك الرقيقة وشعورك الطيب فأنت نعم الأخ ونعم الصديق

تفضل أخى البدلات والمراتب.rar

أخى الحبيب / محمود المنتدى منور بأصحاب الأخلاق الفاضلة والذوق الرفيع والاحساس المرهف مثل أخى الحبيب محمود

أخى الفاضل / jooohn جزاك الله كل خير أستاذى الحبيب / عبد الله باقشير أسعدك الله فى الدارين

تفضل أخى مثال.rar

أستاذى الحبيب / عبد الله باقشير المنتدى منور بأستاذ الكل وأستاذنا الفاضل / عبد الله باقشير حفظك الله من كل سوء وزادك من العلم حتى ترضى

السلام عليكم تفضل أخى مثال.rar

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

أخى الفاضل / جمال الفار عمل متميز وجهد جبار وبجد عمل فريد من نوعه يدل على رغبة جميلة فى مساعدة اخوانك والتيسير عليهم بارك الله فيك وجعله الله فى ميزان حسناتك تقبل أرق وأجمل تحياتى أخوك / رجب جاويش :fff: :fff:

تفضل أخى Book1.rar

أخى الفاضل / ابو الشرف هل تقصد بعد تكوين المجلد ويحفظ فيه كل مره الورقة باسم جديد (فهل المقصود بالورقة ملف جديد أم مجرد شيت جديد فى نفس الملف )

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

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

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

تفضل أخى الكود مع الشرح Sub ragab() 'ايقاف اهتزاز الشاشة لتسريع عمل الكود Application.ScreenUpdating = False 'نسخ مدى البيانات Range("G9:H12").Copy 'تحديد أول صف فارغ فى العمود الأول فى الورقة الثانية LR = Sheets("ورقة2").[A1000].End(xlUp).Row + 1 'لصق البيانات Sheets("ورقة2").Range("A" & LR).PasteSpecial xlPasteAll 'الغاء خاصية النسخ واللصق Application.CutCopyMode = False ' مسح المحتويات Range("G9:H12") = "" 'ارجاع اهتزاز الشاشة Application.ScreenUpdating = False End Sub ارشيف1.rar

بعد اذن أخى الفاضل / هاني عدلى ولاثراء الموضوع هذا حل أخر Sum.rar

العفو أخى الفاضل لا شكر على واجب

أخى الفاضل / عصام جرب هذه الطريقة =0&5478921 أى تضع علامة = ثم العلامة & ثم الرقم الذى تريده وان شاء الله عند الترحيل يتم الترحيل مع الصفر جرب وأبلغنى بالنتيجة

أخى الفاضل / مرعى السيد فى الملف المرفق عندما تضغط على زر تحديت الموجود فى شيت 1 يتم استخراج البيانات فى شيت 2 كما طلبت جرب الملف وأى تعديل تريده أبلغنى إستخراج تواريخ الموظف حسب الإسم المختار طلب تعديل.rar

وهذا تعديل آخر Sub ragab() On Error Resume Next Dim sdate As Date, cl As Range sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له") For Each cl In [A6:A25] If sdate = cl Then cl.Select: MyArr = MyArr & cl: Exit For Next If MyArr = "" Then MsgBox "لاتوجد نتائج لهذا البحث" End Sub