أبوبسمله

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

إتفضل اخى الكريم ان شاء الله يكون ما طلبت داله اليوم بالتاريخ.rar

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

وزيادة فى اثراء الموضوع دالة IF لاكثر من 14 شرط هذا المرفق قد حملته من هنا من قبل 3 طرق مختلفه وعلى اكسيل 2003 بالتوفيق للجميع دالة_IF_لاكثر_من_14_شرط.rar

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

قمت بإنشاء تقرير أخر وهو تقرير خصم الراتب والعموله جلب الموظفين اللذين قامو باجازات اكثر من 15 يوم فى شهر 30 يوم او جلب الموظفين اللذين قامو باجازات اكثر من 16 يوم فى شهر 31 يوم او جلب الموظفين اللذين قامو باجازات اكثر من 14 يوم فى شهر 29يوم ولكنى لم افلح فى ضبط الكود Dim H, I As Long, Found As Range Dim lRow As Long Set WS = Sheets("ÊÞÑíÑ ÎÕã ÇáÑÇÊÈ æÇáÚãæáå") Str = WS.Range("B3").Value And WS.Range("d3").Value lRow = 7 Application.ScreenUpdating = False WS.Range("A7:C1000").ClearContents For H = 6 To Sheets.Count For I = 6 To Sheets.Count Set Found = Sheets(H).Columns("H:H").Find(Str) Set Found = Sheets(I).Columns("I:I").Find(Str) If Not Found Is Nothing Then If (Found.Offset(0, -1) > 4 And Sheets(H).Range("D5").Value >= 50) Or (Found.Offset(0, -1) > 3 And Sheets(H).Range("D5").Value < 50) Then WS.Cells(lRow, 1) = Sheets(H).Range("B3") WS.Cells(lRow, 2) = Sheets(H).Range("A1") WS.Cells(lRow, 3) = Found.Offset(0, -1) lRow = lRow + 1 End If End If Next H Next I Application.ScreenUpdating = True اعتذر لكم عن طلبات التعديل فليس لى خبره بكتابة الاكواد ولكن احاول 2New2.rar

جزاك الله كل خير اخى ياسر وبارك الله لك فى اهلك ومالك ورزقكك راحة البال

جزاك الله كل خير أخى ياسر تمام كده تم جلب الموظفين الاكبر من 50 ولهم اجازات اكبر من 4 يبقى لسه من هم اقل من 50 سنه ولهم اكثر من 3 ايام وجزاك الله عنى كل خير

مرحبا بك اخى ياسر قمت بتعديل الجزء التالى كما أشرت Set Found = Sheets(H).Range("D5").Value > 50 لكن يعطينى خطأ رقمه Object required (Error 424)

السلام عليكم اخوانى واخواتى الافاضل قمت بالتعديل على الكود اللذى ساعدنى به اخى الكريم ياسر ولكن لم يظبط معى فهل اطمع منكم التعديل عليه التعديل المطلوب لهذا التقرير ان ياتى بمن هم 50 سنه واكبر ولهم عدد ايام اكبر من 4 ايام ومن هم اقل من 50 سنه ولهم اكثر من 3 ايام Sub ÈÍË() Dim WS As Worksheet, Str As String Dim H As Long, Found As Range Dim lRow As Long Set WS = Sheets("ÊÞÑíÑ ÎÕã 5%") Str = WS.Range("B3").Value lRow = 7 Application.ScreenUpdating = False WS.Range("A7:C1000").ClearContents For H = 5 To Sheets.Count Set Found = Sheets(H).Columns("H:H").Find(Str) If Not Found Is Nothing Then If Found.Offset(0, -1) > 4 And Range("D5") > 50 Then WS.Cells(lRow, 1) = Sheets(H).Range("B3") WS.Cells(lRow, 2) = Sheets(H).Range("A1") WS.Cells(lRow, 3) = Found.Offset(0, -1) lRow = lRow + 1 End If End If Next H Application.ScreenUpdating = True End Sub 2New2.rar

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

بارك الله لك فى اعمالك ووقتك وجزاك الله عنا كل خير صح ما قيل فهم السؤال نصف الاجابه لم الاحظ عد الخلايا بشروط طيب اسف للاطاله اخى ياسر هل يمكن عملها كما اشرت سابقا كجدول متقاطع لعله يكون هو المطلوب لاخينا السائل هكذا الشهر قديم جديد 7 3 3 8 3 3

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

بارك الله فيك اخى ياسر على صبرك ومساعدتك وبالنسبه لحلك شغال وظاهر معى ولكن يمكن الاخ السائل يريدها كدجول متقاطع والله اعلى واعلم هل ممكن حل عن طريق الداله sumifs وطبعا هيا متاحه من اوفيس 2007 واعلى انا حاولت لكن لم افلح

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

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

اخى الفاضل ياسر بارك الله فيك وجزاك الله كل خير تم المطلوب بحمد الله وفضله ثم بفضل مساعدتكم لنا قمت بوضع الكود تحت زر امر واشتغل تمام جزاك الله كل خير ومرفق الملف بعد التعديل لمن اراد 2New ورقة عمل.rar

فى حين اخفاء الشيتات المرتبطه فان الارتباط لايعمل فهل هناك حل لهذه المشكله مرفق ملف قمت باخفاء شيت المنطقه منه 1New.rar

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

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

إخوانى الكرام أرجو منكم المساعده فى انشاء هذا التقرير لدى ملف لأجازات الموظفين هذا التقرير للموظفين اللذين لهم اجازات اكثرمن 4 ايام فى الشهر لخصم خمسه % من الأجر قمت بانشاء جدول صغير لمعرفة كل موظف هل اخذ اكثر من 4 ايام ام لا عاوز اجمعهم فى صفحه واحده لطباعتها وارسالها للقسم المختص للخصم فى صفحة التقرير عامل اختيار للشهر لما اختار الشهر يحضرلى بياناته هناك نقطه اخيره طبعا ده جزء من الملف ارجو انه عند اضافة باقى الموظفين ان يتم فحصهم مثل الموجودين يعنى تهيئة الملف لقرائة اى موظف جديد هينضاف فى الملف ارجو ان اكون اوضحت المطلوب بشكل مناسب وشكرا لكم جميعا على ماتقدمونه من تسهيل للمبتدئين أمثالى New ورقة عمل.rar

إتفضل أخى الكريم إن شاء الله يكون ما طلبت والوحده النمطيه تابعه للاخت زهره جزاها الله كل خير بالتوفيق Up_tfkit.rar

وهذ امثله آخرى التفقيط_.rar تفقيط لزهره.zip التفقيط في الأكسسxt_97.zip

إتفضل اخى هذا مثال على التفقيط بالدولار التفقيط بالدولارn.rar

اخى الكريم ممكن تستخدم برنامج Smart Install Maker وده شرحه لأختنا الكريمه زهره والبرنامج والسريال بالمرفقات بالتوفيق إن شاء الله شرح.rar smart install maker 5.04.zip