نجوم المشاركات

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =IFERROR(VLOOKUP(A2,'رقم الموظف'!$A$1:$G$130,5,0),"") Pay-aht_moustafa-20190802-040908.xlsx Pay-mttks_magdi-20181011-082233-2019 - Copy.xls

تفضل 1الأثاث.xlsm

بعد اذن اخي ابو عارف شوف هل هذا ما تقصده Da3 (2).accdb

أحسنت أستاذ مجدى بارك الله فيك ورحم الله والديك

وده اللى انا قلته لك من الأول تجنبا لعدم اهدار الوقت فعليك برفع الملف نفسه طالما لم توفق في الكود المرسل لك

تفضل لك ما طلبت وزيادة تم عمل كود ووضعه في حدث الصفحة لحماية الصفحة الرئيسية _ وكلمة السر 123 Private Sub Worksheet_Activate() Sheets("Main").Protect Password:="123", UserInterFaceOnly:=True End Sub Book1.xlsm

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم Private Sub CommandButton2_Click() UserForm1.Hide Application.Visible = True Sheets("Sheet8").Select End Sub

Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

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

أى حاجة بتزود النقدية عندك مدين زى عملية البيع ، مرتجعات (مردودات) الشراء ، سند قبض أى حاجة بتقلل النقدية تبقى دائن عكس اللى فوق يعنى الفلوس اللى بتاخدها فى ايدك دا مدين ، والفلوس اللى بتدفعها دا دائن

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

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

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

Option Explicit Sub TEST() Dim X, A, B, C, I% X = Range("B3").MergeArea.Rows.Count A = Range("A3").Value B = Range("B3").Value: C = Range("C3").Value Range("A3:C3").UnMerge With Range("A3") For I = 1 To X - 1 .Offset(I, 0) = A: .Offset(I, 1) = B Next End With End Sub جرب هذا الماكرو

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

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

السلام عليكم ورحمة الله .. وتقبل الله منكم صالح الأعمال.. الأساتذة الكرماء رعاكم الله لدي قائمة منسدلة من نموذج فرعي أرغب في إذا تم اختيار كلمة تدبر أن تختفي سجلات من النموذج الفرعي الآخر وتظهر سجلات وإذا تم اختيار غير ذلك يتم العكس.. طبقت على ذلك قاعدة If لكن بعد إدخال البيانات تظهر رسالة مشلكة .. آمل التكرم بالتوجيه والتسديد رعاكم الله مرفق المثال وهذا الكود الذي تم وضعه If FNX = "تدبر" Then Forms![majal1]![fnx2]![hekma].Visible = True Forms![majal1]![fnx2]![addz].Visible = True Forms![majal1]![fnx2]![beanx].Visible = False Forms![majal1]![fnx2]![nobeanx].Visible = False Else Forms![majal1]![fnx2]![hekma].Visible = False Forms![majal1]![fnx2]![addz].Visible = False Forms![majal1]![fnx2]![beanx].Visible = True Forms![majal1]![fnx2]![nobeanx].Visible = True End If مثال ربط قائمة منسدلة.rar

تفضل جرب مثال ربط قائمة4منسدلة.rar

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

الله يبارك فيك اخي qathi والحل الاول والاساس هو للاخ ابو عارف له كل الشكر على ما قدمه في هذا المنتدى وكل القائمين بهذا المنتدى الغالي على قلوبنا جميعا

الله يبارك فيك أخي واستاذي @ابو ياسين المشولي .. دائما مبدع بالحلول الذي تاتي منك أسأل الله لك الخير والبركة ... جزاك الله خيرا

طيب غير سطر : OldImage = Me.imgWorker.OldValue الى : OldImage = Nz(Me.imgWorker.OldValue, FileName(Worker)) في الملف الاول قبل تعديل طبعا

السلام عليكم و رحمة الله و بركاته و السبب سجل جديد ليس لديه قيمة سابقة و الحل: استثناء سجل جديد في بداية الكود و عرض رسالة تفيد بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين اذا اخترت لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم سيفتح نافذة لتختار لصورة و عند اختار الصورة البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل. والمثال في المرفق Worker (4) (2).rar

امين آمين اخي الكريم و جزاك الله بمتله واليك اضافة جديدة اضافة علامة مئوية مع رقم نفسه دون دون مربع اضافية لوضع علامة مئويه فيها Da3.accdb

الشيت يعمل معى وليس به اى مشكلة

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

نظراً لأن موضوع السؤال كان عن تحويل إستعلام الى إكسيل وقد تمت الإجابه عليه .. فيرجى إدراج موضوع جديد بسؤالك الآخر وإن شاء الله تجد الإجابة.

تفضل اخي Da3.accdb

تفضل لك ما طلبت نسب العلاوة.xls

تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx

وعليكم السلام-تفضل لك ما طلبت Map12.xlsm

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

1- قم بتسمية الورقة الرئيسية بغير رقم مثلاً "main_sheet" او اي اسم تختاره 2-قم بتسمية الأوراق التي ترغب بمسح النطاق منها بالارقام مثلاً "1" "2" "15 " الخ.. نفذ هذا الماكرو (ستلاحظ الاوراق التي يحتوي اسمها على كلمات لا يتعاطى معها الماكرو) الماكرو Option Explicit Sub del_Ranges() Dim my_Srting$: my_Srting = "D5:F35" Dim sh As Worksheet For Each sh In Sheets If sh.Name Like "#*" Then sh.Range(my_Srting).ClearContents End If Next End Sub الملف مرفق كنموذج MOURATABAT.xlsm

وعليكم السلام -اهلا بك في المنتدى بالتأكيد لا يمكن عمل هذا بمعادلة Vlookup - ولكن يمكن بمعادلات المصفوفة كما بالملف وتم عمل اكثر من المطلوب شوف بنفسك ايجاد كل القيم التى تخص رقم معين.xlsx

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

تفضل اخى الكريم ومن فضلك لابد من التفاعل والمشاركة الإيجابية مع جميع الأعضاء وأتمنى من الله التوفيق لك دائما هايبر لينك - 1.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة البسيطة =IF((C4-D4)<0,0,C4-D4) جعل الناتج السالب صفراً.xlsx

مبدع استاذى الكريم دائما بارك الله فيك وجعله الله في ميزان حسناتك

لم توضح هذا فى طلبك عموما تفضل معادلة للبحث عن قيمة بأكثر من شرط-1.xlsx

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

عليك برفع الملف وشرح المطلوب على الملف بكل دقة

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

أحسنت استاذ مجدى بارك الله فيك عمل رائع جعله الله فى ميزان حسناتك

مبارك الترقية ابا جودى والى الأمام دائما

وعليكم السلام تفضل حذف أرقام من اليمين.xlsx

تفضل اظهار الوقت سالب.xlsx

عليك برفع الملف ؟!!!!

بسيطة يمكنك استخدام هذه المعادلة -لو افترضنا ان أرقام المعتمرين بالخلية A2 وأن متوسط تسكين الفندق في الخلية B2 فتكون المعادلة بهذا الشكل -ولكن كما ننصح الجميع لابد من رفع ملف في اى مشاركة وتوضيح المطلوب عليه =ROUNDUP(A2/B2,0)

وعليكم السلام تفضل Att Apr 2019.xlsx

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