Fonksiyonu makroya çevirmek

[kombo]

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

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:5bf3795d25]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:c]) Is Nothing Then Exit Sub
sat = Target.Row
If Cells(sat, "a") <= Cells(sat, "c") And Cells(sat, "c") <= Cells(sat, "b") Then
Cells(sat, "d") = "başarılı"
Else
Cells(sat, "d") = "başarısız"
End If
If Cells(sat, "c") = 0 Then Cells(sat, "d") = ""
End Sub[/vb:1:5bf3795d25]

 

[kombo]

teşekkür ederim sn. leventm
bunu bir sayfaya kopyalayıp önce iyice incelemem lazım.