أ / محمد صالح

نعم اتضح عدم تجاوز الأشهر المسددة مدة العقد جرب كتابة هذه المعادلة في الأشهر المسددة =IF(DATEDIF(M14,NOW(),"m")+1>L14,L14,DATEDIF(M14,NOW(),"m")+1) ومعناها إذا كان ناتج المعادلة أكبر من عدد شهور العقد فتكون قيمة الخلية عدد شهور العقد فقط ولا يزيد بالتوفيق

يمكنك كتابة 30/6/2021 في الخلية C1 مثلا ثم كتابة هذه المعادلة بالشروط التي ذكرتها في الخلية B2 =IF(A2<=$C$1,"انتهت صلاحية المنتج","المنتج صالح للتداول") ثم سحب المعادلة لأسفل بالتوفيق

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

أعتقد المعادلتين صحيحتين جرب تغيير تاريخ الجهاز إلى شهر انتهاء العقد ثم افتح الملف ماذا تجد؟

فعلا رقم 3 بديل Xlup .End(Direction) xlToLeft = 1 xlToRight = 2 xlUp = 3 xlDown = 4 أما عن رقم 2 فهو بديل من استعمال cells مرة أخرى ولكن على اعتبار أن آخر خلية في الصف هي 1,1 بمعنى جرب هذا الكود Worksheets(WS.Name).Cells(Rows.Count, 1).End(3).cells(2,1) ستجده يعطي نفس النتيجة وهي الانتقال للصف التالي 2 باعتبار الصف الحالي 1 والعمود الحالي 1 بالتوفيق

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

ربما تفيدك هذه النتائج https://www.officena.net/ib/search/?q=يوزرفورم بحث&updated_after=any&sortby=relevancy&search_and_or=and

للتخص من الحروف المنفصلة يمكنك نسخ النص كله ثم لصقه كنص بسيط غير منسق (keep text only) رمز A

جميعا بإذن الله تقبل الله طاعتكم وأجاب دعوتكم

الكود تم تعديله في المشاركة الأصلية هذه

يبدو أن حضرتك ما انتبهت لهذا السطر

بعد لصق الكود في موديول جديد يمكن مسح جميع المكتوب في الشيت أولا في الخلية مثلا B3 نكتب 100 (كود الموظف) ثم نضغط ctrl+enter ليبقى في نفس الخلية بعد قبول الكتابة (بكدا حددنا الخلية المكتوب فيها كود الموظف نبدأ في تنفيذ الماكرو) ثم نضغط على alt+f8 لعرض الماكرو ونختار masFillDays ونضغط run (أو يمكنك ربط الكود بزر أو شكل ويتم تنفيذ الماكرو بعد الضغط على الزر مباشرة) سيتم عمل مسلسل من 1 إلى 31 وتكرار كتابة كود الموظف 31 مرة تم تعديل الكود السابق ليتم كتابة تاريخ اليوم من 1 في الشهر المكتوب في الخلية d1 إلى نهاية الشهر في عمود التاريخ أليس هذا هو المطلوب ؟؟

حسب فهمي للمطلوب يمكنك استعمال هذا الكود Private Sub CommandButton5_Click() If ActiveSheet.Name <> "data" Then Dim wslr As Integer, counter As Integer, ws As Worksheet Set ws = ThisWorkbook.Worksheets("data") wslr = ws.Cells(Rows.Count, 1).End(xlUp).Row For counter = 1 To wslr If ws.Cells(counter, 2) = TextBox1.Value Then ws.Cells(counter, 2).EntireRow.Delete counter = counter - 1 End If Next MsgBox "تم حذف الاسم" End If End Sub

وأنا أيضا أفتقد مثل هذه الكوكبة يا ريت لو حد يعرف خبر عنها يطمنا

يمكنك استعمال هذا الإجراء التنفيذ بعد تحديد الخلية المكتوب فيها كود الموظف Sub masFillDays() month_days = Day(DateSerial(Year([d1]), Month([d1]) + 1, 1) - 1) For n = 1 To month_days ActiveCell.Offset(n - 1, -1).Value = n ActiveCell.Offset(n - 1, 0).Value = ActiveCell.Value ActiveCell.Offset(n - 1, 6).Value = DateSerial(Year([d1]), Month([d1]), n) Next n MsgBox "done" End Sub ولا تنس تغيير امتداد الملف لصيغة تدعم الماكرة مثل xlsb بالتوفيق

هذه بعض نتائج البحث في المنتدى https://www.officena.net/ib/search/?q=سداد القروض&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

تفضل أخي الكريم ضع هذه المعادلة في الخليةF5 واسحب يمينا =SUM(OFFSET($C$2,(COLUMN()-6)*3,0,3)) مع مراعاة إبعاد المجموع من آخر صف حيث يتم جمعه مع آخر خلية

شكرا لكلماتك الطيبة وإذا كان ولابد ظهور رسالة يمكنك وضع المعادلة التالية في عمود الملاحظات في حالة وجود الكمية المتبقية في العمود F =IF(F2<0,"لا يمكن بيع هذه الكمية. لأن الكمية المتبقية بالسالب.","") ثم سحبها لأسفل

ملفك بعد التعديل السابق يعمل بكفاءة عالية حتى وإن وصلت الموديلات إلى 15000 ولكن هذا كود نسخ القيم الفريدة Sub mas_copyUnique() Sheets("الوارد").Range("D2:D15000").AdvancedFilter 2, , Sheets("المخزون").Range("B2"), 1 MsgBox "Done" End Sub للعلم ستحتاج إلى تنفيذ الكود بعد كل إضافة لموديل جديد فريد وهذه ميزة المعادلات عن الأكواد بالتوفيق

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

الملف المرفق يعمل عندي بدون مشاكل يا الله لم ألحظ أنك تستعمل أوفيس 2003 ودالة iferror غير مدعومة فيه لذا أنصحك بالتحول لأوفيس 2019 جرب استخدام if مع isna لتعمل مع أوفيس 2003 =IF(ISNA(INDEX(الرصيد!$J:$J,MATCH(C2,الرصيد!$C:$C,0))),"",INDEX(الرصيد!$J:$J,MATCH(C2,الرصيد!$C:$C,0))) بالتوفيق

يا ريت توضح أكتر المطلوب هل يوجد مثلا عندك صورة شيك وتريد الكتابة في خلايا في الاكسل بحيث عند الطباعة تظهر في نفس المكان المطلوب في الشيك ؟

يفضل إرفاق ملفك الذي به هذا الخطأ لنتمكن من معرفة أين الخطأ

أخي الكريم الفاصلة تختلف من جهاز لآخر حسب إعدادات النظام وتقريبا في حالتك الفاصلة هي الفاصلة المنقوطة وليست الفاصلة فقط لذلك يمكنك استعمال الفاصلة المنقوطة في المعادلة بدلا من الفاصلة لتصبح =IFERROR(INDEX(الرصيد!$J:$J;MATCH(C2;الرصيد!$C:$C;0));"") وهكذا في أي معادلة تنسخها من المنتدى تجعلها أولا موافقة لنظام جهازك بالتوفيق

يمكنك إضافة عمود بعنوان الكمية المتبقية وتضع فيه المعادلة التالية في جدول1 و2 و3 و4 قبل عمود الملاحظات =IFERROR(INDEX(الرصيد!$J:$J,MATCH(C2,الرصيد!$C:$C,0)),"") وهي لجلب الكمية المتبقية لهذا الاسم ويمكنك استعمال التنسيق الشرطي لتلوينها إذا قلت عن صفر بالتوفيق