gamalin2

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

للاسف لم يحدث تغيير po change.rar

اخي نزار شكرا لمروك الكريم بس هو هيفرق في ايه اسم الصفحة اذا كان الاسم مقبول في الاكسل فاي اسم مش يفرق والا ايه

الاخوة الافاضل اريد كود يدرج معادلة في خلية معينه عند اجراء تعديل على الشيت في اخر سطر دوما او مراجعة الكود التالي وافادتي ما الخطأ به Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("p_o").[a1000].End(xlUp) .Offset(0, 7).FormulaR1C1 = "=IF(ISBLANK(RC[-7]),0,R7C[-6]*RC[-2]*(1+RC[-1]))" .Offset(0, 8).FormulaR1C1 = "=IF(ISBLANK(RC[-8]),0,RC[-4]*RC[-1])" End With End Sub

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

اشكرك اخي الكريم

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

اشكرك لاهتمامك اشكرك اخي الكريم جدا وجزاك الله خيرا لي طلب غريب شوية اضافي في حالة عدم وجود قيمة او ناتج منطقي للوظيفة mode يعطي #na هل لا يوجد وظيفة تعطي ناتج اقرب حاجة او القيم المتقاربة يعني على فرض ان التكلفة 37 و 38 و 39 ثم 150 و 300 و 10 هل يوجد اي حل ليخبرني ان القيمة الاقرب هي 38 مثلا اشكرك اعتقد ان وظيفة HARMEAN هي الانسب للغرض الذي ابحث عنه اشكرك مرة اخرى ولكن هل يمكن استخدام شرط مع هذه الوظيفة HARMEAN

السلام عليكم ورحمة الله وبركاته هل يمكن استخدام دالة mode بشروط لدي ملف مبيعات اصناف والسعر متغير نسبيا واريد معرفة السعر الاكثر تكرارا لكل صنف من مجموعة اصناف هل يمكن دمج وظيفتين او اكثر بحيث انه كل ما يجد صنف جديد يحسب المنوال له مرفق ملف فيه اصناف وتكاليف يومية لو دققت ستجد انها تتراوح بين 50 و 65 المتوسط الحسابي طلع حوالي 84 و 91 وهو رقم مضلل تماما فالتكلفة الاكثر شيوعا لو لا توجد عقبات انتاج بعيدة تماما عن هذه القيمة لذا بحث عن وظيف تأتي بالقيمة الاكثر شيوعا او التي يدور حولها .... اشكرك لاهتمامك mode fun.xlsx

فيه مقترح بحل آخر لأن عندي نفس المشكلة و نفس طريقه الحساب التي ذكرها الأخ مداد 1423 صاحب الموضوع - بتثبيت عدد أيام العمل 30 يوم و عليه يكون هناك مشكله في شهر فبراير 28 يوم - أو في الشهور 31 يوم - لجأت لحيله بسيطه لعلاج المشكله بأقرب طريقه للصواب و هي بحساب فرق الأيام الأقل أو الأكثر من 30 و تقسيمها على أيام الحضور الفعلي - بحيث من حضر الشهر كامل يأخذ الراتب كامل - و من غاب الشهر كامل يخصم كامل و من حضر يوم يأخذ حصه من الأيام المستحقه كفرق أيام - مرفق نفس مثال الأخ مداد مع تعديل أيام الشهر لشهر فبراير 28 يوم لتوضيح المشكله أرجو ان يلقي قبولكم معادلة الحضور.xlsx

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

جزاك الله خيرا اخانا الكريم حقا هدية قيمة ورائعة بل اكثر من رائعة شكرا لك

اخي لست ضليعا في الاكواد ولكني مستعينا بابداعات الاخوة هنا استخدم هذا السطر لتحديد السطر الاخير Dim EndRow As Long EndRow = Sheets("accmove").Range("a1").CurrentRegion.Rows.Count For l = 4 To EndRow بدلا من القيمة الثابتة وهذا لوضع خانة الاجمالي او المجموع في بعد انتهاء البيانات Sheets("invoice").Cells(EndRow + 2, 1).Value = "الاجمالي" Sheets("invoice").Cells(EndRow + 2, 6).FormulaR1C1 = "=sum(r8c6:r[-1]c)" Sheets("invoice").Cells(EndRow + 2, 8).FormulaR1C1 = "=sum(r8c8:r[-1]c)" مع تغيير اسماء الشيتات و اماكن اول خانة يبدا الجمع من عندها تحياتي

