حمادة عمر

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

السلام عليكم الاخ الكريم / مصطفى شاهين بارك الله فيك قم اخي الكريم بفتح الحواشي وتنشيطها من خلال قائمة عرض view ثم عرض وتذييل الصفحات Header and footer سيتم تنشيط رأس وتذييل الصفحات كلها كما في الصورة التالية ثم بعد ذلك يتم احضار شاشة الاستبدال كما في الصورة التالية او الضغط علي ctrl+f ويجب الآخذ في الاعتبار ايضا كما قال الاستاذ / تومي ... لا يتم الاستبدال الا بقوس واحدة فقط يمنى ثم يسرى او العكس وباتباع هذه الخطوات يتم التغيير في الحواشي فقط ولا يتم التغيير في صفحات الملف كما هو في الصورة التالية ارجو ان يفي هذا بطلبك جزاك الله خيرا

السلام عليكم الاخ الكريم / ahmed_hissen بارك الله فيك ولكن نطلب منك الصبر جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها بالكود التالي : Sub SAMA() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختار الصورة") Sheets("sheet1").Range("a1") = Image_path If Image_path <> False Then Sheets("sheet1").Image1.Picture = LoadPicture(Image_path) End If End Sub وارجو ان يفي بطلبك جزاك الله خيرا صورة.rar

السلام عليكم الاخ الحبيب / يوسف السيد بارك الله فيك تقبل خالص تحياتي

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

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

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك والله اخي الحبيب ... انه ليسعدني ويشرفني عن جد مرورك فقط الموضوع فأنت قامه واخ حبيب تشرف الموضوع وصاحب الموضوع ولك من الكلمات دائما ما يمس القلوب بالتأكيد انه الحب في الله تقبل خالص تحيات اخيك جزاك الله خيرا

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمد يوسف محمد1 بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / محمدي عبد السميع بارك الله فيك تقبل خالص تحياتي

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

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

السلام عليكم الاخ الكريم / رائد 1982 بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / حمادة باشا بارك الله فيك تقبل خالص تحياتي

هدية العام الهجري الجديد ******************************************* كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت **************************************************************************** السلام عليكم هذا الموضوع مقدم هدية لاساتذة وقادة هذا الصرح العملاق وهو هدية خاصة ( بسيطة جدا جدا ) بمناسبة العام الهجري الجديد للاستاذ القدير العلامة الخبير عبد الله باقشير لأقدم له عرفانا بالجميل لبعض ما تعلمناه منه ونتعلمه دائما بارك الله فيه ... وجزاه الله عنا خيرا وارجو ان ينال الملف اعجابكم تقبلوا خالص تحياتي وكل عام وانتم بخير وسلام وعلي طاعة الله دائما اضافة ازرار باسماء الشيتات وزر للرئيسية في كل شيت.rar

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

السلام عليكم الاخ الكريم / رائد 1982 بارك الله فيك وبعد اذن اخي الحبيب / حمادة باشا ... الراائع دوما ... جزاه الله خيرا ولاثراء الموضوع ... يمكن استخدام كود بسيط لتفيذ ذلك وفعلا بنفس الفكرة المقدمة من اخي / حمادة باشا .. ولكن بكود ابسط واقل واظن انه لا يحتاج الي تفعيل نص الخيار (Trust access to the VBA project object model) ولكن بالتأكيد من الافضل تفعيله دائما ليكون الكود بهذا الشكل ... حيث استخدمته منذ فترة ويعمل بشكل جيد Sub SAMA_DELL_MACRO() On Error Resume Next With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule .DeleteLines 1, .CountOfLines End With End Sub تقبلوا تحياتي وجزاكم الله خيرا

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

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

السلام عليكم الاخ الحبيب / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

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

الاخ الحبيب / إبراهيم ابوليله بارك الله فيك بالفعل اخي الكريم ... تقريبا يعتبر الخطأ في (Adr). حيث انك لم تلاحظ اسماء التكستات بوكس الموجودة في الفورم فالكود الموجود يتعامل مع التكستات في الفورم مثل خلايا ورقة الاكسيل ولذلك يجب ان تكون اسماء التكستات بوكس الموجودة في الفورم مثل الخلايا ... لاحظ الفورم المرفق في الرد السابق ستجد ان كل عمود مسمي باسم الاعمدة مثلا العمود الاول في الفاتورة اسماء التكستات بوكس فيه تبدأ من A1 - A2...... حتي A11 وكذلك العمود الثاني يبدأ بـ B1 .... والثالث بـ C1 .... وهكذا وايضا يجب ان تأخذ في الاعتبار انه تم اضافة الكود الخبوري KH_ClearControl جرب مرة اخري وان شاء الله ستصل الي ما تريد وفي انتظار ردك ... بالنتيجة الممتازة ( باذن الله ) تقبل خالص تحياتي جزاك الله خيرا