Ali Mohamed Ali

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

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

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

وعليكم السلام-تفضل Option Explicit Private IsArrow As Boolean Private Sub ComboBox1_Change() Dim i As Long If Not IsArrow Then With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown If Len(.Text) Then For i = .ListCount - 1 To 0 Step -1 If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i Next .DropDown End If End With End If End Sub Private Sub ComboBox1_DropButtonClick() With Me.ComboBox1 .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value .ListRows = Application.WorksheetFunction.Min(6, .ListCount) .DropDown End With End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Debug.Print Time; "KeyDown"; KeyCode; ComboBox1.ListIndex; ComboBox1.ListCount, ComboBox1.Value IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown) If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value ElseIf KeyCode = vbKeyTab Then With Me.ComboBox1 If .ListIndex = -1 Then .Value = .List(0) Else .Value = .List(.ListIndex) End If End With KeyCode = vbKeyReturn End If End Sub القائمة بالكومبوبوكس1.xlsm

عمل رائع جزاك الله خير الثواب استاذ مجدى

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

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

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

وعليكم السلام-اجعل المعادلة هكذا =SUMIFS(T_Op[المبلغ],T_Op[الحساب],"زبائن",T_Op[التاريخ],">"&$I$3) 1استفسار الشرطية متعددة الشروط مع التاريخ.xlsx

موضوع قيم بارك الله فيك وزادك الله من فضله

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

تفضل كان عليك بدء المشاركة بالتحية ... السلام عليكم , يمكنك استخدام هذه المعادلة ,كما تم عمل التنسيق الشرطى اللازم كما تريد اذا كان هناك اختلاف - كما تـــم ضبط الملف والغاء وحذف الخلايا المدمجة بالجدول (على الرغم ان هذا أتعبنى كثيراً الى ان تم على خير) فهذا يصعب من أعمال اى شيء على الإكسيل ..ورجاءاً لا تقوم بعمل اى خلايا مدمجة بعد ذلك فى ملفاتك , وذلك حتى لا تجعل الجميع يبتعد عن مساعدتك فى طلبك لأنه سيأخذ ويستغرق وقت طويل منهم =IF(OR(SUM(K16:N16)<>$O16,SUM(F16:J16)<>$O16,SUM(B16:E16)<>$O16),"هناك اختلاف","") 1OutPatientStatistic.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(YEAR($B4)<YEAR(Table1[[#Headers],[Jan-22]]),1,IF(AND(YEAR($B4)=2022,MONTH(Table1[[#Headers],[Jan-22]])>=MONTH($B4)),1,"")) 1مقارنة التاريخ.xlsx

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

وذلك بسببك لأنك لاغى ذلك بالكود وذلك بالأسطر الموجودة باللون الأخضر فعليك بحذف الفاصلة العليا على يسار كلمة Me من جميع الأسطر ليصبح الكود كالتالى : Me.ListBox1.AddItem Me.TextBox4.Value Me.ListBox1.List(al, 1) = Me.TextBox5.Value Me.ListBox1.List(al, 2) = Me.TextBox6.Value Me.ListBox1.List(al, 3) = Me.TextBox7.Value Me.ListBox1.List(al, 4) = Me.TextBox8.Value Me.ListBox1.List(al, 5) = Me.TextBox9.Value Me.ListBox1.List(al, 6) = Me.TextBox10.Value Me.ListBox1.List(al, 7) = Me.TextBox11.Value Me.ListBox1.List(al, 8) = Me.TextBox12.Value Me.ListBox1.List(al, 9) = Me.TextBox13.Value 1dwork.xlsm

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

ممتاز استاذ مجدى جزاك الله خير الثواب , اللهم وسع فى رزقك

السلام عليكم -لابد من بدء اى مشاركة بالتحية ... تفضل لك ما طلبت ولكن عند ادخال الوقت يجب عليك مراعاة كتابته كما تم تعديله بالملف .. وشكرا معرفة فرق الوقت لكل سيارة1.xlsx

وعليكم السلام-من فضلك عليك بمعرفة ودراسة المعادلة بتفسك وان لا تغير المدى بها وعليك ان تتأكد انها تبدأ من الصف الرابع وليس العاشر كما قمت انت بتغييرها.وشكراً =SUMIF(مشتريات!$C$4:$C$585,مخزن!A3,مشتريات!$D$4:$D$585)-SUMIF(مبيعات!$C$4:$C$582,مخزن!A3,مبيعات!$D$4:$D$582) اسعار المنتجات فاتورة2.xls

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

بارك الله فى جهودك استاذ أحمد ملف رائع وتشرفنا بوجود حضرتك معنا بالمنتدى ونورتنا

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

وعليكم السلام-تفضل لك ما طلبت ... على الرغم ان ما طلبته ليس بالسهل او الهين فهى أكواد فورم كاملة لم تقم بعمل اى كود منها ,, ويجب عليك استكمال أسعار المنتجات لحسن عمل الفورم !!!! ثلاث قوائم.xlsm

السلام عليكم -يمكنك استخدام هذه المعادلة لذلك =SUMIFS($D$6:$D$200,$C$6:$C$200,$G7,$B$6:$B$200,">="&$H$6,$B$6:$B$200,"<="&$I$6) Sumifs.xls

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