topla.çarpım

[vivident]

merhaba

Office 2013'te çalışan makro Office 365'te çalışmıyor
Nerede hata var anlamadım. type mistmatch hatası alıyorum.

Sub MG()
If Evaluate("=SumProduct((A1:A6 = ""A"") * (B1:B6=""A""))") = 1 Then
MsgBox "ok"
End If
End Sub

 

[Haluk]

Aşağıdaki resimde belirtilen yerdeki seçimi kaldırtıktan sonra kodları deneyin...

.

 

[vivident]

Haluk bey işareti kaldırınca düzelti. bazen range yerine cells kullandığım kodlar var. Dosyada bir tane örnek var. Onda çalışmadı örneğin.

Bazen dosya R1C1 olarak dönüşüyor. Sürekli bu işareti kaldırmak problem yaratabilir. Daha kısayolu varmıdır, veya başka seçenek.

 

[Tevfik_Kursun]

Merhaba,
2. satırı şekildeki gibi değiştirin
iyi çalışmalar

Sub MG()
If Evaluate(("=SumProduct((A1:A6 = ""A"") * (B1:B6=""A""))")) = 1 Then
'If ("=SumProduct((A1:A6 = ""A"") * (B1:B6=""A""))") = 1 Then
MsgBox "ok"
End If
End Sub