كود يقوم بكتابة كلمة ما بتحقق شرط معين

[زوهير]

السلام عليكم ورحمة الله

 

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

والمرفق يوضح الطلب

 

وجزاكم الله خيرا

test.rar

[سليم حاصبيا]

 اكتب هذه المعادلة في E2 , واسحب نزولاًً

=IF(AND($C2<>"",$D2<>"",$C2=1,$D2=1),"sala",IF(AND($C2<>"",$D2<>"",$C2=1,$D2=15),"retre",""))

[زوهير]

جزاك الله خيرا

انا عملت المعادلة

ولكن انا اريد كود ان امكن وعذرا عن التأخر في الرد

[سليم حاصبيا]

 تفضل اخي 

هذا بواسطة الكود

vba formule.rar

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

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

Sub ConvertItVBA()
    With Range("E2:E" & Cells(Rows.Count, 3).End(xlUp).Row)
        .Formula = "=IF(AND($C2<>"""",$D2<>"""",$C2=1,$D2=1),""sala"",IF(AND($C2<>"""",$D2<>"""",$C2=1,$D2=15),""retre"",""""))"
        .Value = .Value
    End With
End Sub

فقط حولت معادلة الأخ الحبيب سليم

 

عذراً أخي سليم لم أرى مشاركتك إلا الآن

[زوهير]

جزاكم الله خيرا

وزادكم علما

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

يرجي الالتزام بالتوجيهات