جمعة العوامي

شكرا للجميع ؛؛

اضافة للموضوع ..هذا ملف للتفقيط ممتاز بصراحة .. ويمكن تعديل كلمتي العملة من داخل الكود فقط .. والباقي يشتغل تمام!! التفقيط.xlsm

جرب هذا الملف .. ان كنت لم تتحصل على اجابة بعد .. واعمل لي اشارة هل اشتغل عندك والا لا ؟ التفقيط.xlsm

ليس هناك داع لهذا كله ضع هذا الكود في حدث اغلاق ورقة العمل كما تلاحظ وسوف يحفظ نسخة تلقائية بتاريخ اليوم .. أسهل واحسن وذلك في دليل في نفس المجلد الذي به ملف العمل .. باسم saveit ... قم بانشائه على جهازك Private Sub Workbook_Deactivate() Dim saveFilename As String Dim savedate As String savedate = Format(Date, "yyyyMMdd") Application.DisplayAlerts = False saveFilename = ThisWorkbook.Name ActiveWorkbook.SaveAs ThisWorkbook.Path & "\saveit\" & saveFilename & savedate Application.DisplayAlerts = True End Sub

لم أستوعب قصدك ... ممكن شرح المسألة ولو في ملف مرفق ..

تفضل الحل ... عن طريق الكود !!! Copy of GCC_Expense_Report_Tax_Details_190621 1_تم التعديل.xlsb

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

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

من غير مقابل .. باذن الله

اقتبست الكثير من المعادلات واكواد vba ومن كثرتها لا أعرف أصحابها الحقيقيين .. وزدت عليها صممت بها برامج تنفع الآخرين .. فليعذرني كل من رأي كود أو معادلة في منظوماتي المختلفة القائم بتصميمها .. وله الأجر والثواب من رب العالمين فقد علم الإنسان مالم يعلم .. ومن لا يشكر الناس لا يشكر الله .. الشكر الجزيل للجميع .. للعلم (لم استفد من ذلك ماديا بتاتا .. وإنما لوجه الله تعالى .. ورحمة الوالدين)

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

مازلت عايز الملف ... والا خلاص ...

استاذ :: Ali Mohamed Ali بارك الله فيك ... ولكني استخدم VBA للاكسل ... ولقد حاولت ونجحت الطريقة مشكور جدا ... وهي في هذه الخطوة ... wslstrow = .Range("d" & ws.Rows.Count).End(xlUp).Row For ie = 3 To wslstrow If txt = CStr(.Cells(ie, "E")) And .Cells(ie, "I") = adi And .Cells(ie, "ak") > 0 Then banktot = Application.WorksheetFunction.SumIf(.Range("E3:e" & wslstrow), wws.[j3], .Range("ak3:ak" & wslstrow)) End If Next banktot2 = Round(banktot, 3) وهي جزء من منظومة مرتبات لحوالي 1000 موظف ...

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

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