MsgBox ta mesaj

[gatemsedat]

Herkese merhaba bir buton yaptım ve bu butona bir makro atadım. Butona tıklayınca aşağıdaki kod çalışıyor ve hücre içerisine değeri yazıyor. Amacım butona tıklayınca değer hücre içerisinde değil de mesaj kutusunda gelsin bir türlü yapamadım. Kod aşağıdadır.
"=SUMPRODUCT((RC[-5]:R[248]C[-5]=""Darıca"")*(RC[-4]:R[248]C[-4]=""og"")*(RC[-3]:R[248]C[-3]))"

Bunu MsgBox içerisine bir türlü gömemedim.

 

[kan-nas]

a= "=SUMPRODUCT((RC[-5]:R[248]C[-5]=""Darıca"")*(RC[-4]:R[248]C[-4]=""og"")*(RC[-3]:R[248]C[-3]))"

msgbox a

olabilir.

 

[Korhan Ayhan]

Merhaba,

Değeri görüntülemek için EVALUATE komutunu kullanmanız gerekir.

MsgBox Evaluate("=SUMPRODUCT((A2:A250=""Darıca"")*(B2:B250=""og"")*(C2:C250))")

Adresleri kendinize göre düzenleyiniz.

 

[gatemsedat]

a= "=SUMPRODUCT((RC[-5]:R[248]C[-5]=""Darıca"")*(RC[-4]:R[248]C[-4]=""og"")*(RC[-3]:R[248]C[-3]))"

msgbox a

olabilir.

Bu şekilde denediğimde boş değer döndürüyor.

 

[gatemsedat]

Merhaba,

Değeri görüntülemek için EVALUATE komutunu kullanmanız gerekir.

MsgBox Evaluate("=SUMPRODUCT((A2:A250=""Darıca"")*(B2:B250=""og"")*(C2:C250))")

Adresleri kendinize göre düzenleyiniz.

Bunu denediğimde de ağağıdaki hatayı veriyor.
Compile error:
Syntax error

 

[gatemsedat]

Arkadaşlar kodu tam olarak gönderiyorum aşağıda bu şekilde sorun yok F2 hücresine değeri yazıyor. Amacım butona tıklandığında değer hücrede değil mesaj kutusunda gelsin. Yardım ederseniz sevinirim.

Sub darica_og()
'
' darica_og Makro
'

'
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((RC[-5]:R[248]C[-5]=""Darıca"")*(RC[-4]:R[248]C[-4]=""og"")*(RC[-3]:R[248]C[-3]))"
Range("F2").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde deneme yaptım ve olumlu sonuç aldım.

Sub TEST()
    MsgBox Evaluate("=SUMPRODUCT((A1:A249=""Darıca"")*(B1:B249=""og"")*(C1:C249))")
End Sub

 

[gatemsedat]

Merhaba,

Aşağıdaki şekilde deneme yaptım ve olumlu sonuç aldım.

Sub TEST()
    MsgBox Evaluate("=SUMPRODUCT((A1:A249=""Darıca"")*(B1:B249=""og"")*(C1:C249))")
End Sub

Bu seferde aşağıdaki hatayı alıyorum.
Run-time error '13':
Type mismatch

Altında da End, Debug, Help butonları var.

 

[Korhan Ayhan]

Merhaba,

Bu durumda sizin uyguladığınız dosyada farklı bir durum var. Eklerseniz inceleme fırsatımız olabilir.

Not: Excel versiyon diliniz nedir? (TR - EN)

 

[Ömer]

Merhaba,

Tahmin yürütüyorum;

Korhan Bey'in kodu sizde çalışmayıp hata verdiyse,

Hücre başvuru sitili R1C1 olma ihtimali yüksektir.

Sub TEST()
    MsgBox Evaluate("=SUMPRODUCT((R1C1:R249C1=""Darıca"")*(R1C2:R249C2=""og"")*(R1C3:R249C3))")
End Sub

Bu şekilde denermisiniz.

.