ابراهيم الحداد

السلام عليكم ورحمة الله اكتب هذا الكود فى موديول واربطه بذر واضغط عليه كلما اردت ذلك Sub Empty_Row() For R = 5 To Cells(Rows.Count, 3).End(xlUp).Row If Range("C" & R).Value = "" Then Range("C" & R & ":F" & R).Value = Range("C" & R + 1 & ":F" & R + 1).Value Range("C" & R + 1 & ":F" & R + 1).ClearContents End If Next End Sub

السلام عليكم ورحمة الله وبركاته اكتب N=N+2 بدلا من N=N+1 ثم اضف Range("A" & N) = (N - 11) / 2 قبل عبارة End With

السلام عليكم ورحمة الله وبركاته اكتب هذه المعادلة فى الخلية H3 =IF(OR($D3:$G3="ح");"ح";IF(OR($D3:$G3="غ");"غ";SUM($D3:$G3))) ثم اضغط على CRTL + ALT + SHIFT ثم اسحب نزولا

الحمد لله الذى تتم بنعمته الصالحات

السلام عليكم ورحمة الله ارجو من الله عز وجل ان يكون هو ذا المراد تمهيد.rar

اعتذر على التأخير بسبب مشكلة في الدخول الى الموقع افضل مثال.rar

حدد المدى ( $D$6:$AB$15 ) ثم من التنسيق الشرطى اكتب هذه المعادلة ( =AND(D$5>=$B6;D$5<=$C6)) واختار اللون الذى ترغبه واضغط موافق

السلام عليكم ورحمة الله اليك الحل باذن الله شيت كنترول الصف الثاني والثالث الإبتدائي.rar

السلام عليكم ورحمة الله اكتب تلك المعادلة فى الخلية التتود ظهور الناتج بها =(SQRT(A2)-1)^2

السلام عليكم ورحمة الله وبركاته اكتب هذه المعادلة فى الخلية J15 =IF(OR(H15>=20);"ناجح";IF(AND(H15<20;I15<20);"راسب";IF(AND(H15<20;I15>=20);"ناجح";"ناجح")))

السلام عليكم ورحمة الله وبركاته اليك الحل جدول مرتبات الموظف.rar

Sub Result1() LR = Cells(Rows.Count, 4).End(xlUp).Row For R = 6 To LR For c = 5 To 10 For F = 22 To 27 x = "" If Cells(R, c) < 5 Then x = x & Cells(4, c) Cells(R, F) = x Else Cells(R, F) = "" End If c = c + 1 Next Next Next Call Result2 End Sub Sub Result2() LR = Cells(Rows.Count, 4).End(xlUp).Row For R = 6 To LR CA = WorksheetFunction.CountA(Range("V" & R & ":Y" & R)) If CA = 0 Then Cells(R, "M") = "ناجح" ElseIf CA > 3 Then Cells(R, "M") = "راسب" ElseIf CA = 1 Then Cells(R, "M") = "مكمل بدرس" ElseIf CA = 2 Then Cells(R, "M") = "مكمل بدرسين" ElseIf CA = 3 Then Cells(R, "M") = "مكمل بثلاث دروس" End If Next End Sub السلام عليكم ورحمة الله اكتب هذين الكودين وخصص لهما زر

السلام عليكم و رحمة الله ان شاء الله يكون هذا هو المطلوب لا تنسى ان ضغط CTRL + SHIFT + ENTER = INDEX($K$4:$N$13;MATCH((B2&F2);$K$4:$K$13&$L$4:$L$13;1);MATCH(D2;$K$3:$N$3;0))

=IF($B2<=$K$3:$K$13;VLOOKUP($F2;$L$4:$N$13;MATCH($D2;$L$3:$N$3;0);0);"") السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية H2 واسحب نزولا ولا تنسى ان تضغط CTRL + SHIFT+ ENTER

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

السلام عليكم ورحمة الله تقبل الله دعاءك وفرج كربك وسدد خطاك وبلغك مناك اللهم آمين رب العالمين

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

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية C8 =SUMIF(الدفعات!$N$2:$W$4;J2;الدفعات!$C$2:$M$4)

=IFERROR(INDEX(Table1[القيمة];MATCH(A2;Table1[[المخالفة ]];0);1);"") السلام عليكم ورحمة الله اكتب هذه المعادلة و اسحب نزولا

السلام عليكم ورحمة الله بارك الله فيك و امد الله عمرك بئر علم لن ينضب ابدا بأذن الله

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية AY4 واسحب نزولا =IF(ISERROR(SMALL({18,20,22,24,26};ROW(A1))>26);OFFSET($AY3;-4;0);SMALL({18,20,22,24,26};ROW(A1)))

السلام عليكم ورحمة الله اعمالك دائما فى غاية الروعة بارك الله فيك

السلام عليكم ورحمة الله بارك الله فيك اخى الحبيب تقديرى لك يزيد يوما بعد يوم بارك الله فيك

السلام عليكم ورحمة الله تفضل اخى الحبيب رفع المكرر من الجدول.rar

السلام عليكم ورحمة الله تحياتى لابداعاتك المتواصلة اعز الله اجرك