Ali Mohamed Ali

تفضل الفرق بين تاريخين2018.xlsm

يمكنك استخدام هذه المعادلة وهى معادلة مصفوفة اى لابد من الضغط بعد كتابة المعادلة على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =B2-A2+1-SUMPRODUCT(IF(WEEKDAY(ROW(INDIRECT(A2&":"&B2)))={7,3},1,0))

تفضل ويمكنك بنفسك عمل مثل هذه المعادلة بالشروط التى تحتاجها على نفس المنوال . =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25&$K$16:$K$25="موز"&"فلبيني"&"اصفر"))

تفضل هذه المعادلة لهذا الصنف-ايضا بتعديل بسيط على معادلة الأستاذ سليم =SUMPRODUCT(--($I$16:$I$25&$J$16:$J$25="موز"&"فلبيني"))

تفضل hالكهرباء.xls

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى - تفضل https://www.officena.net/ib/topic/27773-اضافة-ملف-او-ملفات-صوتية-الي-ملف-اكسل/ كما ان هناك عدة فيديوهات لهذا الأمر https://www.youtube.com/watch?v=aPagfyX_SCU https://www.youtube.com/watch?v=Z18CpWlKhKg https://www.youtube.com/watch?v=WgpNay0AzBg

ممتاز استاذ سليم معادلة ممتازة بارك الله فيك

تفضل لك ما طلبت ولا يمكنك تغيير اى بيانات تم ادخالها سابقا وكلمة السر : 1400 حماية بعد الإدخال مباشرة.xlsm

بارك الله فيك اخى الكريم وبالتوفيق ان شاء الله

بالتأكيد طبعا تفضل Book2.xlsm

نعم ,المحافظة والجنس وتاريخ الميلاد ومنه نستخرج العمر

تفضل وهذا كود اخر غير الموجود بالملف Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub وهذا كود ثالث Sub CommandButton1_Click() Application.Quit ThisWorkbook.Save End Sub وهذا كود رابع Sub SaveAndClose() ActiveWorkbook.Close SaveChanges:=True End Sub واخيرا كود خامس Private Sub CommandButton2_Click() Dim WB As Workbook If Not ThisWorkbook.Saved Then ThisWorkbook.Save MsgBox "Your data has been saved.", vbInformation, vbNullString End If For Each WB In Application.Workbooks If Not WB.Saved Then If MsgBox("You are about to exit the application. The workbook named """ & WB.Name & """ is not saved. Would you like to save """ & WB.Name & """ before it closes?", vbQuestion Or vbYesNo Or vbDefaultButton1, "Save Workbook...?") = vbYes Then WB.Close SaveChanges:=True DoEvents Else WB.Close SaveChanges:=False End If End If Next Application.Quit End Sub save & close.xlsm

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

لك ما طلبت اخى الكريم مثال.xlsx

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

كيف يمكن العمل على الصورة !!!!!!!!! عليك برفع الملف نفسه ؟

وعليكم السلام عليك برفع الملف حتى تكتمل المساعدة

وعليكم السلام لابد من رفع الملف للعمل عليه لكى تتم المساعدة

تفضل

تفضل كتابة التاريخ تلقائيا.xlsx

تفضل بعد اذن استاذنا الكبير ابراهيم المصنف1.xlsm

انها حقا معادلة رائعة استاذى الكريم -ولكنى اعتقد ان تكون هكذا لكى يتم اضافة 3 أشهر , فعندما تم تطبيق معادلة حضرتك اعطت التاريخ فى الخلية A2 -01/07/2019 فلابد ان يكون 01/04/2019 =DATE(YEAR($A$1),MONTH($A$1)+3*(ROWS($A$1:A1)),1)

تفضل Book2.xlsx

وعليكم السلام تفضل اخى الكريم محصلات.xlsx

بارك الله فيك اخى الكريم هذه هى المعادلة المستخدمة فى البحث يمكنك دراستها متفهمها جيدا بسهولة =IFERROR(VLOOKUP($D9,Feuil1!$B$9:$I$1000,4,0),"")