حسام عبدالمحسن

عمل اكثر من رائع والله بارك الله فيك وجزالك خيرا اخى العزيز هل بالامكان تطبيق الواجهه على الشيت دا اذن صرف بعد 222222222التعديل.rar

السلام عليكم ورحمة الله السادة عمالقة المنتدى عندى شيت اكسيل مكون من 3 ورقات عباره عن اذن صرف يتم صرفة للمريض بمعنى يتم كتابة بيانات الاذن فى ورقة data ثم نذهب الى ورقة اذن صرف ونكتب الاسم الذى تم التسجيل بة ويتم الطباعه والشيت الثالث خاص بالاصناف واكودها اريد عمل شيت خاص بالجرد يتم فية ادراج كل كمية من كل صنف توجد بالمخزن ويتم عمل جرد يومى واسبوعى وشهرى ان امكن لكل صنف من الاصناف ومعررفة المنصرف يوميا من الصنف والمتبقى وشكرا وجزاكم الله كل خير اذن صرف بعد 222222222التعديل.rar

شكرا لك اخى عبدالله والعمل الذى قمت به ايضا ليس بسيطا جزاك الله خيرا

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

الاخ العزيز عبدالله جزالك الله كل خير على مساعدتك لى المطلوب اخى عبدالله 75 اذن كل اذن ( به مجموعو من الادوية ) بتاريخ و صفحة منفصلة وفى ورقة عمل واحدة انا جرب المرفق بس انا لو حبيت اسجل مريض من جديد واسجل الاصناف اسجلة ازاى والترحيل بيتم ازاى بردة ارجوا الرد وجزاكم الله كل خير

للرفع

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام ارجو المساعدة فى هذا الشيت عباره عن اذن صرف علاج خاص بصيدلية علاج على نفقة الدولة الشيت بة اصناف الادوية واسعارها وعلى حد علمى قمت باستخدام دالة vlookup بمجرد كتابة كود الصنف يظهر بينات الصنف وسعرة وقمت بتوضيح المطلوب فى الشيت المرفق وجزاكم الله خيرا وجعله فى ميزان حسناتكم مرفق لسيادتكم رابط التحميل http://www.gulfup.com/?Wf7xSl

up

للرفع

السلام عليكم ورحمة الله وبركاته الاساتذة عمالقة المنتدى عندى شيت اكسيل قمت بعمل بعض التغيير ات بمساعدتكم والحمد لله يعمل جيدا وقام الاخ العزيز بن علية بعمل كود يقوم بنقل الاسم ومبلغ الصرف من شيت2014 الى شيت Hosam بمعنى لو فى مريض صرف فى شهر يناير بمجرد الضغد على زر تصدير اعلى الشيت يتم نقل الاسم ومبلغ الصرف الى شيت hosam اريد تعديل بسيط على هذ الكود اريد نقل الاسم ومبلغ الصرف ورقم القرار اسم الدخول/حسام كلمة السر/حسام كلمة مرور محرر الاكواد hosam2731987 مسار تشغيل الشيت ينقل الملف المكتوب علية نفقة الدولة حسام غباشى الى بارتيشن الE وهذا رابط تحميل الملف http://www.gulfup.com/?TDwkAh ارجوا ان اكون قد وصلت المعلومة صحيحة لحضراتكم واسف على الاطالة وارجو الرد للاهمية القصوى وجزاكم الله كل خير

اخى الكريم جزاك الله كل خير وجعلة فى ميزان حسناتك

hosamabdelmohsen@gmail.com

السلام عليكم ورحمة الله الاخوة عمالقة المنتدى ارجو المساعدة فى فك كلمة المرور عن الملف للضرورة وجزاكم الله خيرا http://www.gulfup.com/?teAk75

استاذ/احمد عمل اكثر من رائع

للرفع

للرفع

عمل اكثر من رائع يا استاذ عبدالله هل بالامكان تركيب الكود على هذا الملف وجزاكم الله كل خير مرفق لسيادتكم الملف وفى انتظار الرد احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE/HOSAM ABDEL MOHSEN http://www.gulfup.com/?BYtse9

تم رفع الملف لحضرتك لتركيب الكود على استاذى الكريم سليم تمت تجربة الكود ولم يعمل فقمت بإرفاق الملف كاملا لحضرتك فبرجاء تجربة الكود علية احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE http://www.gulfup.com/?BYtse9 ملحوظة اخيرة اخى الكريم اذا واجهتك مشكلة فى فتح الملف وهذة المشكلة حدثت من قبل فتم عرضها على المنتدى وتم الحل وهذا رابط المشاركة للعلم وشكرا واسف جدا على الاطالة http://www.officena....topic=48281&hl=

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

الاخ الكريم سليم جزاك الله كل خير بالفعل هذا هو المطلوب ولكن حاوت ادراج الكود بالملف ولم انجح فى عمل ذلك حيث ان الملف بة اكواد كثيرة فخشيت ضياع اى من الاكواد المدرجة بالملف فقمت بادراج الكود الموجود بحدث Private Sub Workbook_Open() للتعديل علية وادراج الكود الخاص باخفاء واظهار اوراق العمل بة وشكرا وفى انتظار الرد Private Sub Workbook_Open() Dim MyPath As String MyPath = "E:\HOSAM ABDEL MOHSEN" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True sheet2.Select End If End Sub

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

فكرة رائعه جزاكم الله كل خير

اخى الكريم محمود الشريف هذا هو المطلوب بالفعل بارك الله فيك ولكن حاولت كثيرا تركيب الكود على الملف ولكن المحاولا فشلت والملف لدى بة اكود كثيرة خشيت ان افقد اى من الاكود الموجودة بالملف فارجوا المساعده فى تركيب الكود على الملف تم رفع الملف لحضرتك لتركيب الكود على استاذى الكريم حمادة عمر تمت تجربة الكود ولم يعمل فقمت بإرفاق الملف كاملا لحضرتك فبرجاء تجربة الكود علية احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE http://www.gulfup.com/?BYtse9 ملحوظة اخيرة اخى الكريم اذا واجهتك مشكلة فى فتح الملف وهذة المشكلة حدثت من قبل فتم عرضها على المنتدى وتم الحل وهذا رابط المشاركة للعلم وشكرا واسف جدا على الاطالة http://www.officena....topic=48281&hl=

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

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