Ay ay Keslen Faturaları Topla

[omeryılmaz]

Yıl içersinde Ay ay Kesilen Faturaların Toplamını TextBoxlara almak için Formdan yararlandım makro uyarladım, Ancak sonuca ulaşamadım .

Yardımlarınız için şimdiden şükranlarımı sunuyorum..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Yapılan değişiklikler kırmızı renkli olan bölümlerdir. Metinsel ifadeler formül içinde kullanılırken tırnak içinde yazılır. Siz makro bölümünde bu kuralı uygulamadığınız için hata oluşmuş.

ICL1.Text = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeC & "=[COLOR=red]"""[/COLOR] & Label324.Caption & [COLOR=red]"""[/COLOR])*(" & sRangeD & "))")
ICL2.Text = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeC & "=[COLOR=red]"""[/COLOR] & Label325.Caption & [COLOR=red]"""[/COLOR])*(" & sRangeD & "))")

 

[antrepocu]

eline sağlık cok ıyı bır paylasımmm

 

[omeryılmaz]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Yapılan değişiklikler kırmızı renkli olan bölümlerdir. Metinsel ifadeler formül içinde kullanılırken tırnak içinde yazılır. Siz makro bölümünde bu kuralı uygulamadığınız için hata oluşmuş.

ICL1.Text = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeC & "=[COLOR=red]"""[/COLOR] & Label324.Caption & [COLOR=red]"""[/COLOR])*(" & sRangeD & "))")
ICL2.Text = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeC & "=[COLOR=red]"""[/COLOR] & Label325.Caption & [COLOR=red]"""[/COLOR])*(" & sRangeD & "))")

Elinize yüreğinize sağlık teşekkürler