ktf ile toplama işlemi

[Erdem Akdemir]

Merhaba,

A1 hücresinde =10+10 ifadesi olsun sonucunda 20 olsun, A2 hücresinde ise 10 olsun.

B3 hücresine =10+10+10 değerini getirerek toplama yaptırma ve 30 sonucunu almak istiyorum.

Makro ile oluyor ama ktf ile yapamadım.

Function deger(alan1 As Range, alan2 As Range)

deger = alan1.Formula & "+" & alan2.Value

End Function

Sub deneme()
sonuc = Range("a1").Formula & "+" & Range("a2")

Range("a3") = sonuc

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Function deger(alan1 As Range, alan2 As Range)
    deger = Evaluate(alan1.Formula & "+" & alan2.Value)
End Function

 

[Erdem Akdemir]

Deneyiniz.

Function deger(alan1 As Range, alan2 As Range)
    deger = Evaluate(alan1.Formula & "+" & alan2.Value)
End Function

Korhan bey selamlar,

Benim istediğim gibi olmadı. Benim istediğim hücrede =10+10+10 yazıp sonuç olarak 30 yazması. Bu işlem ktf ile olmaz sanırım, sonuçta orada'da bir formül olacak.Makro ile devam edeceğim, teşekkür ederim.

 

[Korhan Ayhan]

Dosya ile örnek verirseniz belki çözüm üretebiliriz.

 

[sakman26]

selam,
yanlış anlamıyorsam eğer
hücrelere formül yerine formül metni ya da sayı girilerek sonuç elde edilmek isteniyor...
Buna yönelik bir örnek eklemek istiyorum. Belki bir fikir verebilir...

(Not : Evaluate ile ilgili olarak, Hücrenin değeri ile , Ardışık hücrelerden oluşan alanın ve ardışık olmayan farklı hücrelerin toplamlarına yönelik KTF ler le Ve de
Makro4 kodunun ad tanımlaması ile kullanılması ile çözümler üretilmiştir. Şunu da belirtmek isterim ki bazı metin yazılımlarında KTF ler hata vermektedir.)