Topla Çarpım #AD hatası

[soykan]

ahmet 200
ahmet 300
mehmet 100
mehmet 60
ahmet 50
ahmet 90
mehmet 60
mehmet 100

Yukarıdaki gi bir data da topla çarpım fonksiyonunu uygulamak istiyorum.
Aşağıdaki gibi vba da kodu yazıyorum.
Fonksiyonu hücreye yazdığında #AD? çıkıyor.
Ahmetin başına ve sonuna " koyamıyorum nasıl yapabilirim.
Formül hücrede aşağıdaki gibi görünüyor.
=TOPLA.ÇARPIM((A2:A9 =ahmet )*(B2:B9))

Cells(2, "e") = "=SUMPRODUCT((a2:a9 =" & Sayfa1.Cells(2, "d") & " )*(b2:b9))"

Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Cells(2, "e") = "=SUMPRODUCT((a2:a9 =""" & Sayfa1.Cells(2, "d") & """)*(b2:b9))"

.

 

[soykan]

Çok Teşekkürler