عبدالسلام ابوالعوافي

استبدل Range("C5:l1000").ClearContents بـ Range("C5:D1000").ClearContents Range("F5:F1000").ClearContents Range("H5:l1000").ClearContents

New Microsoft Office Excel Worksheet.rar

اعتذر على تسرعي استاذنا ياسر لكني افضل ان اضع فكرة الحل بدل حل كامل .. لان واجهتني بعض المشاكل عند تطبيق الحل علي ملف السائل .. قد يحتاج الملف الى تعديل لاحقا وقد لا يكون لدي وقت للتعديل .. فيتم ارسال رسائل علي الخاص او علي الفيس تطلب التعديل ويقولون "شغلي متوقف واحتاج للتعديل بشكل عاجل " .. لذلك لا اريد ان اضيف التزام لالتزاماتي واريد ان تكون مشاركاتي حسب وقت الفراغ والمزاج اتمنى ان تعذرني استاذنا ولك من كل التحايا

=B1&CHAR(10)&B2&CHAR(10)&B3

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

انا ايضا لم افهم القصد .. اذا كان القصد كما كما نوه الاستاذ ياسر فيمكن ان تضع المعادلة الاتية مباشرة =IF(TRIM(A1)=B1;"";"Different")

استاذنا ياسر .. اشكرك لانك راجعت المعادلات للتاكد من صحة النتائج .. وانا ايضا راجعت النتائج لكنها طلعت معي صحيحة .. قد يكون الاختلاف في القيم المدخلة .. لان مجموع القراط عندي 46 وليس 47 الان اخونا ميمو لديه اربع حلول يختار منها مايشاء راجعت حل الاستاد سليم ووجدت الخطا الذي ذكره الاستاذ ياسر .. ايضا وجدت انه غير القيمة في الخلية F8 من 4 الى 5 .. عندما غير القيمة في ملفي كانت النتيجة عندي صحيحة وتختلف عن النتيجة في ملف الاستاد سليم

هل القيمة في الخلية N8 تكتب يدويا ام ناتجة عن معادلة ؟

جمع مساحات.rar

Private Sub A4_Change() Dim ws As Worksheet Set ws = Worksheets("Archives_Bill") If ComboBox2.Text = "" And A4.Text <> "" Then MsgBox ("الرجاء اختيار الوحدة") A4.Text = "" Exit Sub Else With Me If Me.A4.Text > Me.A1.Text = True Then MsgBox "عفوا هذا العدد اكبر من القيمة الموجودة" ' تظهر هذه الرساله ومعها القيمة الموجوده او الفرق بنهم الموجود في ( A1 ) A4.Text = "" Else End If: End With If ComboBox2.Text = "بالكرتونة" Or ComboBox2.Text = "بالعلبة" Or ComboBox2.Text = "بالعبوة" = True Then ws.Cells(3, 2).Value = "" ws.Cells(3, 1).Value = Me.A4.Value Else ' Exit Sub If ComboBox2.Text = "بالقطعة" Or ComboBox2.Text = "بالمتر" Or ComboBox2.Text = "بالكيلو" Or ComboBox2.Text = "بالعدد" Or ComboBox2.Text = "بالطن" = True Then ws.Cells(3, 1).Value = "" ws.Cells(3, 2).Value = Me.A4.Value End If End If End If End Sub

لو ترفع الملف يكون افضل .. يمكن تكون الاشكالية في كود اخر

ضفها بعد الصف السادس

اضف Exit Sub بعد A5.Text = ""

=HYPERLINK(RIGHT("0000"&ROW()-1;4)&".pdf";RIGHT("0000"&ROW()-1;4))

لا اعتقد ان كل المزايا متوفرة في الملفات المرفوعة علي النت ... من بين هذه المزايا الاكواد

وعليكم السلام اخي .. اعتقد ان الكود يشتغل بشكل جيد علي الملف الذي رفعته لك .. ارفع الملف واحذف البيانات المهمة منه وان شاء الله اقوم بتعديله

زر اخفاء واظهار السعر اشراء.rar

HYPERLINK.rar

تنسيق شرطي Range.rar

اخي الكريم .. كيف يعني ياخد النطاق ؟ من الصعب الاجابة علي سؤال مبهم وغير واضح

لم انتبه للمرفق .. لكن بعد الاطلاع عليه فضلت استخدام معادلة بدل الكود Range.rar

اخي الكريم .. انت سألت بشكل عام واجبتك علي حسب سؤالك ... الفكرة تكون كالاتي Dim RNG As Range For Each RNG In (YourRange) If RNG = (YourCondition) Then (YourProcedure) Next

فكرة جميلة

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

استبدال v = v + Val(Cel) بـ v = v + 1