Süzerek ayrı toplamları aldırmak

[Araştırıcı]

Değerli üyeler
Selamlar.

Ekteki dosyamda tutar sütununu yandaki Kur sütununa göre, user form üzerinden bir buton yardımı ile Euro ve Ytl olarak ayrı ayrı toplamlarını aldırmak istiyorum. Bunu nasıl kodlayabiliriz?

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Dosyanıza aşağıdaki nesneleri ekledikten sonra formun kod bölümüne aşağıdaki kodu uygulayın.

1 adet UserForm
2 adet TextBox
1 adet CommandButton

Private Sub CommandButton1_Click()
    TextBox1 = Format(WorksheetFunction.SumIf([B:B], "EURO", [A:A]), "#,##0 €")
    TextBox2 = Format(WorksheetFunction.SumIf([B:B], "YTL", [A:A]), "#,##0 YTL")
End Sub

 

[Araştırıcı]

Sayın CostControl
Bir kez daha Merhaba,

cevabınız için çok teşekkür ederim. Birşey daha sormak isterim. Acaba verileri Sayfa 2 den almış olsa idik, böyle bir durumda, kodlara nasıl değişir?

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Bu durumda [B:B] ifadesi için örneklersek aşağıdaki şekilde uygulamalısınız.

Sheets("Sayfa2").[B:B]

 

[Araştırıcı]

Çok çok teşekkür ederin sayın CostControl

Böyle bölük bölük sormamdan dolayı bana kızmayın bunun sebebi birazda üst üste bir çok soru sormamak içindir.

Son olarak:
Şarta bağlı olarak da bir çalışma yapmak istiyorum. Önce gönderdiğim dosyamdaki "C" sütununda olumlu yazanları sadece toplatmak istersek kodlar nasıl yazılır? Bu türden de hiç yöntem bilmiyorum.
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Sadece C sütunundaki kritere göremi toplam istiyor sunuz? Yoksa hem C sütunu hemde B sütununa göre çift kriterli bir toplamamı istiyor sunuz?

 

[Araştırıcı]

Selamlar,

Şimdi B deki YTL ve € ya göre ayrı toplamlar aldırdım bir butonla. Ayrı bir butonla C de "OLUMLU" YAZAN HÜCRELERİ" sadece toplamak kaydı ile, YTL ise YTL textbox'ına; € ise Euro textbox'ına toplam alması şeklinde.

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    TextBox1 = Format(Evaluate("=SumProduct((B2:B65536 =""EURO"") * (C2:C65536 = ""OLUMLU"") * (A2:A65536))"), "#,##0")
    TextBox2 = Format(Evaluate("=SumProduct((B2:B65536 =""YTL"") * (C2:C65536 = ""OLUMLU"") * (A2:A65536))"), "#,##0")
End Sub

 

[Araştırıcı]

Merhaba sayın Cost_Control,

yardımınız için çok saolun, bu kodlamaı çalışmama problemsiz uyarladım. Birşey dikkatimi çekti: textBoxların içersine aktarılacak değerlerin ondalık kısımları ile ilgili bir soru takıldı aklıma..

TextBox içersinde 1.000 gibi bir değeri yandaki gibi ifade edebiliyoruz #,##0
1000,0 ya da 1000,00 şeklini nasıl kodlamak gerekir?

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Ondalıklı değerleri sağlıklı şekilde göstermek için aşağıdaki şekilde kullanabilirsiniz.

#,##0.00

Not: Forumda bu tür konular defalarca işlenmiştir. Arama bölümünü kullanarak birçok örneğe ulaşabilirsiniz.