Ali Mohamed Ali

بسيطة وذلك من خلال هذا الكود .. سيتم تفعيله من أيقونة تصفير ,,, الموجودة بالصفحة الرئيسية 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

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

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

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

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

اللهم امين -بارك الله فيك استاذ مجدى وجزاك الله خير الثواب

أكرمك الله استاذ ماجد ... بارك الله فيك

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

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

تفضل يمكنك استخدام هذه الدالة المعرفة =RandomNumbers(1,60,0) Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer) Application.Volatile Randomize If IsMissing(Decimals) Or Decimals = 0 Then RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1) Else RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals) End If End Function عدم التكرار.xlsm

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

بعد اذن استاذنا الكريم محمد-يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =AND(COUNT($A2:$D2)<>0,A2=MAX($A2:$D2)) 111.xlsx

وعليكم السلام -يجب عليك التمهل .فانت لا تعرف مدى انشغال الأساتذة - تفضل تم التعديل فاتورة1.xlsm

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

تفضل كما بالصورة كى تعمل ... أو جرب هذا الكود Sub FFvba() Cells(1, 2) = "123-45-6789" Dim rng As Range Set rng = Range("B1:B4") rng.FlashFill End Sub

تفضل بعد اذن استاذنا محمد فؤاد Officena1.xlsx

تفضل تــم عمل المطلوب -فهذا الكود لزر الخروج من ملف الإكسيل بعد الحفظ Private Sub خروج_Click() ThisWorkbook.Saved = True Application.Quit End Sub كما تم عمل زر بكل صفحة للعودة للصفحة الرئيسية Main كل ما عليك هو الضغط على أيقونة Go To Sheets سيظهر لك مربع حوارى عليك بكتابة اسم الصفحة المراد الوصول لها من خلال الضغط على OK اكواد.xlsm

بارك الله فيك وجزاك الله خير الثواب

المعادلة تعمل تمام ... ولكن جربها هكذا =CEILING(ROUND(IF(BL10>10000,(AI10-10000)*0.003+(10000-50)*0.008,IF(AND(BL10>5000,BL10<=10000),(AI10-50)*0.008,IF(AND(BL10>1000,BL10<=5000),(AI10-50)*0.0075,IF(AND(BL10>500,BL10<=1000),(AI10-50)*0.007,IF(AND(BL10>250,BL10<=500),(AI10-50)*0.0065,IF(AND(BL10>50,BL10<=250),(AI10-50)*0.006,0)))))),2),0.05)