form ile excel hücrelerinde aratmak ve sonuç döndürmek

[mustad]

Vba formum var, bu formdada bir combobox var, combobox içerisinde aylar listelenmiş durumda, örneğin ekim-2005, kasım-2005...gibi
database olarak ta excel in bir sayfasını kullanıyorum, A sütununda aylar kayıtlı örneğin ekim-2005, kasım-2005 ....vs
B sütununda da sayılar var,
benim istediğim örneğin comboboxtan ekim-2005 girildi, A sütunundaki tüm ekim-2005 leri bulsun ve yanlarındaki sayıları toplasın ve sonucu bir textbox a döndersin. kasım-2005 e gelince döngüden çıksın, çok önemli teşekkür ederim.

 

[Levent Menteşoğlu]

Ã?ncelikle comboboxa aşağıdaki kodu userforma yazarak tarihleri yükleyin.

[vb:1:177922ea83]Private Sub UserForm_Initialize()
For a = 1 To 12
ComboBox1.AddItem Format(1 & "." & a & "." & 2005, "mmmm yyyy")
Next
End Sub
[/vb:1:177922ea83]

Comboboxada aşağıdaki kodu yazın. (Database in bulunduğu sayfanın ismi database kabul edilmiştir)

[vb:1:177922ea83]Private Sub ComboBox1_Click()
Set s1 = Sheets("database")
For a = 1 To s1.[a65000].End(3).Row
If Month(ComboBox1) = Month(s1.Cells(a, 1)) Then toplam = toplam + s1.Cells(a, 2)
Next
TextBox1 = toplam
End Sub[/vb:1:177922ea83]