ابو اسامة العينبوسي

السلام عليكم اجعل صف المجاميع اسفل صف العناوين و جمد من الصف الثانى

السلام عليكم ملفين واحد لتلوين الاطار و الاخر لتلوين الخلفيه HILITE.rar HILITE2.rar

السلام عليكم unhide.rar

السلام عليكم Classeur1.rar

السلام عليكم هنا مثال اعدله لك كما تشاء summ.rar

السلام عليكم عظم الله اجركم و رحم فقيدكم

السلام عليكم date.rar

السلام عليكم sum & if هنا هي عباره عن صفيف (array) يلزم ادخالها الضغط على مفاتيح ctrl+shift+enter معا

السلام عليكم من المستحيل عمل ذلك لانها منطقيا تقول انها تساوى d5 +d6 فكيف تريدها ان تعطى شيئا غير ذلك احذف المدخلات تنحذف المخرجات

السلام عليكم Book1.rar

Private Sub Workbook_Open() If Sheets("aa").Range("b1") <> Sheets("bb").Range("b1") _ And Sheets("aa").Range("b2") <> Sheets("bb").Range("b2") _ And Sheets("aa").Range("b3") <> Sheets("bb").Range("b2") _ And Sheets("aa").Range("b4") <> Sheets("aa").Range("b4") _ Then Application.ActiveWorkbook.Close savechanges = yes End If End Sub

السلام عليكم Job.rar

=SUM(IF(D5:D14=C5,IF(H5:H14=H4,F5:F14)))

=SUM(IF(D5:D14=C5,IF(H5:H14=H4,F5:F14)))

السلام عليكم بالكود اذا اردت تعديل حتى لا ينطبق الشرط على خلايا العمود b الفارغه اخبرنى الكود فى sheet 2 omarr.rar

السلام عليكم لو تتكرم بوضع ملف

السلام عليكم ممكن تدرج ملف

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

السلام عليكم ______.rar

السلام عليكم جرب التالى و اخبرنى ______.rar

السلام عليكم احذف هذا السطر من الكود Sheets("&aelig;&Ntilde;&THORN;&Eacute;1").Cells(i, 3).Value = Sheets("comps").Cells(i, ii).Value

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

السلام عليكم "من لم يهتم بامر المسلمين فليس منهم" فحديث: من لم يهتم بأمر المسلمين فليس منهم. رواه الحاكم في مستدركه والطبراني في المعجم الأوسط عن حذيفة رضي الله عنه، عن النبي صلى الله عليه وسلم بهذا اللفظ. وقال فيه الألباني في السلسلة الضعيفة الجزء الأول صفحة 48: ضعيف جداً. والله أعلم. فمن واجبنا ان نهتم بامر اخواانا و مشرفينا الاعزاء : هادى سالم ابو عبد الله (اكسلجى) اسلام (eslam) نسال الله ان تكونوا بخير و لعل المانع خيرا اخوكم ابو اسامة

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ii = Range("f1").Value For i = 3 To 66 Sheets("&aelig;&Ntilde;&THORN;&Eacute;1").Cells(i, 3).Value = Sheets("comps").Cells(i, ii).Value Sheets("&aelig;&Ntilde;&THORN;&Eacute;1").Cells(i, 1).Value = Sheets("comps").Cells(i, ii).Value Next Application.EnableEvents = True End Sub هذه "ورقة1" ("&aelig;&Ntilde;&THORN;&Eacute;1"

السلام عليكم الكود بطيء بسبب المعادلات _______________.rar