Arkadaşlar iyi günler
A B C ve D sütunlarım var aşağıdaki fonksiyonum D sütununda çalışıyor.
EĞER(C2="";"";EĞER(VE(A2<=C2;C2<=B2);"başarılı";"başarısız"))
Benim istediğim bu fonksiyonu makro ile nasıl yazarım.
Aslında yeni makro kaydet işlevi ile aşağıdaki gibi yaptım ama butona basınca Formül D sütununa geliyor. Formülün D sütununda gözükmesini istemiyorum ve butonda istemiyorum. Makro halinde çalışma sayfasında kalmasını verileri girince otomatik sonucu yazmasını istiyorum.
Sub deneme()
[d2:d20].ClearContents
Range("D220").FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(AND(RC[-3]<=RC[-1],RC[-1]<=RC[-2]),""BAŞARILI"",""BAŞARISIZ""))"
Range("D2").Select
End Sub
A B C ve D sütunlarım var aşağıdaki fonksiyonum D sütununda çalışıyor.
EĞER(C2="";"";EĞER(VE(A2<=C2;C2<=B2);"başarılı";"başarısız"))
Benim istediğim bu fonksiyonu makro ile nasıl yazarım.
Aslında yeni makro kaydet işlevi ile aşağıdaki gibi yaptım ama butona basınca Formül D sütununa geliyor. Formülün D sütununda gözükmesini istemiyorum ve butonda istemiyorum. Makro halinde çalışma sayfasında kalmasını verileri girince otomatik sonucu yazmasını istiyorum.
Sub deneme()
[d2:d20].ClearContents
Range("D220").FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(AND(RC[-3]<=RC[-1],RC[-1]<=RC[-2]),""BAŞARILI"",""BAŞARISIZ""))"
Range("D2").Select
End Sub