combobox'tan seçilen stoğun kalanını bulma

[programer]

Arkadaşlar merhaba forumda bununla ilgili birkaç örnek buldum ama forumun aktarılması sırasında dosyalar silinmiş. Bu örneklerin çoğu topla.çarpım makrosu kullanılaarak yapılmış bende geçici bir çozüm buldum forumda. Örnek dosya ekliyorum. Aşağıdaki kodları kullanarak bişeyler yapmaya çalıştım ama beceremedim. Yardımcı olurmusunuz

Private Sub ComboBox1_Change()
g = Evaluate("=SumProduct(--($A$2:$A$65536 = ComboBox1)*--($C$2:$C$65536))")
c = Evaluate("=SumProduct(--($A$2:$A$65536 = ComboBox1)*--($D$2:$D$65536))")
Kalan.Value = Val(g) - Val(c)
End Sub

 

[programer]

Arkadaşlar bu konuda önerisi olan varmı. yardımlarınızı bekliyorum

 

[Ercan_ÇELİKOĞLU]

VAR

Arkadaşlar bu konuda önerisi olan varmı. yardımlarınızı bekliyorum

http://www.excel.web.tr/showthread.php?p=209778#post209778 çözüm için bakın

 

[programer]

Kardeş bizde canı gönülden destek veriyoruz bugün bizde taksimdeydik. Mevzu vatan ise gerisi teferruattır. M.Kemal ATATÜRK

Private Sub ComboBox1_Change()
g = Evaluate("=SumProduct(--($A$2:$A$65536 = ComboBox1)*--($C$2:$C$65536))")
c = Evaluate("=SumProduct(--($A$2:$A$65536 = ComboBox1)*--($D$2:$D$65536))")
Kalan.Value = Val(g) - Val(c)
End Sub

Bu Kodda ComboBox1 deki veriye göre nasıl topla.çarpım yapabiliriz

 

[programer]

Arkadaşlar yardımcı olabilirmisiniz

 

[programer]

Arkadaşar forumdaki örneklerden yararlanarak aşağıdaki kodları kullanarak sonuca ulaşabildim. Örnek dosyayıda ekliyorum. Umarım birilerinin işine yarar.

Private Sub ComboBox1_Change()
SEC1 = ComboBox1.Value
g = Evaluate("=SumProduct(--($A$2:$A$65536 = """ & SEC1 & """)*--($C$2:$C$65536))")
c = Evaluate("=SumProduct(--($A$2:$A$65536 = """ & SEC1 & """)*--($D$2:$D$65536))")
Kalan.Value = Val(g) - Val(c)
End Sub