ComboBox ile sayfalara gitme

[zafer007]

Merhabalar arkadaşlar,

Ben şimdi şöyle bir şey yapmak istiyorum..

Combobox'da aylar yazacak (aylar adında sheetler var tabiki) ve kullanıcı istediği ayı combobox'dan seçtiği zaman, o sheet(yan o aya gidecek) gidecek.. Nasiıl yapabilirim acaba yardımcı olabilirmisiniz.

Acil olarak.....

 

[programer]

Aşağıdaki Kodlar sanırım işinizi görür

Private Sub ComboBox1_Click()
    Sheets(ComboBox1.Text).Select
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Ocak"
ComboBox1.AddItem "Şubat"
ComboBox1.AddItem "Mart"
ComboBox1.AddItem "Nisan"
ComboBox1.AddItem "Mayıs"
ComboBox1.AddItem "Haziran"
ComboBox1.AddItem "Temmuz"
ComboBox1.AddItem "Ağustos"
ComboBox1.AddItem "Eylül"
ComboBox1.AddItem "Ekim"
ComboBox1.AddItem "Kasım"
ComboBox1.AddItem "Aralık"
End Sub

 

[Seyit Tiken]

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub

Private Sub UserForm_Initialize()
For Each sayfa In Worksheets
ComboBox1.AddItem sayfa.Name
Next
End Sub

Şeklinde deneyebilirsiniz.

 

[zafer007]

Değerli arkadaşlar öncelikle iliginiz ve yardımlarınız için teşekkür ederim.

Ancak benim tam olarak istediğim ekteki dosyadaki gibi olacak..

Yardımlarınızı bekliyorum..

 

[programer]

Ekteki Örneği İncelermisiniz