أ / محمد صالح

حسب فهمي للمطلوب يمكنك استعمال هذا الكود 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)),"") وهي لجلب الكمية المتبقية لهذا الاسم ويمكنك استعمال التنسيق الشرطي لتلوينها إذا قلت عن صفر بالتوفيق

ملفك رائع وبسيط أحييك على هذا العمل تكمن مشكلة بطء الملف في اعتمادك على معادلات المصفوفات بكثرة واستعمالها في عدد كبير من الصفوف 15000 صف لذلك إذا اقتصرنا على عمود واحد فيه هذه المعادلة التي تجلب الأرقام الفريدة في عمود الموديل سيكون الملف أسرع وعليه لقد قمت بإضافة عمود M في شيت الوارد وبه معادلة الموديل بدون تكرار (يمكن إخفاء هذا العمود) وسحبتها إلى 20 صفا فقط وإذا زادت أعداد الموديلات يمكن سحب المعادلة لأسفل أي عدد من الصفوف ولكن بدون زيادة عن الحاجة ثم قمت بجلب القيم الموجودة في هذا العمود في شيت المخازن والتسعير بمعادلة خفيفة جدا وتم سحب معادلات سيت المخزون والتسعير إلى 1000 صف فقط حيث أنه من غير المنطقي التعامل مع أكثر من 1000 صنف وإذا احتجت زيادة يمكن سحب المعادلات إلى أي عدد من السفوف بالتوفيق 2 نموزج مخازن معتز.xlsb

أعتقد أن هذا الموضوع يفيدك بالتوفيق

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

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

الحمد لله كل عام وأنتم بخير وصحة وسعادة

شكرا لكلماتك الطيبة صعب جدا الفلتر بمعامل or لكن الحمد لله الذي وفقني في التوصل إليها يمكنك تغيير المعادلة في G4 وهي هذه المعادلة =@INDEX('6'!B:B,INDEX(4^8-LARGE((رصيد>0)*(رصيد>=$E$1)*(4^8-ROW(رصيد)),ROWS(G$4:G4)),0)) طريقة تغيرها كما يلي: 1- تكتب في الخلية E1 المبلغ المراد وهو -60000 2- حدد الخلية G4 ثم اضغط ( Ctrl+shift+سهم لأسفل ) ليقوم بتحديد النطاق من G4:G68 3- اكتب في شريط المعادلة ما يلي: =IFERROR(INDEX('6'!B:B,SMALL(IF($E$1>رصيد,ROW(رصيد),IF(رصيد>0,ROW(رصيد),"")),ROW()-3)),"") 4- اضغط Ctrl+shift+enter لأنها معادلة مصفوفات بالتوفيق

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

وبعد ذلك هل تقصد طباعة الكل بطريقة آلية؟؟؟ إذا كان هذا هو المطلوب الثاني فهذه بعض نتائج البحث في منتدانا الرائع Showing results for 'طباعة الكل'. - أوفيسنا (officena.net) بالتوفيق

شيت Salary Sheets بالفعل يمكن عرض جميع الموظفين فيه بكتابة الرقم الثابت لهم في خلية K4 جرب أن تكتب من 1 إلى 13

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

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

ربما تكون المشكلة في تنسيقات النظام حيث من المعروف أن الماك يجعل العلامة العشرية فاصلة وليست نقطة و‏لإجراء تغييرات في تفضيلات النظام:‏ ‏تأكد من إغلاق Excel تماما‏ ‏اختر شعار Apple في الزاوية العلوية اليسرى من الشاشة واختر ‏‏تفضيلات النظام‏ System Preferences ‏اختر ‏‏اللغة والنص‏ Language & Text ‏تحديد علامة التبويب ‏‏تنسيقات‏ Formats ‏تغيير ‏‏المنطقة‏‏ إلى ‏‏الولايات المتحدة الأمريكية‏ ‏إغلاق تفضيلات النظام واختبر داخل Excel‏ ‏بمجرد تعيين تفضيلات النظام لنمط العملة، يجب إنهاء Excel وإعادة تشغيله حتى يصبح التحديد نافذ المفعول.‏ ولتغيير فاصل الآلاف والعلامة العشرية System Preference>Language & Region>Advanced>General (grouping (,) decimal (.) ) شاهد هذا إن شاء الله يفيدك بالتوفيق