الحمد لله تم الحل شاكرين حسن تعاونكم

شاكر اهتمامكم تم الحل

الاخوة الاعزاء Sub temp_2() Sheets("tempcashout2").Select Range("B5,B6,b7,b8,b9,b10,f6").Select Selection.ClearContents ' Sheets("tempcashout2").Cells(5, 2).FormulaR1C1 = "=today()" Dim ER As Long ER = Sheets("tempcashmove").Range("a1").CurrentRegion.Rows.Count Dim I As Integer For I = 5 To ER If Sheets("tempcashmove").Cells(I, "o").Text = "p" And Sheets("tempcashmove").Cells(I, "p").Text = "no" Then Sheets("tempcashout2").Cells(6, 2).Value = Sheets("tempcashmove").Cells(I, 2).Value Sheets("tempcashout2").Cells(7, 2).Value = Sheets("tempcashmove").Cells(I, 3).Value Sheets("tempcashout2").Cells(7, 6).FormulaR1C1 = "=IFERROR(VLOOKUP(R[-1]C,acc!C[-4]:C[1],2,FALSE),"""")" Sheets("tempcashout2").Cells(8, 2).Value = Sheets("tempcashmove").Cells(I, 8).Value Sheets("tempcashout2").Cells(10, 2).FormulaR1C1 = "=R[-1]C-R[-2]C" Sheets("tempcashout2").Cells(11, 2).Value = Sheets("tempcashmove").Cells(I, 5).Value Sheets("tempcashmove").Cells(I, 15).Value = "ÇÞÝÇá" Sheets("tempcashmove").Cells(I, 16).Value = Sheets("tempcashout2").Cells(4, 2).Value End If Next I End Sub عند الغاء الشرط الكود يعمل والشرط ضروري هل يمكن مراجعة ما الخطأ في تركيبة الشرط Sub temp_2() If Sheets("tempcashmove").Cells(I, "o").Text = "p" And Sheets("tempcashmove").Cells(I, "p").Text = "no" Then End If

للرفع

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

الملف غير متاح وتظهر مشكلة كما بالردين السابقين

الاخوة الاعزاء لدي برنامج محاسبي متكامل صممته مستعينا بخبراتكم و ابداعاتكم واضفت اليه مؤخرا جزء للتعامل مع صرف العهد او الصرف المؤقت الغير نهائي و اضفت اليه ثلاثة شيتات للغرض ده شيت لعمل الاذن المؤقت نفسه وشيت للحركة لمتابعة موقف الاذن المؤقت واقفاله و الاخير لاقفال المؤقت وكنت اختبرت عمل البرنامج وفجاة وبدون اجراء اي تغيير توقف العمل واصبحت اضغط على الزر لتشغيل الكود ينفذ فقط خطوة مسح البيانات القديمة ويتوقف ولا اعرف السبب هل هناء خطا ما فكرة الاقفال تقوم على كتابة حرف p بجوار الاذن المراد اقفاله في شيت tempcashmove والضغط على اقفال نهائي لنقل بيانات الاذن من السطر ده الى شيت tempcashout2 ليعالج محاسبيا وفق ما رأيت مع مبلغ الصرف النهائي هل يمكن ان اطمع في مساعدتكم ومراجعة الكود لبحث اذا كان من الممكن تطويره او هناك صيغ افضل واكفأ او به اي خطأ test 4 help.rar

الاخوة الافاضل هل الطلب غير واضح

هل من مجيب للرفع ...

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

تم التعديل وتم الوصول للنتيجة مقبولة ارجو التكرم بمراجعة الكود وتصحيحة وهل يمكن ان تكون المرحل معادلة او رابط بدلا من قيمة ليتم التحديث دوما بمجرد التعديل على الصفحات التفصيلية مخزن مكونات إنتاج salim.rar

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