Çözüldü EĞER Formülü Makro İle Yazma,

[gicimi]

Merhaba;

Ekteki excel çalışmasında EĞER(VE kullanılarak belirtilmiş şartlara göre formül yazılmıştır. Bu işlemi makro ile yaptırabilir miyim_? Yardımlarınız lütfen.

=EĞER(VE(E2="AB-A1-01";F2<25);"25 Günden Az";
EĞER(VE(E2="AB-A1-01";F2>35);"35 Günden Fazla";
EĞER(VE(E2="AB-A1-01";F2>=25;F2<=35);"Uygun";
EĞER(VE(E2="AB-A2-01";F2<50);"50 Günden Az";
EĞER(VE(E2="AB-A2-01";F2>70);"70 Günden Fazla";
EĞER(VE(E2="AB-A2-01";F2>=50;F2<=70);"Uygun";
EĞER(VE(E2="AB-A3-02";F2<75);"75 Günden Az";
EĞER(VE(E2="AB-A3-02";F2>105);"105 Günden Fazla";
EĞER(VE(E2="AB-A3-02";F2>=75;F2<=105);"Uygun")))))))))

 

[turist]

Deneyin.

Sub formulyaz()
With Range("D2:D" & Cells(Rows.Count, "E").End(xlUp).Row)
.Formula = "=IF(AND(E2=""AB-A1-01"",F2<25),""25 Günden Az"",IF(AND(E2=""AB-A1-01"",F2>35),""35 Günden Fazla"", IF(AND(E2=""AB-A1-01"",F2>=25,F2<=35),""Uygun"",IF(AND(E2=""AB-A2-01"",F2<50),""50 Günden Az"",IF(AND(E2=""AB-A2-01"",F2>70),""70 Günden Fazla"",IF(AND(E2=""AB-A2-01"",F2>=50,F2<=70),""Uygun"",IF(AND(E2=""AB-A3-02"",F2<75),""75 Günden Az"",IF(AND(E2=""AB-A3-02"",F2>105),""105 Günden Fazla"",IF(AND(E2=""AB-A3-02"",F2>=75,F2<=105),""Uygun"")))))))))"
.Value = .Value
End With
End Sub

 

[gicimi]

@turist Hocam elinize sağlık teşekkür ederim. Kolaylıklar.

 

[turist]

@turist Hocam elinize sağlık teşekkür ederim. Kolaylıklar.

Sağ olun, kolay gelsin.