Çözüldü Topla.Çarpım Formülü

[mana97]

Merhaba,

öğrenmeye çalıştığım bir vba kodu var bir kaç deneme yapıyorum ancak aşağıdaki kod çalışmıyor nerede hata yapıyorum

Function DENEME(s1, s2, s3)

Application.WorksheetFunction.SumProduct ((s1 = s2)) * ((s3))

End Function

 

[musapekel]

Merhaba,

öğrenmeye çalıştığım bir vba kodu var bir kaç deneme yapıyorum ancak aşağıdaki kod çalışmıyor nerede hata yapıyorum

Function DENEME(s1, s2, s3)

Application.WorksheetFunction.SumProduct ((s1 = s2)) * ((s3))

End Function

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mana97]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam bunun topla çarpım formülüyle ne ilgisi var

 

[musapekel]

Hocam bunun topla çarpım formülüyle ne ilgisi var

yazdığınız konuyu baştan okumanızı tavsiye ederim.

 

[Refaz]

Dosyayı inceleyemedim ama önceden application.sumproduct olarak veriler alamamıştım.
Ama evaluate ve sumproduct beraber çalışıyordu.
Yarın bakabilirim.

 

[mana97]

yazdığınız konuyu baştan okumanızı tavsiye ederim.

Okudum abi iletişim konusunda hangi cümlem seni böyle düşündürdü

 

[mana97]

Dosyayı inceleyemedim ama önceden application.sumproduct olarak veriler alamamıştım.
Ama evaluate ve sumproduct beraber çalışıyordu.
Yarın bakabilirim.

Hocam evaluate ye bende denk geldim forumlarda ancak verilen örneklerde hücrenin adresi manuel yazılıyordu vba kodunda KTF olarak dinamik hale getirmek istiyorum (kodu kullanmayı öğrenebilirsem paramarray ile yapmayı düşünüyorum)

 

[Refaz]

hücrenin adresi manuel yazılıyordu

Aslında "& a &" burda rangede yazılabilinir ama çift tırnak olayını karıştırıyorum kafadan çünkü bu evaluate olayında farklı.

 

[Refaz]

Dropbox ile arşivlemiştim.içeriğini unuttum ama indirip bir inceleyin.Ktf ye uyarlanır bence.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[mana97]

Sabah işe gidince pc den verdiğiniz linke bakayım telefondayım şuan teşekkür ederim hocam

 

[Refaz]

Tamam.Yapamazsanız bende yarın akşama doğru bakarım.Sadece kodu inceleyip mantığı uygularsınız.

 

[Refaz]

Ayrıca aratıncada sonuçlar çıkıyor.Sizin konuya uygun örnek altta.Ve sımif ysni etopla da size bence tam uyar toplaçarpım yerine.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[mana97]

Ayrıca aratıncada sonuçlar çıkıyor.Sizin konuya uygun örnek altta.Ve sımif ysni etopla da size bence tam uyar toplaçarpım yerine.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Oda olur ancak kafamda kurguladığım bir KTF var topla.çarpımın vermiş olduğu özelliği çoketopla ile düşayarayı birleştirerek parantezleri ile çok uğraşmadan yazımı ve kullanımı kolay bir KTF üretmeyi hedefliyorum

 

[Refaz]

Tamam hocam,işiniz bence görülür önemli olsn & olarak kullanılacağı için doğru ayarlayabilmek.

 

[Refaz]

Zaman bulup hazırladım.
=DENEME(E2;$A$1:$A$9;$B$1:$B$9)

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Yada alttaki gibide yapabilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Patron]

Alternatif.
ETOPLA da kullanabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Function DENEME(s1, s2 As Range, s3 As Range) Application.Volatile DENEME = Evaluate("SumProduct((" & s2.Address & " = """ & s1 & """) * (" & s3.Address & "))") End Function

Alttaki gibide olabilir ama deneyemedim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.