أ / محمد صالح

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

تفضل أخي الكريم تم وضع معادلة التصفية بشرطين =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

جميعا بإذن الله

يمكنك تغيير هذا السطر 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)) مع نسخ المعادلة لأسفل بالتوفيق

بارك الله لك جميعا بإذن الله تعالى

آمين ولك مثل ما دعوت وزيادة بإذن الله

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

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

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

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

يفضل البدء بموضوع جديد بعنوان جديد مادام المطلوب مختلف هذا الموضوع يحتوي على ثلاثة مطلوبات أو أربعة على كل حال ضع قبل نهاية الإجراء مباشرة Me.TextBox2 = i2 بالتوفيق

بما ان الضرب في 24 يجلب التاريخ مع الوقت وليس الوقت فقط نجرب استعمال دالة hour الاضافي: hour(000) حيث 000 هي المعادلة القديمة بالتوفيق

ربما يفيدك هذا الفيديو عن الحساب التكراري بالتوفيق

جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

جميعا بإذن الله

إن شاء الله يكون هذا هو المطلوب تم إخراج الترحيل لشيت حجوزات من شرط عدم فراغ txt3 ' ليدجر - حجوزات ترحيل Application.ScreenUpdating = FALSE Dim answer As Integer answer = MsgBox("ترغب فى ادخال هذه البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "Confirmation") If answer = vbYes Then If Txt3 <> "" Then Dim rng1 As Range Dim str_search As String str_search = Txt3.Value Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole) Dim row_number As Long row_number = rng1.Row Dim lastcolumn As Long lastcolumn = IIf(Sheets("ليدجر").Range("lu" & row_number) = "", 333, Sheets("ليدجر").Range("lu" & row_number).End(xlToRight).Column + 1) Sheets("ليدجر").Cells(row_number, lastcolumn).Value = C3.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 1).Value = CDate(C4) Sheets("ليدجر").Cells(row_number, lastcolumn + 2).Value = C5.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 3).Value = C6.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 4).Value = C7.Value 'Sheets("ليدجر").Select Cells(row_number, lastcolumn).Select End If Dim lastrow As Long lastrow = ThisWorkbook.Sheets("حجوزات").Range("D100000").End(xlUp).Row lastrow = lastrow + 1 With ThisWorkbook.Sheets("حجوزات") .Range("H" & lastrow).Value = Txt50.Value .Range("I" & lastrow).Value = Txt3.Value .Range("D" & lastrow).Value = TXT1.Value .Range("G" & lastrow).Value = CDate(TXT2) .Range("F" & lastrow).Value = Txt8.Value .Range("K" & lastrow).Value = Txt18.Value .Range("M" & lastrow).Value = Txt28.Value .Range("N" & lastrow).Value = Txt31.Value 'كود مسح البيانات Me.Txt50.Value = "" Me.Txt3.Value = "" Me.TXT1.Value = "" Me.TXT2.Value = "" Me.Txt8.Value = "" Me.Txt18.Value = "" Me.Txt28.Value = "" Me.Txt31.Value = "" End With End If Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" بالتوفيق

سلمكم الله من كل سوء

عليكم السلام السطر الذي يقوم بالطباعة هو sh.Range("a1:q30").PrintOutt نقوم بتغييره إلى sh.Range("a1:q30").PrintOutt Copies:=2 بالتوفيق

جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

بإذن الله يكون هذا هو المطلوب يمكنك استعمال هذه المعادلة في الخلية J3 =MAXIFS('m cost'!$D$3:$D$10,'m cost'!$A$3:$A$10,B3,'m cost'!$B$3:$B$10,"<="&S3,'m cost'!$C$3:$C$10,"<="&R3) بالتوفيق

لا أعتقد أن هذا هو المطلوب @د.كاف يار لأن النتيجة المطلوبة على. ترتيب السجلات هي 5 0 0 8 4 والحمد لله تم تحققها في معادلتي

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

يمكنك استعمال هذه المعادلة مع تغيير تنسيق الحقل إلى hh:mm الاضافى: IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف])) إن شاء اللّه هي المطلوب حيث تراعي إذا كان الانصراف قبل أو بعد بداية الانصراف حتى بعد منتصف الليل وإذا كنت تريد الحصول على رقم صحيح فيمكنك استعمال هذه المعادلة بدون تنسيق الحقل الاضافى: hour(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف]))) بالتوفيق