نجوم المشاركات

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

انضم إليك اخى بتقديم الشكر وخالص الدعاء للأستاذ الكريم د.كاف يار زاده الله علما يارب احترامى

اضف ايضا تلك الطريقة المتواضعة الى مكتبتك

Can you attach your file to have a look at the problem? And what office version do you use

تفضل أخي الكريم تم وضع معادلة التصفية بشرطين =IFERROR(INDEX(data!B$2:B$19,SMALL(IF(data!$C$2:$C$19="معلم",ROW($1:$18),IF(data!$C$2:$C$19="اداريين وعمال",ROW($1:$18))),ROW()-1)),"") ينبغي الانتباه إلى أنه في حالة تحقق الشرط نستخدم دالة row من 1 إلى عدد الصفوف المستخدمة في البحث ونستعمل في الأخير row - عدد الصفوف فوق صف البداية بالتوفيق التصفية بالمعادلات بشرطين.xlsx

هذا جزء من برنامجي ..... ka_stu.accdb

This formula returns only the results that match the criteria and not all the dates =TEXTJOIN("-",TRUE,IF(الحركة!$A$2:$A$10=A2,الحركة!$F$2:$F$10,""))

Using formulas ------------------- Column F Formula =TEXTJOIN("-",TRUE,IF(الحركة!$A$2:$A$10=A2,الحركة!$F$2:$F$10,"")) Column G Formula =IFERROR(LOOKUP(2,1/(الحركة!$A$2:$A$10=A2),الحركة!$J$2:$J$10),"") Using VBA -------------- Sub Test() Dim ws As Worksheet, sh As Worksheet, rng As Range, n As Long, r As Long Set ws = ThisWorkbook.Worksheets(2) Set sh = ThisWorkbook.Worksheets(3) Set rng = ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row) n = sh.Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To n sh.Cells(r, 6).Value = MyVLOOKUP(sh.Cells(r, 1).Value, rng, 6, "-") sh.Cells(r, 7).Value = LookupLast(sh.Cells(r, 1).Value, rng, 10) Next r End Sub Function MyVLOOKUP(ByVal myVal, ByVal rng As Range, ByVal colRef As Long, ByVal myStr As String) If Not IsNumeric(myVal) Then myVal = Chr(34) & myVal & Chr(34) With rng MyVLOOKUP = Join(Filter(.Parent.Evaluate("TRANSPOSE(IF(" & .Columns(1).Address & "=" & myVal & "," & .Columns(colRef).Address & "))"), False, 0), myStr) End With End Function Function LookupLast(ByVal txt As String, ByVal rng As Range, ByVal col As Integer) Dim i As Long For i = rng.Columns(1).Cells.Count To 1 Step -1 If txt = rng.Cells(i, 1) Then LookupLast = rng.Cells(i, col): Exit Function Next i End Function

السلام عليكم اخوانى الافاضل الكرام احبائى لدى فورم اعدادات السنة المالية اسجل فيه بداية السنة المالية ونهايتها ولدى فورم للبحث والتعديل به كومبو بوكس يعرض السنة المالية المشكلة انه يعرض اخر سنة مالية مسجلة ويعرض كل السنين المسجلة بس السنة التى تكون فوكس هى اخر سنة مسجلة لذا يجب ان اكتب فى فورم اعداد السنة المالية اخر حاجة السنة المالية الحالية لكى تعرض فى هذا الكومبو بوكس ما احتاجه هو ان اكتب فى فورم اعداد السنة المالية اى عدد من السنين المالية بس ما يكون فوكس فى الكومبو بوكس هو السنة المالية للسنة الحالية يعنى كما بالصورة انا كاتب السنة المالية 2022 و2023 وبم ان 2023 هى اخر سنة مسجلة فى فورم اعداد السنة المالية هى التى تكون فوكس ما اريده ان يتم عرض السنة الحالية 2022 فوكس حتى تاريخ نهاية السنة المالية المسجل بفورم اعداد السنة المالية وهو30-6-2021 ولو كنا من اهل الدنيا عندما يأتى تاريخ بداية السنة المالية2023 وهو 1/7/2022هى التى تعرض فوكس فى الكومبو بوكس2023 بارك الله فيكم اخوانى الاساتذة الافاضل احترامى DATA1041.mdb

عليكم السلام استاذ ابو الحسن تفضل هذه المحاولة ارجو ان تكون موفقة DATA1041-1.rar

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

الحمد لله الذي هدانا لهذا تم استخدام معادلة تؤدي نفس الغرض للاصدارات السابقة بالتوفيق كورسات مقترحة2.xlsx

بعض ما عندكم أستاذ @Ali Mohamed Ali شكرا لمرورك العطر

What about the VBA code? Is it working well or not

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بالصحه والعافية\ اخواني وخواتي بالمنتدى أسال الله عز وجل بأن يكون الجميع بصحة وعافيه "" يُقال أن من لا يشكر الناس لا يشكر الله"" عمل الخير هو من الأخلاق الحميدة و الأفعال المحمودة في كل مكان وزمان فعندما يفعل الإنسان الخير فإنّه يأخذ الثواب والأجر من الله تعالى وفعل الخير مرتبط برضى الله والفوز بالجنة بالآخرة ويكفيه في الدنيا من ذلك حب الآخرين وكسبه احترامهم له أستاذنا الفاضل : د.كاف يار أتقدم لك بكل التقدير والثناء بعدد قطرات المطر "الان تمطر عندنا" وشذى العطر على كل ما قدمته في المنتدى الرائع لجميع الاعضاء والزوار وأنا على رأسهم من اسهامات يعجز عنها الشكر ولا ننسى كل الاخوه في المنتدى فهم ايضا لا يبخلون علينا بما عندهم من معرفه رغم انشغالاتهم اليوميه وتقبلوا تحياتنا,,,

