Userform'da filtre

[iggydarsa]

Selamlar,

VBA ve form kullanalarak filtreleme (suzme) olayini kullanmaya calisiyorum

Ornek:
Sayfa1 sayfasinda soyle bilgiler var

Tarih.....UrunIsmi.......Satis....Maliyet
1-Oca.......ProdA...........10.........7
1-Oca.......ProdA...........10.........7
3-Sub.......ProdB...........12.........7
4-Mar........ProdA...........11........6
7-Mar........ProdB...........14........6 vs...

Yaratmak istedigim formda sunlar olacak

1- Baslangic Ay combobox'i (cbBeginMonth): Buraya "Ocak, Subat,.." gibi aylari koymak istiyorum fakat benim bildigim tek yontem bir Sayfada ay isimlerini bir yere yazmak ve RowSource'a o adresi vermek... Sayfa kullanmadan kod uzerinde bu aylar combobox'a doldurulabilir mi?

2- Bitis combobox'i (cbEndMonth): Durumum yukardakiyle ayni, bir excel sayfasinda aylari bir yere yazmadan bu aylari combobox'a nasil yerlestirecegimi bilmiyorum

3- Urun Ismi combobox'i (cbProdName): Bunda sorun yok...

Diyelimki cbBeginMonth (Baslangic Ayi) combobox'inda "Mart" secildi, cbEndMonth (Bitis Ayi) combox'inda "Ekim" ve cbProdName (Urun Ismi)combobox'inda "ProdA" secildi.

ProdA'nin 1-Mart ve 31-Ekim tarihleri arasindaki "Satis" ve "Maliyet" tutarlarinin toplamini Formun altinda bir yerlerde hesaplatip yazdirmak istiyorum.

Bu konuda yardimci olabilirmisiniz lutfen?

NOT: Sayfa1'de tarih formati "1-Sub" gibi gozuksede ben userform'da "Subat" gozuksun istiyorum"

Umarim aciklayici olabilmisimdir
Yardimlariniz icin simdiden tesekurler

Saygilar

 

[Levent Menteşoğlu]

comboboxlara tarih yüklemek için aşağıdaki kod kullanılabilir, birde örnek dosya ekliyorum.

[vb:1:035c309f48]Private Sub UserForm_Initialize()
For a = 1 To 12
cbBeginMonth.AddItem Format(DateSerial(2005, a, 1), "mmmm")
cbEndMonth.AddItem Format(DateSerial(2005, a, 1), "mmmm")
Next
End Sub[/vb:1:035c309f48]