Ali Mohamed Ali

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

تفضل لك ما طلبت العملاء.xlsm

تفضل وأكثر مما تريد فورم ادخال وتعديل وحذف.xlsm

وعليكم السلام-جرب هذا =IF(INT(C2)<>C2,C2+1.5,C2) 1اضافة عدد للكسر.xlsx

أكرمك الله استاذ مجدى وأحسن الله اليك

بارك الله فيك استاذ مجدى وزادك الله من فضله

احسنت أستاذ مجدى بارك الله فيك

بارك الله فيك استاذ مجدى وزادك الله من فضله

أحسنت استاذ مجدى بارك الله فيك

أحسنت استاذ مجدى كل عام وأنتم بخير

أحسنت استاذ مجدى بارك الله فيك

جزاك الله خير الثواب استاذ مجدى

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك وكل عام وانتم بخير

وعليكم السلام -يمكنك ذلك بجعل التنسيق هكذا [$-,2000000]0.00_);[Red](0.00) TEST1.xlsx

يمكنك ذلك بهذه المعادلة =COUNTIFS($C:$C,J5,B:B,"<>"&"") Book2.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة على الرغم ان طلبك تكرر كثير جداً وكان عليك البحث بالمنتدى قبل رفع مشاركتك =IF($B1=0,6,IF(AND($B1>=1,$B1<=39),5,IF(AND($B1>=40,$B1<=49),4,IF(AND($B1>=50,$B1<=69),3,IF(AND($B1>=70,$B1<=89),2,IF(AND($B1>=90,$B1<=100),1,"")))))) 1.xlsx

جزاك الله خير الثواب استاذ مجدى

أحسنت استاذ مجدى بارك الله فيك

أحسنت استاذ موسى عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام -يمكنك ذلك بهذه المعادلة =COUNTIFS($E$3:$E$500,$E3,$D$3:$D$500,$D3)>1 التنسيق الشرطي للتكرار بشرط1.xlsx

جزاك الله خير الثواب استاذ مجدى

بارك الله فيك استاذ مجدى

تفضل تـــم التعديل وذلك بسبب مشكلتك انت مع الكود لأنك لغيت سطر إظهار التكست بوكس كتاريخ 1حلقات مسجد الجامع....xlsm

وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls