أبوبسمله

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

للرفع

للرفع

للرفع

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

السلام عليكم ورحمة الله وبركاته اخوانى الكرام قد بحثت قبل السؤال عن طريقه لارسال ملف النسخ الاحتياطى على الايميل او صفحة الفيس بوك لكثرة استخدامها وجدت عند البحث هذا الموضوع وبه مثال لاخينا ابو آدم وعند التجربه يعطينى خطأ اطمع من اخوانى الكرام بحل هذه المشكله رابط الموضوع هل-هناك-طريقة-لإرسال-الجداول-إلى-الإيميل تحميل التطبيق وشكرا لكم اخوانى الكرام

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

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

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

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

إتفضل اخى الكريم ان شاء الله يكون ما طلبت داله اليوم بالتاريخ.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 واعلى انا حاولت لكن لم افلح

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

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