احسنت استاذ @husamwahabبصراحة كانت فكرتي هو تحديد تاريخ التسديد وعند تجاوزه ب5 ايام تظهر له رسالة تنبيه حيث ليس من المعقول بعد تاريخ اخر تسديد له بخمسة ايام يظهر انه غير مسدد! اقترح (وهو الماشي) ان يكون التسديد كل شهر واذا تجاوزه يظهر التنبيه تحياتي لك

جزاك الله خيرا استاذ محمد

وهذا التعديل بالنسبة للاضاقة في نفس السطر Database5.accdb

يمكنك تغيير هذا السطر Range("H" & lrow).Value = TextBox4.Value إلى التالي If TextBox3 <> 0 Then Range("H" & lrow).Value = TextBox4.Value وهو لوضع الشرط المطلوب بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية F3 =INDEX($H$3:$H$7,MATCH(E3,$G$3:$G$7,0)) مع نسخ المعادلة لأسفل بالتوفيق

تفضل اخي الكريم هل هذا هو المطلوب. Database5.accdb

فعلا منتدى متميز بالقائمين عليه بارك الله فيك لسرعه الرد بالمطلوب

هل جربت المرفق هذا

@أ / محمد صالح لكم جزيل الشكر والعرفان وزادكم الله من علمه وبارك فيكم وجعله فى ميزان حسناتكم وبارك في ذرياتكم

تفضل أخي الكريم يوجد معادلة في عمود 200 ومعادلة أخرى في باقي الأعمدة تم تنسيق الملف بصورة أكثر احترافية تمكن من الطباعة بالتوفيق توزيع المبالغ حسب الفئات المتاحة.xlsx

تفضل أخي الكريم يوجد معادلات من العمود AG للحساب بمنتهى الدقة وبها الرقم العشري والسالب بحيث لا يتبقي شيء وتم تحويلها إلى كود لأن استعمال المعادلات سينتج عنه خطأ المرجع الدائري circular reference بعد استبعاد الرقم العشري والسالب من الكود باستعمال دالة round تبقى بعض الأرقام غير موزعة أو الباقي سالب أحيانا بالتوفيق توزيع الرصيد اليومى.xlsb

...... عذراَ لا يمكن ان يكون الرصيد رقما عشريا او سالباً لان انا المصنع المنتج ولا يمكن ان يتم توزيع رصيد ليس له انتاج تام فالذى يتم توزيعه هو المنتج التام فقط على المناطق اسف على الايطاله وشكرا لوقت حضرتك

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

شكرا لردكم يا استاذنا نعم اريد ان تتساوى النسب او لتكون اقرب بفرق بسيط لانى بوزع رصيد الصنف على المناطق طبقاً للنسب الموجودة - والنسبة الموجودة هى نسبة محقق المنطقة من هدفها فى الصنف ( فى العواميد المخفيه ) والنسبة دى تختلف من منطقة لمنطقة طبقا لهدفها ومحققها فى الصنف لكن فى توزيع الرصيد اليومى لشحن هذه الاصناف يجب ان اوزعها بنسبة متساوية طبقا لنسبة المحقق كما هو فى توزيع اول صنف Joy 120 S.P

الشكر لله خالص دعواتي بالتوفيق

عاجز عن الشكر لحضرتك

معالى الدكتور حل حضرتك رووووووووووووعه جزاكم الله خيرا

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

قبل البدأ في البرنامج ..... ابحث في المنتدى تجد العديد والعديد من مثل تلك البرامج ..... حتى تستطيع جمع افكارك .... ثم ابدأ بالفكرة .... وحال توقفك في نقطة ... ممكن تسأل عنها .

هل تقصد تساوي عمود النسبة؟ لأني أرى القيم في عمود الرصيد غير متساوية وهل يمكن أن يكون الرصيد رقما عشريا أو سالبا؟ كنوع من الدقة

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

شكرا لك أخي صافي رزقنا الله وإياك شربة من ماء الجنة الصافي الحمد لله أخي عصام أنك وزجدت ما تبحث عنه هنا وإياك أخي الكريم

حياك الله سعيد بمرورك أخي الفاضل

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

آمين أخي خالد خلّدك الله في جناته والله عندما أراك أو أقرأ كلماتك أتمنى زيارة صعيد مصر المليء بالناس الطيبين

شكر الله لك أخي الكريم سعيد بمرورك العطر جعلني الله عند حسن ظنكم

وإياك أخي الكريم نفعنا الله وإياك بما علمنا وعلمنا ما ينفعنا

أعتقد أن المشكلة لديكما واحدة وهي حماية الملف بكلمة مرور اثناء حفظ الملف من خلال الضغط على قائمة أداوات في نافذة الحفظ وهذه الحماية لا تنفع معها هذه الإضافة وهي حقا غير مجانية أما كلمة المرور التي تفكها الإضافة هي كلمات مرور المصنف الناتجة عن الضغط على حماية المصنف protect workbook أو حماية ورقة العمل protect worksheet شاكر لمروركم الكريم

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

وإياك أخي الكريم عمر أطال الله عمرك في الخير

هل شغلت النموذج وضغط على الزر وفتحت الجدول B ولم تجد البيانات فيها .... اضغط الزر والجدول مغلق وليس مفتوح .... جرب ووافينا