Textboxlarda Şarta Bağlı Toplam

[SİBEL70]

Merhabalar,

Ekte ki örnek dosyada; form üzerinde; ürün adı (comboboxlar1) seçildiğinde; genel ürün stok durumu adlı framedeki textboxlara, seçilen ürünün giriş çıkış toplamları, ay (combobox2) seçildiğinde aylık ürün stok durumu adlı frame deki textboxlara, combobox1 de seçili olan ürünün ay içindeki giriş çıkış toplamlarını aldırmak ve giriş çıkış sonrası kalan seçili ürünün miktarını hesaplatmak istiyorum. Bu konuda yardımcı olabilirseniz sevinirim.
Saygılar,

 

[SİBEL70]

Arkadaşlar mesajı yukarı taşımak için mesaj atıyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz. Kod 5.000 satır veride çalışacak şekilde düzenlenmiştir.

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
    TextBox1 = Evaluate("=SUMPRODUCT((I2:I5000=""" & ComboBox1 & """)*(B2:B5000=""GİRİŞ"")*(O2:O5000))")
    TextBox2 = Evaluate("=SUMPRODUCT((I2:I5000=""" & ComboBox1 & """)*(B2:B5000=""ÇIKIŞ"")*(O2:O5000))")
    TextBox1 = Format(Replace(TextBox1, ".", ","), "#,##0.00")
    TextBox2 = Format(Replace(TextBox2, ".", ","), "#,##0.00")
    TextBox3 = CDbl(TextBox1) - CDbl(TextBox2)
    TextBox3 = Format(Replace(TextBox3, ".", ","), "#,##0.00")
    Else
    TextBox1 = "": TextBox2 = "": TextBox3 = ""
    End If
End Sub
 
Private Sub ComboBox2_Change()
    If ComboBox1 <> "" And ComboBox2 <> "" Then
    TextBox4 = Evaluate("=SUMPRODUCT((I2:I5000=""" & ComboBox1 & """)*(B2:B5000=""GİRİŞ"")*(P2:P5000=""" & ComboBox2 & """)*(O2:O5000))")
    TextBox5 = Evaluate("=SUMPRODUCT((I2:I5000=""" & ComboBox1 & """)*(B2:B5000=""ÇIKIŞ"")*(P2:P5000=""" & ComboBox2 & """)*(O2:O5000))")
    TextBox4 = Format(Replace(TextBox4, ".", ","), "#,##0.00")
    TextBox5 = Format(Replace(TextBox5, ".", ","), "#,##0.00")
    TextBox6 = CDbl(TextBox4) - CDbl(TextBox5)
    TextBox6 = Format(Replace(TextBox6, ".", ","), "#,##0.00")
    Else
    TextBox4 = "": TextBox5 = "": TextBox6 = ""
    End If
End Sub

 

[SİBEL70]

Korhan Bey merhabalar,

Desteğiniz için teşekkürler bu şekilde gayet iyi çalışıyor.

Saygılar,