Ktf ; eğersay için

[mersilen]

Herkese iyi bayramlar
bir çalışmamda aşağıdaki eğersay formülünü kullanıyorum,

=EĞER(YADA(D284="";(EĞERSAY($AF401:$AI401;C400)+EĞERSAY($AL401:$AR401;C400))>0);"";D284)

formülü kısaltmak istedim ama olmadı.kırmızı olan yerde sonuç alamadım

=EĞER(YADA(D284="";(EĞERSAY([COLOR=Red]$AF401:$AI401;$AL401:$AR401[/COLOR];C400))>0);"";D284)

Dolayısıyla bizde tilkilik yapalım dedim ve bunu KTF ye dönüştürmeye çalıştım
makro kaydetle formülü oluşturdum

Sub Makro1eğersay()
' Makro1eğersay Makro
'
    Range("C801").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(R[-517]C[1]="""",(COUNTIF(R[-400]C32:R[-400]C35,R[-401]C)+COUNTIF(R[-400]C38:R[-400]C44,R[-401]C))>0),"""",R[-517]C[1])"
    Range("C802").Select
End Sub

Yoksa ismini verdiğim KTF yi oluşturdum ,ama yine hatalı oldu
İncelemeniz mümkün mü?

Function yoksa(D284, AF401AI401, C400, AL401AR401 As Ranges)
D = D284
AFI = AF401AI401
C = C400
ALR = AL401AR401
[COLOR=DarkGreen][B]'1=EĞER(YADA(D284="";(EĞERSAY($AF401:$AI401;C400)+EĞERSAY($AL401:$AR401;C400))>0);"";D284)[/B][/COLOR]

yoksa = "=IF(OR(D="""",(COUNTIF(AFI,C)+COUNTIF(AFI,C))>0),"""",D)"
End Function