Ali Mohamed Ali

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

يمكنك وضع هذا الكود فى حدث الصفحة Sub worksheet_change(ByVal target As Range) Set target = Range("A1") If target.Value = "Delete" Then Call Macro1 End If If target.Value = "Insert" Then Call Macro2 End If End Sub او هذا Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$A$1" Then Select Case Target.Value Case 10 To 50: Macro1 Case Is > 50: Macro2 End Select End If End Sub

تفضل ترتيب الطلاب 2019.xlsm

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

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

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

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

تفضل المصنف1 (3).xlsm

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

تفضل المصنف2.xlsm

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

عليك العمل كما بالصورة

تفضل Split Text.xlsm

كان عليك من البداية ارسال ملف به بيانات وليس خالى من البيانات لكى يتم العمل عليه وكيف اعرف القوائم المنسدلة التى تريدها ومن اين مصادرها تفضل تم عمل المطلوب لما هو متاح من البيانات ملف الاحالات.xlsm

عليك بعمل باسورد لمحرر الأكواد وذلك عن طريق الضغط على Alt F11 ثم بعد ذلك الدخول لقائمة Tools واختار منها VBAprojectproperites ثم نختار Protection ونقوم بعد ذلك بكتابة كلمة السر التى تريدها على هذان السطران

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

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

الملف الذى ارسلنه اليك سابقا بالفعل به كل ما تريد

تفضل جرب هذا دليل الهاتف - Copy.xlsm

تفضل دليل الهاتف - Copy.xlsm

تفضل أتمنى ان يكون المطلوب ترتيب3.xlsm

اخى الكريم كما ترى المعادلتين يعملان بكل كفاءة اذا كان هناك مشكلة فمن عندك حاول تحلها

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

تفضل الحل بمعادلتين مختلفتين داخل الملف ELFAR.xlsm

يمكنك متابعة هذا الرابط فمثل هذه البرامج تكون بمقابل وليس مجانية https://www.officena.net/ib/topic/76248-برنامج-شركة-ايجار-سيارات/?tab=comments#comment-488293 او عليك استخدام خاصية البحث فى المنتدى ولكن اكثر فى قسم الأكسيس بارك الله فيك وشرفتنا فى المنتدى