أبو حنــــين

السلام عليكم الخلية F27 مكتوب فيها : عربي الخلية G27 مكتوب فيها : داسات الخلية H27 مكتوب فيها : رياضيات استعمل احدى الطريقتين 1 عربي =COUNTIF($G$9:$G$22;$F$27) ------------------------------------------------- داسات =COUNTIFS($G$9:$G$22;$G$27) -------------------------------------------------- رياضيات =COUNTIFS($G$9:$G$22;$H$27) ------------------------------------------------ او استعمل =COUNTIF($G$9:$G$22;$F$27) =COUNTIF($G$9:$G$22;$G$27) =COUNTIF($G$9:$G$22;$H$27)

جزاكم الله خيرا على الكلمات الطيبة طيبة صاحبها و إني في انتظار ملاحظاتكم بعد اطلاعكم على الملف فإن استطعت الرد عليها فذلك مبتغانا و إن لم أستطع فالمنتدى يزخر بالكثير من العمالقة كل حسب وقته حفظكم الله و رعاكم

السلام عليكم استعمل هذه الدالة =IF(ISNA(LOOKUP(2;1/((B2:B5=G1)*(C2:C5=H1)*(D2:D5=I1));E2:E5));"غير موجود";(LOOKUP(2;1/((B2:B5=G1)*(C2:C5=H1)*(D2:D5=I1));E2:E5)))

السلام عليكم و رحمة الله اخي سعيد اعتذر كثيرا لوقوع مشكل في حاسوبي ففقدت الكثير من الاشياء و لم اتمكن من الرد بالنسبة لسؤالكم قمت اولا بتصحيح المعادلة التي كانت موجودة في شيت2 المعادلة الاصلية =OFFSET(DATA!C$2;MATCH(SMALL(DATA!A$2:A$41;ROW()-ROW(DATA!G$2)+1);DATA!A$2:A$41;0)-1;0) =OFFSET(DATA!D$2;MATCH(SMALL(DATA!A$2:A$41;ROW()-ROW(DATA!P$2)+1);DATA!A$2:A$41;0)-1;0) غيرتها بهذه المعادلات =IFERROR(OFFSET(DATA!C$2;MATCH(SMALL(DATA!A$2:A$1000;ROW()-ROW(DATA!G$2)+1);DATA!A$2:A$1000;0)-1;0);"") =OFFSET(DATA!D$2;MATCH(SMALL(DATA!A$2:A$1000;ROW()-ROW(DATA!P$2)+1);DATA!A$2:A$1000;0)-1;0) و في شيت داتا المعادلة الاصلية =RANK($D2;$D$2:$D$41)+COUNTIF($D$2:D2;D2)-1 غيرتها بهذه المعادلة =RANK($D2;$D$2:$D$1000)+COUNTIF($D$2:D2;D2)-1 و لا ادري هل كنت موفقا او لا فوروم حذف وإضافة بيانات مع إدراك صفوف لاسفل بنفس التنسيقات والمعادلات لاكثر من ورقة.xlsx.rar

السلام عليكم جزاك الله خيراً اخي فنديل الصياد

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

السلام عليكم لقد اضفت في المشاركة الأخيرة ادراج تنيبقات الصف الأخير في DATA فقط و ان اردت كليهما او الشيت الثاني فأخبرني بذلك

السلام عليكم اخي سعيد جرب المرفق 33حذف سجلات بين اوراق العمل.xlsx.rar

أخي إبراهيم جزاك الله خيرا

السلام عليكم تم استدراك الخطأ بالنسبة للطلب الثاني هل البيانات تضاف للشيت الأول فقط أو الأول و الثاني 2حذف سجلات بين اوراق العمل.xlsx.rar

السلام عليكم اخي سعيد بيرم الملف المرسل في المشاركة رقم 6 لا يحتوي على فورم أما الملف الذي ارسلته لك في المشاركة رقم 5 يقوم بحذف الاسم من الشيتين كما طلبت و ان كان هناك توضيح آخر او شرط للحذف ارجو ذكره

جزاك الله خيرا اخي قنديل الصياد نشاط ملحوظ و عطاء مستمر جعله الله في ميزان حسناتكم

السلام عليكم اخي سعيد بيرم تم عمل المطلوب الاول المطلوب الثاني غير واضح هل الزر يكون في الشيت او في الفورم و ما هي البيانات التي ترحل فوروم بحث وحذف موظفين_1.rar

السلام عليكم جزاك الله خيرا اخي قنديل الصياد على كل ما تقدمه من جهد لهذا المنتدى

استعمل بدلا من ذلك Range("A1048576").End(xlUp).Row

و هذا بالكود اسماء 2.rar

السلام عليكم باستعمال خاصية تجميد الألواح اسماء 1.rar

السلام عليكم kh_1 هو نطاق محدد من الخلية X3 الى الخلية AG6

السلام عليكم عمل مميز أخي حمادة جزاك الله خيرا تحياتي

السلام عليكم اذا كان الكود يقوم بعملة أكتب في بداية الكود السطر التالي On Error Resume Next

السلام عليكم استعمل هذا الكود Private Sub CommandButton2_Click() Dim LastRow As Long, i As Long, ii As Byte With Sheets("العملاء") LastRow = .Cells(.Rows.Count, "A").End(xlUp) For i = 2 To LastRow If .Cells(i, 1) = Range("e2") Then For ii = 3 To 9 If IsEmpty(.Cells(i, ii)) Then .Cells(i, ii) = Range("e16").Value Exit For End If Next End If Next End With End Sub book.rar

السلام عليكم انظر الى هذا الرابط http://www.officena.net/ib/index.php?showtopic=49145&hl=%D8%AA%D8%B1%D8%AA%D9%8A%D8%A8

السلام عليكم ضع هذا الكود Private Sub ListBox1_Click() If ActiveCell = "" Then ActiveCell.Value = ListBox1.List(ListBox1.ListIndex) Else ActiveCell.Value = ActiveCell.Value & Chr(10) & ListBox1.List(ListBox1.ListIndex) End If End Sub

هل تقصد اضافة الاسماء من الكمبوبكس الى الليست بوكس

او استعمل هذا التعديل Private Sub ComboBox1_Change() If ActiveCell = "" Then ActiveCell.Value = ComboBox1.Value Else ActiveCell.Value = ActiveCell.Value & Chr(10) & ComboBox1.Value End If End Sub