Evaluate

[merakli_72]

Selam
Aşağıdaki formül Evaluate ile nasıl yazılır
formül bu haliyle çalışıyor, fakat Evaluate yazdırma denemelerim hep #DEGER hatası veriyor


Sub hesapla()
Dim SATiCi
'MsgBox "a"
SATiCi = [A1].End(xlDown)

[h1566] = "=SUMPRODUCT((R2C1:R1553C1=""" & SATiCi & """)*(R2C5:R1553C5>0)*(R2C8:R1553C8))"

end sub

 

[Ömer]

Merhaba,

[h1566] = Evaluate("=SUMPRODUCT((A2:A1553=""" & SATiCi & """)*(E2:E1553>0)*(H2:H1553))")

Bu şekilde deneyiniz.

.

 

[merakli_72]

Çok teşekkür ederim Ömer bey,
Demekki RC şeklindeki adreslemeden anlamıyor Evaluate

 

[mancubus]

şuraya bir bakın

http://www.excel.web.tr/f48/r1c1-ba-vuru-stiline-gore-hazyrlanan-deoi-kenli-t98126.html