ابو عبدالبارى

الأخ الكريمatob السلام عليكم يمكن ايضا عمل ذلك بمعادلات الصفيف ={IFERROR(VLOOKUP(C6;MID(J6:J13;1;FIND(" ";J6:J13;1)-1);1;0)&MID(J6:J13;FIND(" ";J6:J13;1);3);""} abo_abary_وضع رقم مشابهه.zip

الأخ الكريم طبعي الود السلام عليكم اثراءاً للموضوع واختصاراً للمعادلة ضع المعادلة الأولى فى الخلية b2 والمعادلة الثانية فى c2 واسحيها نزولاً =IF(A2=0;"مكتمل";IF(A2<5;"توزع";INT(A2/$E$2))) =IF(A2=0;"مكتمل";IF(A2<5;"توزع";MOD(A2;$E$2)))

الأخ الكريمطبعي الود السلام عليكم جرب المعادلة التالية =ROUNDUP(A1;0)

الأخ الكريمكعبلاوى السلام عليكم المشكلة تكمن فى عدم تطابق كلمات البحث فى شيت احصاءعام مع شيت المدرسة مثال (معلم مساعد و معلم م ) مثال اخر ( معلم بدون ك و معلم بدون ) وكذلك بعض المسافات الزائدة كما فى كلمة معلم اول ارجو ان تكون المشكلة قد حلت

الأخ الكريم at7daal3alam السلام عليكم يرجى اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_يومي1 1.zip

الأخ الكريمredamohamed السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_تحويل عملة.zip

الأخ الكريم edkawy السلام عليكم وبعد اذن الأخوة الأعزاء ربما يفيد هذا الكود Sub abo_abary() last1 = Cells(Rows.Count, "a").End(xlUp).Row last2 = Cells(Rows.Count, "b").End(xlUp).Row y = 2 For x = 2 To last1 If Application.CountIf(Range("b2:b" & last1), Range("a" & x)) = 0 Then Range("c" & y) = Range("a" & x): y = y + 1 Next y = 2 For x = 2 To last2 If Application.CountIf(Range("a2:a" & last2), Range("b" & x)) = 0 Then Range("d" & y) = Range("b" & x): y = y + 1 Next End Sub

الأخ الكريم amenbkr السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_test.zip

الأخ الكريممحمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_مطابقة بين الشيتات.zip

abo_abary_count_repeat_no (2).zip

الأخ العزيزأبو الوفاء السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_فاتورة ترحيل بفورم.zip

اثراءاً للموضوع جرب المرفق التالى يالأكواد لعلة يفى يالغرض abo_abary_count_repeat_no.zip

اخى الكريمالموسطي جرب المرفق التالى لعلة يفى بالغرض abo_abary_Book1.zip

=((B8+A8/100)-(B9+A9/100)-INT((B8+A8/100)-(B9+A9/100)))*100 =INT((B8+A8/100)-(B9+A9/100)) الأخ الكريم mahmoudslah السلام عليكم واثراءاً للموضوع وبعد اذن اخى الكبير @زيزو العجوز ضع المعادلة الأولى فى الخلية A10للقروش ضع المعادلة الثانيةفى الخلية b10للجنيهات abo_abary_قطع غيار بعد الخصم.zip

الأخ الكريممحمد الخازمي السلام عليكم واثراءاً للموضوع وبعد اذن أخى @ياسر خليل أبو البراء جرب الملف التالى abo_abary_استخراج الاخوه في المدرسة.zip

الأخ الكريم علي 13 السلام عليكم جرب المعادلة التالية =SUMPRODUCT(--($D$2:$E$10="محصل")) =SUMPRODUCT(--($D$2:$E$10="غير محصل"))

الأخ الكريمAlsalim1 بعد اذن الأستاذسليم حاصبيا جرب الملف التالى لعلة يفى بالغرض abo_abary_تحويل الارقام إلى نسب.zip

يرجى ارسال ملف به بعض البيانات وشكل النتائج المتوقعه للعمل عليها

الأخ الكريمalmshtag السلام عليكم يرجى اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية وبعد اذن اخى العزيز @سليم حاصبيا وتبسيطاً للموضوع Sub abo_abary() For i = 2 To [g2] + 1 [c2] = [c2] & " " & Range("a" & i) Next End Sub abo_abary_1111.zip

الأخ الكريم ابوصلاح السلام عليكم جرب الملف التالى بالمعادلات لعلة يفى بالغرض abo_abary_الرقم القومي مكرر.zip

الأخ الكريم علي 13 بعد اذن اخي سليم حاصبيا جرب المعادلة التالية ضعها في اي مكان حارج الجدول و اضغط Enter =COUNTIF($D$2:$D$20;"")

الأخ الكريمmazenjo11 السلام عليكم يرجى اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_جمع قيم بشرط معين.zip

الأخ الكريمjojo2009 السلام عليكم أولا نرجو منك اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية ثانيا قليل من الصبر وستجد رد ان شاء الله على اسئلتك من الأخوة فى هذا المنتدى العريق ان شاء الله جرب الكود التالى لعله يفى بالغرض Sub abo_abary1() For i = 4 To 10 Select Case Range("b" & i) Case Is >= 400001 Range("d" & i) = "30%" Case Is >= 300000 Range("d" & i) = "25%" Case Is >= 5000 Range("d" & i) = "0%" End Select Next End Sub Sub abo_abary2() For i = 15 To 19 Range("e" & i) = Range("b" & i) * Range("c" & i) Next End Sub abo_abary_مساعدتى عمل كود VBN.zip

الأخ الكريم اسامة القورتاوي جرب المعادلة التالية وضعها فى فى الخلية L10 اسحبها نزولاً =IF(K10>=90;"A+";IF(K10>=80;"B";IF(K10>=70;"C";IF(K10>=60;"IS";IF(K10<60;"U";""))))) abo_abary_Book1.rar

الأخ الكريمmahmoudslah السلام عليكم جرب المرفق التالى لعله بفى بالغرض abo_abary_فاتورةصيانة.rar