عبدالله باقشير

السلام عليكم تفضل المرفق المعادلة صيغة صفيف حدد الخلية أو نطاق الخلايا الذي يتضمن صيغة الصفيف، واضغط F2 لتحرير الصيغة، ثم اضغط CTRL+SHIFT+ENTER. ________________________________v2.rar

السلام عليكم بارك الله فيك اخي الكريم

السلام عليكم تعديل بسيط على كود ابو اسامة حفظه الله Private Sub Worksheet_Change(ByVal Target As Range) RR = Application.WorksheetFunction.Sum(Range("A1:A2")) If RR > 10 Then MsgBox ("المجموع تجاوز ال 10") Range("A2").ClearContents Else Cells(3, 1).Value = RR End If End Sub

السلام عليكم اقتراح ================================ طريقتك بحساب الخارج بفواتير المبيعات وكثرة المعادلات يسبب زيادة في حجم الملف بدون داعي واذا كررت الحساب بهذه الطريقة للداخل سيزيد الطين بله ================================ ما رايك بهذه الطريقة المستخدمة في المرفق _______3.rar

السلام عليكم بارك الله فيك

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

السلام عليكم بارك الله فيك اخي الكريم

السلام عليكم بعد اذن اخي ابو اسامة في طريقة اخرى: طبعا انت تستخدم الخلية G2 للدلالة على الشهر واسماء الشيتات بارقام الشهور والنطاق في جميع الشيتات الشهرية مصدر واحد وهو B6:J35 ادرج اسم : مثلا كما في المرفق استخدمت الاسم MySheetRange وادخل المعادلة التالية: =INDIRECT(CONCATENATE("'";aa!$G$2;"'!";"B";6;":";"J";35)) استخدم الاسم المدرج لتعريف النطاق كما في المعادلة ادناه =IF(C6<>"";VLOOKUP(aa!C6;MySheetRange;2;0);"") انظر الى المرفق _____.rar

السلام عليكم بارك الله فيك اخي الكريم

السلام عليكم الاخ الفاضل اكسيلجي _____________حفظه الله افتقدناك اخي / اضافتك رائعة وقد قمت بتعديل الكود لتجنب الاخطاء للترحيل: في حالة لا توجد البيانات الضرورية في الفاتورة Sub ترحيل() Dim M As Integer, LastRow As Integer, intNewOrderNo As Integer M = Application.CountA([B7:B18]) If M = 0 Or [C3] = "" Or [M3] = "" Or [M4] = "" Then MsgBox "EROOR": GoTo 1 KH = Array(Range("M3").Value, Range("M4").Value, Range("C3").Value) With Sheet2 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 .Cells(LastRow, 1).Resize(M, 3) = KH .Cells(LastRow, 4).Resize(M, 3) = Cells(7, 2).Resize(M, 3).Value .Cells(LastRow, 7).Resize(M, 9) = Cells(7, 6).Resize(M, 9).Value End With Range("B7:B12,D7:D12,H7:H12").ClearContents intNewOrderNo = Range("M3") + 1 Range("M3") = intNewOrderNo 1 End Sub

السلام عليكم من كان في خدمة الناس كان الله في خدمته توكل على الله فانت ناجح فيما تحتاج باذن واحد احد

السلام عليكم عفوا على تاخيري في الرد وذلك لانقطاع النت عندي خلال الايام الثلاثة الماضية حمد لله عل السلامة اخي ابو تامر طهور وذنب مغفور . ودمتم في حفظ الله

السلام عليكم حفظك الله اخي الكريم

السلام عليكم الشكر واصل للجميع =================== CAT: ايميلي مرفق تحت التوقيع خاصتي =================== تم اضافة تعديلات جديدة للطباعة في المرفق المشاركة 1 ودمتم في حفظ الله

السلام عليكم تفضل اخي على السريع Bu3mmar_test3.rar

السلام عليكم تفضل اخي المعادلة: IF(J9="";"";IF(OR(I9<$I$8;I9="غ");"راسب";IF(J9>100;"أكبر من 100 مرفوض";IF(J9>=85;"ممتاز";IF(J9>=75;"جيد جدا";IF(J9>=65;"جيد";IF(J9>=50;"مقبول";IF(J9>=0;"راسب";"أقل من صفر رقم مرفوض")))))))) تحياتي وشكري

السلام عليكم تفضل اخي المرفق ______________________________________________.rar

السلام عليكم التعديلات في المشاركة 1

السلام عليكم اخي نزار سليمان-----------------------اكرمه الله حفظك ربي و تفضل هديتي ملف اكسل بما خطته يديك ودمتم في حفظ الله __________________________________.rar

السلام عليكم اخي الساهر-----------------------اكرمه الله اقتراحك ممتاز ولكني اريد تصميم الدالة لتقوم هي بالمطلوب كاملا لاجل استخدامها في برنامج خبور المدرسي بدون اضافة اي اعمدة هي الى حد الان تقريبا منتهية فقط اريد اعمل حل في حالة وجود الحالات التي اشار اليها الاخ ناصر شكرا جزيلا اخي ================================ اخي ناصر سعيد-----------------------اكرمه الله شكرا اخي على هذه المعلومة جاري عمل اللازم ودمتم في حفظ الله

السلام عليكم تقبل اعتذاري اخي

السلام عليكم اخي نزار حفظه الله لقد اضفت الى الحالات TRUE ============================================ الاسماء المركبة والتي يكون الاسم المركب الثاني فيها "الدين" ============================================ و لكن اكيد في اسماء اخرى ايضا تحتاج تعريف المطلوب من اخواننا المدرسين كشف بالاسماء المركبة غير التي ضبطناها سابقا حتى نعمل قاعدة تشمل هذه الاسماء ان امكن وبرضوا ستظل قاعد استخدام FALSE قائمة للاحتمالات المستقبلية ساضيف الكود الجديد في اول مشاركة ايضا للفت الانتباه الكود الجديد ======= Function Father_Name(Name As Variant, KhBoolean As Boolean) Dim KhString, SearchChar, KhMyNo, KhMyNo1 Dim KhMyLen As Integer KhString = Name.Value KhString = Trim(KhString) KhMyLen = Len(KhString) SearchChar = " " If InStr(1, KhString, SearchChar, 1) = 0 Then Father_Name = "": GoTo 2 If Mid(KhString, 1, 3) = "عبد" Then GoTo 1 If KhBoolean Then KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 If Mid(KhString, KhMyNo, 4) = "الله" _ Or Mid(KhString, KhMyNo, 5) = "الدين" Then GoTo 1 Father_Name = Mid(KhString, KhMyNo, KhMyLen) Else 1 KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 KhMyNo1 = InStr(KhMyNo, KhString, SearchChar, 1) + 1 Father_Name = Mid(KhString, KhMyNo1, KhMyLen) End If 2 End Function ====================== مرفق ملف المشاركة رقم 1 ======================

السلام عليكم اخي : انظر الى : صلاح الدين الايوبي عندك موجود الصف 24

السلام عليكم الشكر واصل للجميع -------------حفظكم ربي ============================ الاخ والاستاذ الفاضل / ناصر سعيد المحترم هذه النقطة : ليست فيها اي مشكلة فلم استخدم تسمية الاوراق في الكود للدلالة على الورقة استخدمت ( ورقة1) ,( ورقة2) اي اسم كود الورقة code.Name غير مثل ما تحب باقي النقاط ساوافيك بالرد لاحقا

السلام عليكم الاخ الفاضل ابوعبدالله الجزيرة _____________حفظه الله بارك الله فيك واجزل لك العطاء تحياتي وشكري