VBA ile sum if denemesi

[glinthalas]

Merhaba eski konuları araştırdım ama yapamadım.

Yardım edebilirseniz dosya ekte , normalde excelde yapılabilecek sumif i vba da yapmaya çalışıyorum.

kod:

h = 1
Do
Cells(h, 5).Value = Application.WorksheetFunction.SumIf(Range("a:a"), Range("d:d"), Range("b:b"))
h = h + 1
Loop Until Cells(h, 4) = ""

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sayfa üzerinde hücrelerde kullandığınız formül doğru sonucu versede yazım olarak doğru bir kullanım değildir. Doğal olarak VBA size doğru sonucu vermiyor. Kod içindeki ilgili satırı aşağıdaki şekilde değiştirip denermisiniz.

Cells(h, 5).Value = Application.WorksheetFunction.SumIf(Range("a:a"), [COLOR=red]Cells(h, "d")[/COLOR], Range("b:b"))

 

[glinthalas]

Teşekkür ederim, çözülmüştür.
Ama bu kadar çok ayrıntıyı nasıl biliyorsunuz yada mantığını aklınızda tutabiliyorsunuz şaşıyorum.