نايف - م

سؤال أحر مرتبط بنغس الفكرة هل يمكن تحديد الخلايا في العمود E (فقط ) اذا كان قيمة الخلية في العمود a تساوي القيمة في الخلية a1

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

طيب وصلنا للحل شكرا أنا أعمل على العمود B و أرسلت لك صورة و هي موجودة بالأعلى تشير للعمود B على أنه عمود العمل و لم تنبهني الى تغيير الرقم على كل آسف عذبتك معي بدلت للرقم 2 و مشي الحال شكرا

غيرتها و ما مشي الحال طيب الرقم 1 في الكتابة التالية على شو بيدل Cells(Rows.Count, 1 يعني شو معناه

طيب أخي الكريم جربت و ما مشي الحال طيب ملاحظة حذفت من كودك +1 Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row+1) = ListBox1.Column(0) Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row) = ListBox1.Column(0) فنزل المطلوب في آخر خلية من العمود B بينفع في شيء

عنوان ؟؟؟؟؟ هل تقصد أن يكون فيها قيمة مثلا " تسلسل"

ملاحظة قد تفيد الكود النالي يعمل لكن يجب ان يكون المجال B2 يحوي على قيمة Sheets("BUY").Range("b1").End(xlDown).Offset(1, 0).Value = .List(.ListIndex, 0)

حجم الورقة مضغوط 2417 سأجرب رفعها للأسف لم يسمح

ليس هناك خلايا مدمجة في مكان التنفيذ ( العمود B ) و هذه الصورة للتأكيد شو الأحتمال الثاني

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

جربت هذا الكود في برنامجي و لم ينجح نقل محتوى تكست بوكس لخلية في ورقة بالضغط على زر أمر لا أعرف السبب ممكن المساعدة azaz1.rar

شكرا للجهد لكن بعد التجربة النتيجة غير مرضية و لاأعرف السبب

تمام هو المطلوب شكرا لك و أدام لك الله هذه الموهبة

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

سؤال للأخ سليم عندما أردت أن أحول كل الصيغ في المجا ل (MY_RG) لقيم أضفت سطر فأعطى نتيجة غير صحيحة Dim lr As Integer Dim my_rg As Range Dim my_nb As Integer Dim i As Integer my_nb = Cells(1, 1).Value lr = Cells(Rows.Count, 1).End(3).Row For i = 2 To lr If Cells(i, 1) = my_nb Then If my_rg Is Nothing Then Set my_rg = Cells(i, 1).Resize(1, 5) my_rg.Select Else Set my_rg = Union(my_rg, Cells(i, 1).Resize(1, 5)) my_rg.Select End If End If Next my_rg.Select my_rg.Value = my_rg.Value ممكن المساعدة في أكتشاف الخطأ أو أضافة السطر الصحيح .شكرا

الأخ الفاضل سليم بارك الله بهاتين اليدين المبدعتين شكرا لك هو المطلوب الأخ العيدروس : شكرا لمساهمتك لكن المطلوب ليس في حدث الورقة

شكرا للأخ سليم سرعة الأستجابة أخي الكريم طلبي تحديد select و ليس تلوين بتنسيق شرطي أريد ذلك عن طرق البرمجة في محرر الأكواد لأني سأربط البرمجة بزر أمر و شكرا لك

ملف مرفق أريد تحديد خلايا بأسطر غير متجاورة اذا كان لها رقم موجود بالعمود A يساوي رقم في خلية مفنرضة المصنف1.rar

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

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

الشكر الجزيل للأخ مختار الشكر الجزيل للأخ سليم وفقكم الله تم المطلوب

الأخ سليم شكرا جزيلا لجهودك كنت طيبا معي لكن المطلوب هو كما تفضل الأخ مختار الأخ مختار : أريد أضافة شرط : اذا كانت الخلية في العمود A المقابلة للخلية الحاوية على الصيغة غير فارغة يتم تنفيذ الكود if cell in range a <> "" and cell in range b hasformula then شكرا لجهودك

شكرا للأستجابة ما حدث أن الخلية التي بها صيغة و يقف المؤشر فوقها تتلون أنا أريد أن تتلون كل الخلايا التي بها صيغة بحيث استطيع تمييزها عن الخلايا التي بها قيمة شكرا

كيف يمكن تلوين خلية اذا كان محتواها صيغة بوضع كود في الحدث selectionchange و يزول التلوين بعد أن يصبح محتوى الخلية قيمة ملاحظة : اذا ممكن المجال بالورقة قابل للتغير ( ديناميكي ) بأضافة قيم بشكل دائم شكرا تلوين خلايا.rar

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