فوزى فوزى

السلام عليكم ورحمة الله وبركاته اعضاء منتدى اوفيسنا المحترمين هذا الملف للاستاذ شوقى ربيع والاستاذ ضاحى غريب وهو ملف تنفيذى ممكن يتم تحويله الى ملف اكسيل شاكرين تعاونكم معنا Nour Commercial V 1.0.0.rar

بسم الله ما شاء الله تمام تسلم ايديك استاذ محمد الله يرضى عنك

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام اتوجه بالشكر لااستاذ المحترم الاستاذ محمد هشام على تعبه معى حتى اتم الملف على اكمل وجه تبقى لى نقطة واحدة فى هذا الملف ارجو تكملة على الكود الموجود بداخل الملف وهو توزيع الملغ حسب خلية سهم الفرد وهى الخلية H1 حيث مكتوب فيها 100 جنيه هنعطى مثال على اسم صلاح فى شهر 2 توزيع مبلغ 150 عند ترحيل المبلغ ينظر على الاسماء الموجود فى العمود B11:B7 هيكون اسم صلاح مكرر مرتين مرة اسم صلاح لوحدة ومرة اسم صلاح مشترك مع اسم هانى هيوزع 150 الموجوده فى الخليه B3 على النحو التالى هينظر فى خلية سهم الفرد وهى H1 موجود فيها 100 جنيه بناء على هذه الخلية هيوزع المبلغ هيرحل 100 جنية لاسم صلاح والباقى وهو 50 جنية هيرحله لاسم صلاح المشترك مع اسم هانى وهذا مثال على المطلوب توزيع الاسهم.xlsm

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

تحية وتقدير بداية اسعدنى مرورك قبل مشاركتك فاما الشكر لك فانا اعجز عن تقدير تعبك ومجهودك لمساعدتى وفقك الله لكل ما تحبه وترضاه تمام استاذ محمد هو ده المطلوب ولكن اريد هذه الاضافة على الكود الموجود بداخل الشيت بعد اذنك استاذ محمد هذا الكود المطلوب عليه الاضافة Sub Trhel() lr = Range("b" & Rows.Count).End(xlUp).Row r = Range("b7:b" & lr).Find([b1], , , 1).Row c = Rows(6).Find([b2], , , 1).Column Cells(r, c) = Val(Cells(r, c)) + Val([b3]) End Sub لانه كود سهل وبسيط واستطيع اعدل عليه بعد ذلك وجزاكم الله خير الجزاء

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام بعد عدة محاولات توصلت لعمل هذا الكود وهو يؤدى المطلوب ولكن عندى مشكلة وهى الأسماء المشتركة مع بعضهم عند كتابة محمد وكتابة الشهر يرحل المبلغ امام الاسم الموجود في العمود B ون ضغطت مرة ثانية على الزر الترحيل على نفس الاسم والشهر يقوم بتجيمع المبلغ لحد هنا كله تمام المشكلة تكمن هنا فى الاسماء المشتركة عند كتابة اسم هانى فى الخلية B1 وعند كتابة الشهر فى الخلية B2 لا يرحل المبلغ الموجود فى الخلية B3 المطلوب عند كتابة اسم خالد وكتابة شهر 2 مثلا يرحل المبلغ الى خالد وان كتبت اسم حاتم وكتبت شهر 2 ايضا يرحل المبلغ ويجمعه مع مبلغ خالد وهذا مثال على ذلك ترحيل + جمع.xlsm

اقرء التعليمات الخاصة بالبرنامج قبل البدء الشرح وافى

اتفضل استاذنا الفاضل وجدت هذا البرنامج على النت وهو جميل جدا جدول الحصص الأسبوعي.zip

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

السلام عليكم ورحمة الله وبركاته استاذة المنتدى وخبراءه الكرام دعونى اشيد بمجهود الاستاذ محمد هشام حفظه الله ورعاه فى مساعدة اعضاء المنتدى من حلول جزاه الله خيرا على مشاركته الفعاله ومجهوده الرائع وهو بمثابة دينمو المنتدى اعرض مشكلتى فى هذا الشيت يوجد كود للخبير الاستاذ عبدالله بقشير للانشاء عدد من الجداول بناء على الخلية H1 اريد كود ثانى يحذف الجداول على حسب العدد المدخل فى الخلية H1 حاليا فى الشيت خمس جداول اسفل بعضهم البعض عندما اكتب 2 فى الخلية H1 يحذف ثلاثة جداول ويبقى على اثنين فقط جعلكم الله عونا لنا وللامثالنا وشكرا حذف الجداول.xlsm

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

السلام عليكم ورحمة الله وبركاته بعد اذن أستاذة منتدى اوفيسنا الكرام قمت بنسخ الكود الموجود في الشيت وضبطت كل شى ولكن الضغط على الزر لجلب البيانات المفروض يقوم بمسح نطاق من A5:G5 ولكن يقوم بمسح حتى الاسطر اللى بعد ذلك حتى السطر اللى مكتوب ملاحظات يقوم بمسح هذه الاسطر ممكن معالجة هذا الخطا المطلوب بمسح A5:G5 ' ترحيل الغياب.xlsm الكود يقوم بجلب البيانات بالضبط ، المشكلة كلها تتلخص فى مسح البيانات المفروض يمسج سطر واحد فى الشيت وهو نطاق A5:G5

تسلم ايديك بجد حل عبقرى

عمل جميل ورائع

تسلم الانامل ولكن كنا نامل ان يعمل على اوفيس 2016