makro hata veriyor

[mutlu erdal erdem]

Private Sub CommandButton3_Click()
On Error Resume Next
son = [A6500].End(3).Row
listbox4.List(0,0)=SUMPRODUCT((BT12:BT6500="1821002800S ")*(A12:A6500="OCAK")*(AM12:AM6500))
End Sub

Bu makro hata veriyor yanlış nerde acaba ve tarihi ocak yerine 01,02,03 şeklinde aylara göre nasıl alabilirim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton3_Click()
On Error Resume Next
son = [A6500].End(3).Row
listbox4.List(0,0)=[COLOR=blue][B]evaluate("=[/B][/COLOR]SUMPRODUCT((BT12:BT6500="182100 2800S ")*(A12:A6500="OCAK")*(AM12:AM6500))"[COLOR=blue][B])[/B][/COLOR]
End Sub

 

[mutlu erdal erdem]

tşk ederim

levent bey o şekildede denemiştim ama yinede aynısını kopyalayıp yapıştırdım ama yine hata veriyor .Bir türlü anlamadım .aynı şekilde diğer makrolar çalışıyor ama bu hata verdi.BT sütununu birleştirilmiş verilerden alıyorum yani şu şekilde 18&2100&2800&S diyerek herbirsatırdaki verileri birleştiriyorum bt sütununda acaba onlamı ilgili çünkü aynı kod ile çalışan diğer makrolarım çalışıyor.Başka bir yolmu izlemek gerekiyor?