حسين العصلوجى

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

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

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

هذا حسب ما فهمت من كلامك اي تعديل خبرني التواصل من خلال الفورم.rar

استخدام مصفوفه سوف يلزم نفس الوقت حتي تبحث الدالة في كل عنصر من عناصر المصفوفه

ما هو التطوير الذي تريده للدالة ويمكن اضافته لها وعمل دالة معرفة تفي باحتياجاتك

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

اذا :- المطلوب هو عمل دالة تستند في عملها الي جدول نسب تقوم انت بادخاله يدويا وتستطيع تغير نطاق القيم واضافة نطاقات جديده؟

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

Sub hide() lr = Range("A65436").End(xlUp).Row For X = 1 To lr If Application.Sum(Range(Cells(X, "A"), Cells(X, "M"))) = 0 Then Rows(X).Select Selection.EntireRow.Hidden = True End If Next End Sub حيلة صغيره لكني اعتقد انها تفي بالغرض بانتظار اثراءات اخري للاعضاء *حاول دائما ارفاق ملفات في مواضيعك لشرح المطلوب بصورة افضل والتطبيق عليه تقبل تحياتي hide.rar

الاخ / عاطف ماهي مشكلتك مع هذا الكود حتي نتمكن من مساعدتك

اخي الغالي / ابو البراء تحية طيبه لك علي مشاركتك ونقاشك لان هذا هو هدف المنتدي طرح العديد من الرؤي ومناقشتها للوصول للافضل واضافة المزيد من الخبرات انا اتفق معك تماما ان الحلقات التكرارية تسبب بطء الكود في حالة كم البيانات الكبير لكن الكود بوضعه الاول ايضا سيسبب بطء كبير لك ان تتخيل 1000 دالة في الملف تتغير بتغير كل قيمه فالشيت لكن :- مع اضافة السطر الذي اقترحته يكون هو الحل الامثل والاسرع تقبل تحياتي

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then 1 r = 1 LR = Range("E65436").End(xlUp).Row Range("$c$1:$c$" & LR).ClearContents For x = 1 To LR If Cells(x, "E") <> "" Then Cells(x, "C") = r r = r + 1 End If Next End If End Sub اثراءا للموضوع حل اخر باستخدام الاكود دون ادراج دالة في ملف الاكسل ترقيم تلقائي3.rar

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

ملفك يحتوي شيت واحد للعملاء والموردين فكيف يتم التفريق وما هو الشكل المطلوب للكشف برجاء التوضيح في ملف

ما فهمت طلبك برجاء التوضيح

جرب المرفق لعله يكون المطلوب البيع بالتقسيط 66 - تعديل.rar

تحية طيبة للاخ / محمد الريفي علي الحل الرائع اثراءا للموضوع حل اخر باستخدام الاكواد مع اضافة الجمع التلقائي كما في الطلب الاخير البيع بالتقسيط2.xlsm_H.rar

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

تم عمل المطلوب راجع الملف المرفق لعله يفي بالغرض ملحوظه : يفضل ادخال الاصناف من قائمة عن طريق خاصية التحقق من صحة البيانات لتلافي الخطأ عند ادخال اسم الصنف يديويا . Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Target.Column = 5 And Not IsEmpty(Target) Then On Error GoTo 1 a = Application.Match(Target.Value, Sheets("ÇáãÈÇÚ").Range("B1:B64536"), 0) GoTo 2 1 b = Target.Row c = Sheets("ÇáãÈÇÚ").Range("B65536").End(xlUp).Row + 1 d = Sheets("ÇáÑÕíÏ").Range("B65536").End(xlUp).Row + 1 Sheets("ÇáãÈÇÚ").Cells(c, "B") = Target.Value Sheets("ÇáÑÕíÏ").Cells(d, "B") = Target.Value Sheets("ÇáãÈÇÚ").Cells(c, "A") = Sheets("ÇáÓÌá").Cells(b, "D") Sheets("ÇáÑÕíÏ").Cells(d, "A") = Sheets("ÇáÓÌá").Cells(b, "D") End If 2 End Sub تحياتي H_البيع بالتقسيط.rar

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

ابشر اخي جاري العمل عالمطلوب

الاخ / ابوعبدالواحد تم عمل ما طلبت جرب الملف المرفق لعله يفى بالغرض ولا تتردد في اي سؤال او تعديل بانتظار اثراءات الاخوة بالمنتدي لتعم الفائدة ------------------------------------ البيع بالتقسيط.rar

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

عند نحديد نطاق الفرز لا تدخل ضمنه الخلايا الفارغه اللي فاخر القائمة ولعل احد الاعضاء يعطب لك حل اخر