Ali Mohamed Ali

بارك الله فيك وزادك الله من فضله

بحيث يتم التلوين اذا كان بداية من الخلية C7 لا يساوى فراغ ,بحيث اذا كانت بداية من الخلية C7 = فراغ أى "" لا يتم التلوين فشرط التلوين ان تكون الخلية بها بيانات فاذا لم تكن هذه الجزئية موجودة بالمعادلة فسيتم تلوين الخلايا الفارغة ايضا

وعليكم السلام-الأمر بسيط تم ذلك بالتنسقات الشرطية وهذه هى المعادلة المستخدمة لذلك واعتقد ان افضل طريقة للشرح بالصور =AND($D7<=TODAY(),$C7<>"")

وعليكم السلام-تفضل لك ما طلبت جمع نطاق من ورقه إلى أخرى.xlsx

وعليكم السلام-تفضل وذلك بالتنسيقات الشرطية Expire.xlsx

جزاك الله كل خير استاذى الكريم

الملف تمام ويعمل بكل كفاءة فقط دائما وابدا لحسن عمل اى كود لابد من تسمية الصفاحات بالإنجليزية وذلك لأن اللغة العربية عندك تحتاج ضبط تفضل Total.xlsm

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

وعليكم السلام-بارك الله فيك وجزاك الله كل خير

وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls

بارك الله فيك وزادك الله من فضله

بارك الله فيك أستاذ عبدالله وجزاك الله كل خير

بارك الله فيكم جميعا وزادكم الله من فضله

تفضل الأمر سهل وبسيط يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=JOGUVtuJAQ4

تفضل لك ما طلبت ربط قائمة منسدلة بأخرى.xlsm

وعليكم السلام كان عليك من البداية استخدام خاصيىة البحث في المنتدى فهذا الرابط به ما تريد https://www.officena.net/ib/topic/92854-تقسيم-الرقم-القومى/?tab=comments#comment-580064 استخراج الأرقام من الرقم الوطني.xlsx

وعليكم السلام يمكن عمل هذا بهذا الكود في حدث الصفحة وبالنسبة عن كيفية تطبيق هذا بملف اخر فيمكنك دراسة الكود جيدا ونقله وتطويعه في عمل اخر Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'Only run the code if the user selected a cell in our defined range: If Not Intersect(Target, Me.Range("Table_Schedule")) Is Nothing Then 'Declare variables Dim rInt As Range Dim rCell As Range Dim rw As Long Dim xLoc As Range Set rInt = Me.Range(Me.Cells(Target.Row, "d"), Me.Cells(Target.Row, "p")) If Not rInt Is Nothing Then 'Look for a response in our answer range Set xLoc = rInt.Find("x ") If Not xLoc Is Nothing Then 'If there was a response and the response was in the same column _ 'we selected, wipe the response and exit the sub. If Target.Column = xLoc.Column Then rInt.Value = vbNullString Exit Sub 'Else, wipe the previous response and add the new response Else rInt.Value = vbNullString Target.Value = "x " End If 'If there were no previous responses... Else: Target.Value = "x " End If End If End If End Sub Weekly chore schedule1.xlsm

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

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

أهلا بك في المنتدى -تفضل الصادر والوارد.xlsx

اهلا بك اخى الكريم في المنتدى تم الحل بهذه المعادلة =IFERROR(VLOOKUP(G2,$A:$B,2,0),"") فالمشكل كان في خطأ كتابة هذه الأسماء في العمود الأول A فربما كان هناك مسافات زائدة في الخلية 1مساعدة.xls

وعليكم السلام-تفضل لك ما طلبت حساب اجماليات السلع.xls

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

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

طبعا بكود لا يمكن عمل هذا بمعادلة ابدا