كتابة حرف X في نطاق عندما توجد القيمة 1 في نطاق آخر

[أيمن ابراهيم]

المطلوب التعديل على الكود الموجود بالملف المرفق بحيث

في النطاق من (I3:M32) اذا كانت القيمة الموجودة (1)

يتم كتابة الحرف (X) فى النطاق (A3:E32)

بدون كتابة المعادلة فى النطاق (A3:E32) 

aa.rar

[ياسر خليل أبو البراء]

أخي الكريم أيمن إبراهيم

عوداً حميداً .. كل عام وأنت بخير

جرب الكود التالي

Sub TestRun()
    Range("A3:E1000").ClearContents
    With Range("A3:E32")
        .FormulaR1C1 = "=IF(RC[8]=1,R1C6,"""")"
        .Value = .Value
    End With
End Sub

تقبل تحياتي

[أيمن ابراهيم]

 

أخي الكريم أيمن إبراهيم

عوداً حميداً .. كل عام وأنت بخير

جرب الكود التالي

Sub TestRun()
    Range("A3:E1000").ClearContents
    With Range("A3:E32")
        .FormulaR1C1 = "=IF(RC[8]=1,R1C6,"""")"
        .Value = .Value
    End With
End Sub

تقبل تحياتي

 

الحمد لله على سلامتك استاذ ياسر

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

اشكرك تقبل تحياتى

[ياسر خليل أبو البراء]

أخي الكريم أيمن

الحمد لله أن تم المطلوب على خير ..

يمكن استخدام السطر التالي بدلاً من الكود بالمشاركة رقم 2

Sub TypeX()
    Range("A3:E32").Value = Evaluate("IF(I3:M32=1, ""X"", """")")
End Sub

أقترح عليك تبديل أفضل إجابة حيث أنه يجب أن تسعى دائماً للأفضل

[أيمن ابراهيم]

 

أخي الكريم أيمن

الحمد لله أن تم المطلوب على خير ..

يمكن استخدام السطر التالي بدلاً من الكود بالمشاركة رقم 2

Sub TypeX()
    Range("A3:E32").Value = Evaluate("IF(I3:M32=1, ""X"", """")")
End Sub

أقترح عليك تبديل أفضل إجابة حيث أنه يجب أن تسعى دائماً للأفضل

 

دائماً متألق كما عهدنا عنك استاذ ياسر

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

 

تم تعديل يوليو 10, 2015 بواسطه أيمن ابراهيم