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

السلام عليكم اخى الحبيب ياسر .. والله ما فى زعل يكفى ان الواحد بين اخوه له دائما باحسين ن المساعده للغير جزاكم الله كل الخير اخى الحبيب اولا ده كود رائع لاخ ابوعيد جزا الله كل الخير ويعمل عليه فعلا الا انى حاولت ايجاد حل مستقل لعلى اوفر عليه الوقت والمجهود المراد منه ترحيل علاج الى كارت لكل عامل على اساس رقم العامل الى هواسم الكارت يوجد به نطاقين famly والاخر personal ونظرا كون النطاق مدرج بعد if ..حاولت اضافه اكثر من نطاق ولاكن دائما يظهر خطاء وضعت الاقواس <>.الكود كامل باللمرفق If Range("b" & t) = "Family" Then> r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("b" & r & ":e" & r) = Range("c" & t & ":f" & t).Value Else r = Sheets(Range("a" & t).Text).[M1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("M" & r & ":M" & r) = Range("c" & t & ":C" & t).Value Sheets(Range("a" & t).Text).Range("N" & r & ":O" & r) = Range("E" & t & ":f" & t).Value End If< End If المطلوب اضافه اكثر من if ل 1- glasses 2- tooth 3- surgery المطلوب محاولى منى لا اعلم تاثيرها .. جزاك الله كل الخير TIST#3.rar

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

للرفع

السلام عليكم الاخ الفاضل ابوعيد جزاك الله كل الخير على وقتك ومجهودك معى اخى الحبيب عند تجربة الملف ظهر شيئبن 1- عند تغير النظاق الى personal وتطبيق الترحيل يظهر خطاءملون بلاصفر Sheets(Range("a" & t).Text).Range("N" & r & ":Q" & r5) = Range("c" & t & ":f" & t).Value 2- اذا تم ترحيل علاج فقط او نظارات فقط يتم كتابه التاريخ فى العلاج والنظارات والعمليات الاسنان http://www.flflh.com/download-79631-Untitled.jpg.html جزاك الله كل الخير

السلام عليكم ارجو المساعده فى كيفيه اضافة اكثر من نطلق قبل ELSE المطلوب عمل ثلاث نطلقات مثل نطلق famely تمانا 1- glasses 2- tooth 3- surgery If Range("b" & t) = "Family" Then r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("b" & r & ":e" & r) = Range("c" & t & ":f" & t).Value Else r = Sheets(Range("a" & t).Text).[M1000].End(xlUp).Row + 1 Sheets(Range("a" & t).Text).Range("M" & r & ":M" & r) = Range("c" & t & ":C" & t).Value Sheets(Range("a" & t).Text).Range("N" & r & ":O" & r) = Range("E" & t & ":f" & t).Value End If [جزاكم الله خيرا

للرفع اكرمكم الله

للرفع اكرمكم الله

للرفع اكرمكم الله

السلام عليكم السادة الكرام اسال الله عز وجل ان يكون الجميع بكل خيركون بكل خير الاخوة الافاضل ارجو المساعده مرفق اليك ملف خاص بمتابعة العلاج للعاملين ويوجد به شيت ترحيل ويقوم بترحيل المنصرف لكل عامل حسب الرقم الى الشيت الخاص بكل فرد جيث ان رقم العامل هو نفسه اسم الشيت ... واذا لم يكن شيت بنفس اسم العامل يتم اضافته وينقسم العرج الى اسرى وشخصى ويوجد كود لاخ ابو عيد يقوم بترحيل على اساس كون العلاج Personal او Family اذا كان Family فيقوم بالترحيل حتى العمود F مثال يقوم بترحيل الى الشيت رقم 134 حسب اسم الشيت بالعمود A ويرحل من الخليه C الى F الى الشيت 134 الى الخلايا B الى E المطلوب ان اقوم بتوسيع الترحيل ليشمل النظارات وبيانها من الخلايا G و H الى الخلايا I6 و J6 وتركيبات الاسنات وبيانها من الخلايا I و J الى الى الخلايا I27 و J27 والعمليات وبيانها من الخلايا K و L الى الخلايا I43 الى J43 وهكذا فى الشخصى اتمنى ان اكون اوضحت الصوره TIST#2.rar

السلام عليكم الاخ الفاضل الصقر الجريح ... جزاك الله كل الخير الاخ الفاضل ابراهيم المصرى جزاك الله كل الخير هذا هو المطلوب ... سلمت يداك ..ورجاء شرح المعادلة ان تيسر لك الوقت لكونى استخدمت معادلة اخرى (YEAR(E3)&"/"& MONTH(E3= الا انها تعطى النتاج بهذا الشكل 2015/2 ولم استطيع استخلاص رقمين من العام لتصير بهذ الشكل 15/2 جزاك الله كل الخير

السلام عليكم الساده الكرام ... ارجو من الله ان يكون الجميع بكل خير هل يمكن استخلاص الشهر والعام من تاريخ كما بالشكل 15/1 من تاريخ 1/1/2015 اى الشهر على العام شهر 1 على عام 15 15/2 من تاريخ 20/2/2015 هل يوجد معادله لعمل ذلك جزاكم الله كل الخير

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

اخى ياسر تم ارفاق الملف فى المشاركة رقم 1

السلام عليكم الاخوة الكرام ارجو المساعده فى جعل الشيت يقوم بحفظ جميع الشبتات pdf دون تسميتها ... Sheets(Array("رمضان 1", "رمضان 2", "رمضان 3", "رمضان 4")).Select حتى لا اكون مجبر الى اضافة اسم اى شيت اخر الى الكود Sub PDF_ALL() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "2191612" MyName = "D:\تايم شبت المقاولين_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("رمضان 1", "رمضان 2", "رمضان 3", "رمضان 4")).Select Sheets("رمضان 1").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If Application.ScreenUpdating = True Sheets("رمضان 1").Select ActiveSheet.Unprotect "2191612" End Sub جزاكم الله خيرا المقاولين1.rar

السلام عليكم الاخ الكريم مختار اسال الله ان تكون جمعه مياركة عليك وعلى جميع المسلمين ... جزاك الله كل الخير .. موضوع هام جدا

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

نعم احى الحبيب .. هل يمكن دمج الكودين بكود واحد يعمل من خلا زر واحد

السلام عليكم اخى الحبيب بن علية حاجى وجدت حل بعد التجربه الا انى لا استطيع عمله يمكن جعل الكود مركب من خلال زر واحد يكون عند الضغط علية يكون Selection.Merge وعند الضعط عليه مره اخرى يكون Selection.UnMerge كما فى كود اخفاء الصفوف الفارغه و عند الضغط عليه مره اخرى اظهار الجميع هلى يمكن تحقيق ذلك مع ذلك الكود جزاك الله كل الخير

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

السلام عليكم اخى الحبيب بن علبة حاجى جزاك الله حيرا على المساعده ثانيا ..الطلب الاخر لا استطيع عملformat Cells & marge&center للخلايا فى حالة protect shet مع ان الخلايا التى اريد دمجها غير محميه

عزرا 2191612 هى الكلمه الصحيحه

السلام عليكم الاخوة الكرام .. ارجو المساعده فى عمل كود طباعة على اساس طباعه الشيت الذى يكون محتوى الخليه aq4 = صفر وذلك لكون الشيتات المراد طبعتها تحتلف كل شهر والمفترض ان يصل عدد الشيتات الى 31 شيت وكيف لى ان افعل marge&center فى حالة protect shet كلمة السر 2191612 جزاكم الله كل الخير المقاولين.rar

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

السلام عليكم اخى الجبيب .. والاخ الكبير مقاماً وقيمة حل ممتاز جدا سلمت يداك واكثر ما يسعدنى تواجدك معنا اخى لبحبيب اخى الحبيب ارجو شرح المعادلة لكونى لا اعلم ماذا تعنى MIN حيث كان تصرفى بالمعادله التالية =IFERROR(IF(AND(AK4=25;$AP$2>=28);"5";IF(AND(AK4>25;$AP$2>=28);($AP$2-AK4);"0"));"") جزاك الله كل الخير

السلام عليكم الاخوة الكرام ارجو المساعده فى عمل معادلة على اساس اذا كان عدد ايام العمل فى العمود AJ 25 او اكثر يتم وضعد عدد ايام الراحه فى العمود AK على اساس الا تزيد عن 5 وان يكون مجموع الاثنين لا يتعدى عدد ايام الشهر فى الخليه AP2 مثال عدد ايام العمل الراحه المجموع عدد ايام الشهر 25 5 30 30 26 4 30 30 27 3 30 30 25 5 30 31 26 5 31 31 28 3 31 31 25 3 28 28 شهر فبراير 26 2 28 28 شهر فبراير ارجو ان تكون الصوره واضحه جزاكم الله كل الخير TIST_FUNCTION.rar