Ali Mohamed Ali

بارك الله فيك استاذنا ابراهيم لك منا كل المحبة والإحترام المعادلة تعمل بكل كفاءة وتم وضعها بالملف IRG OFISNA 21.xlsx

وعليكم السلام-ويتم ذلك بإستخدام هذه المعادلة =VLOOKUP($C8,INDIRECT("'"&$C$3&"'!"&"I9:U700"),13,0) 1العمال.rar

أحسنت أستاذ مجدى , عمل رائع .. اللهم تقبل منكم سائر الأعمال .. وكل عام وانتم بخير

وعليكم السلام-تفضل تم عمل قائمة منسدلة بأرقام الجلوس وبناءاً على اختيارك منها سيتم جلب بيانات الشهادات شهادات ,والراسبين 4 تعريق 1متغيرات.xlsm

يمكنك ذلك من خلال هذه المعادلة -وهذه معادلة مصفوفة (Ctrl+Shift+Enter) ويمكنك استخدامها مرة بالدولار ومرة أخرى بالريال .. وتم وضع المعادلة بالخلية D2 =SUMPRODUCT((الجدول1[عملة العرض]=$E$1)*(SUBTOTAL(109,OFFSET(I3,ROW(الجدول1[[المبلغ ]])-ROW(I3),0)))) معادلة Subtotal للخلايا المرئية فقط وبشرط.xlsx

وعليكم السلام -نعم يمكن ذلك بهذا الكود Sub Splitbook() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أو كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل طرح مشاركتك فبها طلبك كيفية فصل الشيتات الموجودة داخل الملف إلى ملفات منفصلة الملف به اربع صفحات.xlsm

فقط ..عليك استخدام هذه المعادلة بصفحة الإحصاء .. وضع ما شئت من الكلمات كما ترى =COUNTIF('ردود النموذج 1'!$B$2:$BX$220,B$1) بسيطة اذا كنت التريد العمل على عمود معين فقط فعليك بتغيير المدى بالمعادلة السابقة الى مدى اى عمود تريد فمثلاً العمود BV ... قستكون المعادلة كالتالى وبالتالى كده اكتملت كل الطلبات ويجب غلق المشاركة =COUNTIF('ردود النموذج 1'!$BV$2:$BV$220,B$1 23.xlsx

وعليكم السلام-طبعاً لا يمكن عمل هذا بهذه المعادلات -فقط يمكنك استخدام هذه المعادلة =SUMIFS('All Details'!$C$6:$C$1000,'All Details'!$A$6:$A$1000,$E$5,'All Details'!$B$6:$B$1000,$C7) تقفيل نهائي-فاضي-Index-1Match.xlsx

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذنا الكبير أبو خليل ... عمل رائع جعله الله فى ميزان حسناتك وتقبل الله منكم سائر الأعمال

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

السلام عليكم-تفضل يمكنك استخدام هذه المعادلة للأدنى =MINIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) وهذه للمتوسط =Iferror(AVERAGEIF(SHEET1!$C$10:$C$250,$A$1,SHEET1!E$10:E$250),"") وأخيراً معادلة الأعلى .. وبارك الله فيك =MAXIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) TEST568.xlsx

وعليكم السلام-لك ما طلبت wor2.xlsm

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

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

بسيطة وذلك من خلال هذا الكود .. سيتم تفعيله من أيقونة تصفير ,,, الموجودة بالصفحة الرئيسية Sub ResetForm_Click() Dim ws As Worksheet With Worksheets("الصندوق") .Range("C3:J40").ClearContents End With Worksheets("كشف عميل").Range("b4:c4").ClearContents With Worksheets("المبيعات") .Range("a3:g40").ClearContents End With Worksheets("كشف مورد").Range("b4:c4").ClearContents With Worksheets("المشتريات") .Range("a3:g40").ClearContents End With With Worksheets("العملاء الموردين") .Range("C2:C40").ClearContents .Range("E2:I40").ClearContents End With With Worksheets("أصناف المبيعات") .Range("a3:E200").ClearContents End With With Worksheets("اصناف المشتريات") .Range("a3:E200").ClearContents End With With Worksheets("الأصناف") .Range("B3:B40").ClearContents .Range("D3:I40").ClearContents End With With Worksheets("الموردين") .Range("A4:B200").ClearContents End With With Worksheets("شيكات") .Range("B4:B200").ClearContents End With End Sub Data_All1.xlsm

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك استاذنا الكريم وزادك الله من فضله

أحسنت استاذ ماجد عمل ممتاز بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل تم تنظيم الملف ... كل ما عليك اختيار كود الموظف من القائمة الموجودة بالخلية I1 وسيب الباقى على الإكسيل أما ملف Horizontal لجلب كل الموظفين بأسماء أصنافهم وأعدادها أفقياً بدون تكرار ex1.xlsx Horizontal.xlsm

وعليكم السلام-اجعل المعادلة هكذا =IF($M$1="زيت 20لتر",(SUMIFS($F$1:$F$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+SUMIFS($F$1:$F$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0)))/(20*SUMIFS($D$1:$D$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+IF($N$1="زيت 5لتر",$K$1*SUMIFS($D$1:$D$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))))) ورقة عمل1 Microsoft Excel جديد.xlsx

تفضل ما طلبت =IF(OR(AND(ISEVEN(A1),ISEVEN(B1)),AND(ISODD(A1),B1=9)),"غرفة 15",IF(AND(ISEVEN(A1),ISODD(B1)),"غرفة 13",IF(OR(AND(ISODD(A1),ISEVEN(B1)),AND(ISODD(A1),B1=7)),"غرفة 5","غرفة 20"))) جملة شرطيه1.xlsx

ممتاز استاذ محمد بارك الله فيك -عمل ممتاز وبالفعل سيفيد العديد من الأعضاء .. أكرمك الله والى النجاح والتقدم دائما لمنتدانا

رائع استاذ مجدى بارك الله فيك وتقبل الله منك سائر الأعمال

من فضلك طريقة الدخول الأن الى المنتدى بإميلك وليس بإسم المستخدم ... فإذا أردت الدخول فيجب عليك كتابة الإميل ... وشكراً