هشام شلبى

السلام عليكم ===== اخى المعتصم بارك الله فيك اخى السائل لاثراء الحل ضع هذه الصيغة فى L3 =IF(AND(E3>=F3;G3>=100;G3<=105);105;"")&IF(AND(E3>=F3;G3>105;G3<=115);110;"")&IF(AND(E3>=F3;G3>115;G3<=130);115;"")&IF(AND(E3>=F3;G3>130);125;"") تبدو لك الصيغة طويلة ولكنها تكرار للصيغة IF(AND(E3>=F3;G3>=100;G3<=105);105;"") شاهد المرفق رواتب جديد0.rar

السلام عليكم ===== الموضوع رقم (24 ) ======

السلام عليكم ===== الموضوع رقم (23) ======

السلام عليكم ===== الموضوع رقم (22 ) ======

السلام عليكم ===== الموضوع رقم (21 ) ====== عنوان الموضوع الاصلى

السلام عليكم ===== الموضوع رقم (20 ) ====== عنوان الموضوع الاصلى

السلام عليكم ===== اخى الحبيب بن عليه " واحشنى جدا" بارك الله فيك وكل عام وانت بالف صحة وخير الاخ السائل ضع هذه الصيغة فى الخلية J3 ليعطيك نصف المدة فى خلية واحدة =DATEDIF(DATE(I3;H3;G3);DATE(F3;E3;D3);"y")&" years "&DATEDIF(DATE(I3;H3;G3);DATE(F3;E3;D3);"ym")&" months "&DATEDIF(DATE(I3;H3;G3);DATE(F3;E3;D3);"md") &" days" شاهد المرفق احتساب نصف المده1.rar

السلام عليكم ===== الموضوع رقم (19) ====== http://www.youtube.com/watch?v=W8trGA5bjBA&feature=related

السلام عليكم ===== الموضوع رقم( 18 ) ====== عنوان الموضوع الاصلى

السلام عليكم ===== اخى ياسر صدقت وصدق احساسك اشكرك على ذوقك الرفيع فى اختيار موضوعك وكلماتك

السلام عليكم ===== اخى عبدالله بارك الله فيك ممكن وضع الصيغة الاتية فى E2 لتعطيك الناتج مباشرة =IF(B2="رصيد أول";D2;IF(AND(D2="";C2="");0;D2-C2+E1))

السلام عليكم ===== اخى المعتصم بارك الله فيك

السلام عليكم ===== الموضوع رفم (17) ====== عنوان الموضوع الاصلى

السلام عليكم ===== الموضوع رقم(16) ======

السلام عليكم ===== الموضوع رقم (15) ======

السلام عليكم ===== الاخ العزيز اليك شرح فيديو لطريق عمل المدى بصوت الاخ الحبيب خبور شرح عمل مدى فى الاكسيل1.rar

السلام عليكم ===== الاخ العزيز شاهد المرفق فيه شرح فيديو لطريقة ازالة ما تريد HHH.rar

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

السلام عليكم ===== اخى الحبيب ابو عبدالله ولا كلمة تانى " انت قفلتها " فكرة روعة بارك الله فيك بس اسمحلى اضع حل اخر لمزيد من اثراء الحل سنضع الكود التالى ليقوم اتوماتيكيا بحذف القيم فى وقت كتابتها Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False If Left(Target, 3) = "333" Then Rows(Target.Row).Delete .EnableEvents = True .ScreenUpdating = True End With End Sub HH.rar

السلام عليكم ===== اخى الحبيب هديتك مقبولة وعذرا مقبول تقبل الله منا ومنك الصيام والقيام

السلام عليكم ===== بارك الله فيكم حلول كلها مميزة وجميلة ولمزيد من اثراء الموضوع سنضع الكود التالى Option Explicit Sub Delete333Rows() Dim LR As Long, a As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 1).End(xlUp).Row For a = LR To 1 Step -1 If Left(Cells(a, 1), 3) = "333" Then Rows(a).Delete Next a Application.ScreenUpdating = True End Sub من الافضل تجربة العمل قبل الاعتماد عليه حتى لا تفقد ملفك New ورقة عمل Microsoft Excel.rar

السلام عليكم ===== اخى شمس الثورة كل عام وانت بخير اكثر من الايضاح

السلام عليكم ===== اخى husas707 شاهد المرفق Book1.rar

السلام عليكم ===== اخى الحبيب:: هشام "ابو عبدالله" احمد الله على سلامتك " يا عم الحج "