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

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير تحياتي و تقديري للجميع جرب المرفق لعل به المطلوب Dim R, ER, Q1, Q2 ER = ActiveSheet.UsedRange.Rows.Count Q1 = Range("M1") For R = 2 To ER If Cells(R, 1) <> "" Then Cells(R, 2) = Q1 Next R جزاكم الله كل خير ترحيل بشرط.rar

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

عدل السطر الأول ليكون بهذا الشكل If Feuil1.Range("D19").Value > Feuil2.Cells(Rows.Count, 1).End(xlUp).Row Then Feuil1.Range("D19").Value = "": MsgBox "Last Value", vbExclamation: Exit Sub

السلام عليكم هذا حل من الحلول (عدد الطلاب 11 لا يعطي حلا فتم تغييره بالعدد 12 أو 13)... إن شاء الله أحاول أن أقدم لك حلا آخر باستعمال Solver بن علية حاجي 10.rar

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

عيدكم بمااااااارك وجميع المسلمين

السلام عليكم ورحمة الله لا زلت انتظر الحل في شي اسمة المنوال وفي شي اسمة الظل وفي شي اسمة المنحنى كلها بالرياضيات لكن انا لا اعرف كيفية التطيبق

كل سنة و انته طيب اخي الحبيب ابو البراء انته المعلم ونحنه منك نتعلم - -

السلام عليكم كل عام وانتم بخير استاذ احمدزمان تم المطلوب بنجاح والحمد لله جزاك الله خيرا وتقبل منك جميع اعمالك تحياتي

كل عام وأنت بخير أستاذي ومعلمي وأخي الحبيب أحمد يعقوب تقبل وافر تقديري واحترامي

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود Me.No = DLookup("[No]", "supplier", "[SupplierName]= 'الخماسية'") أو اذا تبي تاخذ قيمة الشرط من مربع نص جرب هذا الكود Me.No = DLookup("[No]", "supplier", "[SupplierName]= '" & Me.Text1 & "'") هذا اذا كان الشرط نص، أما إذا كان الشرط رقم فالكود رايكون بهذا الشكل Me.Text1 = DLookup("[SupplierName]", "supplier", "[No] = " & Me.No) أو Me.Text1 = DLookup("[SupplierName]", "supplier", "[No] = 2020")

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

لاحظت انك بتستخدم دالة (GoodPartOfName) 6 مرات حق كل سجل في الاستعلام (استعلام1) حق تستخلص اسم ولي الأمر واتوقع هذا اللي بيعمل البطئ عملت function في module1 اسمها getFaterFukkName Function getFaterFukkName(sFullName As String) As String Dim newData As Long Dim stNameLong stNameLong = Len(sFullName) newData = Len(sFullName) - InStr(1, sFullName, " ") getFaterFukkName = Right(sFullName, newData) End Function واستبدلتها باللي كانت موجودة في مسبقا في الاستعلام عملت نسخة من النموذج (frm_search3) وسميتها (frmSearchTest) ، حق احافظ على شغلك في النموذج الجديد شوي خففت الزحمة في حدث On Change حطيت الكود التالي : Me.SubSearchMe.Requery وان شاء الله يكون هذا هو الحل حق البطئ المصروفات2.zip

وجزيت خيراً أخي العزيز ومشكور على دعائك الطيب ، ولك بمثله إن شاء الله

هل هذا هو المطلوب تسجل وقت الخروج عن الضط على الصح.rar

تأكد من أن الحساب لديك في الملف تلقائي وليس يدوي

ضع هذا الكود فى بداية فتح الملف ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

وعليكم السلام الفكرة ببساطة هنا هو أن نحصل على الرقم 1 في أول صف في النتائج ... وهنا يتم الاعتماد على الدالة Row لمعرفة رقم الصف الحالي ... وبما أن النتائج ستبدأ في الصف الثالث عشر .. فلكي نحصل على الرقم 1 يتم طرح 13 - 12 ليساوي الرقم 1 أي أن هذا الجزء مرتبط برقم صف البداية للنتائج تقبل تحياتي

لاحظ الكود في الصورة المرفق الذي ارسلته غير كامل فالنموذج الثاني يحتوي على عدة نماذج غير متوفرة حاول الاستفادة من هذا المرفق قاعدة بيانات1.rar

الاخوه الكرام وجدت فى احد المنتديات هذه المعادله التى تقوم بتفقيط المبالغ فاردت ان تعم الفائده على الجميع تفقيط.rar

تم التعديل ليوكن ما طلبت كاملا إن شاء الله 221.rar