عبد الفتاح كيرة

أخى أبا أحمد أعتقد أنه يجب الآتى فى الشيت الأول 1- الإدارة الحالية و النوبة الحالية تغير اسمها إلى الإدارة السابقة و النوبة السابقة لأن بجوارهما خانتان للحالية ثانيا تمسح المعادلات من هاتين الخانتين وتكتب المعلومات فيهما يدويا والله أعلم و معذرة لزر الأمر من بقايا الكود الأول نسيت مسحه وشكرا

أخى هذا ليس استخراجا للبيانات كى تستخدم معه دالة vlookup هذا عد للخلايا بشروط معينة تفضل و راجع صحة النتائج شئون الطلبةkemas.zip

أرى ما بالصورة غير المكتوب تحتها هل المطلوب معرفة كم 100 فى الرقم وكم 50 فى الرقم وكم 10 فى الرقم و كم 20 فى الرقم أم غير ذلك آحاد و عشرات و مئات و ألوف كما بالصورة الثانية عموما الحلان بالمرفقات kemas -split.zip

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

قمت بعمل شهادتين لك أكمل الباقى خطابات ندب.zip

لعل هذا ما تريده ابواحمد.zip

أرسل ملفك

رغم دمج الخلايا إلا أن d1 فقط تكون قيمتها Amir و ليس كل الخلايا المدموجة لذلك كان الناتج = 10 لذلك j2 = =SUMIF(A:A;D1;E:E)

ما فهمته هو نقل الأعمدة التى باللون الأصفر إلى شيت " الكشف " للأعمدة الصفراء بما أن الأسماء ترتيبها واحد استخدم الكود التالى : Dim myrng1 As Range Set myrng1 = Sheets(1).Range("g13:i100") With myrng1 .Copy Sheets("الكشف").Range("e8") End With Application.CutCopyMode = False ابواحمد.rar

أخى الكريم راجع هذا الموضوع وبه ملف مفتوح للدراسة http://www.officena.net/ib/index.php?showtopic=33637

معادلة رائعة أستاذنا يحيى مشكور جدا

بالنسبة لحساب تاريخ المعاش على فرض وجود تاريخ الميلاد بالخلية a1 ضع المعادلة التالية فى b1 التى يكون تنسيقها تاريخ =a1+65*365.25-1

أبو آلاء أشكرك شكرا جزيلا و إن شاء الله نواصل الشروح تعرف أن هذه أيام امتحانات يسر الله الأمور

تفضل سامى أبوزايد-kemas.zip

أختنا جربى حل أستاذنا يحيى و هذا هو الملف بعد تطبيق معادلة الأخ يحيى test1-yahya.zip

أخى الجزيرة إجابتك كنز من الكنوز كنت أبحث عنه من مدة طويلة جزاك الله خيرا وجزى أبا تامر خيرا

المرفق عبارة عن صفحة ويب

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

إذا كان رقم واحد مثلا فى الصف الثالث نضع فى a3 المعادلة التالية و نسحبها لأسفل =row()-2 واسحب المعادلة لأسفل معنى المعادلة قيمة الخلية a3 = رقم صفها - 2 يعنى واحد

تفضل أخى بالمرفقات Dim a As Integer Dim i As Integer Dim myitems(0 To 3) As Long a = 6 For i = 0 To UBound(myitems()) With Sheets("k1") myitems(i) = .Cells(12, i + a) End With a = a + 1 mylow = Application.WorksheetFunction.Min(myitems(0), myitems(1), _ myitems(2), myitems(3)) Next i Sheets("k1").Range("f12:l12").Interior.ColorIndex = xlNone For i = 6 To 12 Step 2 If Sheets("k1").Cells(12, i) = mylow Then Sheets("k1").Cells(12, i).Interior.ColorIndex = 3 End If Next i مقارنه اسعار kemas.zip

معادلة ذكية أخانا الخالدى خاصة هذا الجزء ($C$7:$I$7/C9:I9>2))=0 شكرا لك

و لعدم إظهار المعدل للمكمل و إظهاره للناجح فى J9 ضع المعادلة =IF(AND(C9>=$C$7/2;D9>=$D$7/2;E9>=$E$7/2;F9>=$F$7/2;G9>=$G$7/2;H9>=$H$7/2;I9>=$I$7/2);SUM(C10:I10)/6.1;"")

المعادلة التالية ضعها فى K9 واسحبها لأسفل =IF(AND(C9>=$C$7/2;D9>=$D$7/2;E9>=$E$7/2;F9>=$F$7/2;G9>=$G$7/2;H9>=$H$7/2;I9>=$I$7/2);"ناجح";"مكمل")

أخى الفاضل شاهد هذا

هل نقلت الكود المستخدم للتفقيط نسخا و لصقا؟ فجاء الخط بهذه الصورة؟