Combobox Eleman Seçtirme

[AlpGD]

Merhaba

Worksheets(ComboBox1.Value).Select

Gibi bir kod kullanıyorum, combobox öğerleri aylardan oluşuyor ve her aya ait bir de sayfa var. Buraya kadar herşey düzgün çalışıyor fakat örneğin koşula bağlı olarak Şubat ayı seçili ise Ocak ayını seç gibi bir kodu kısaca nasıl verebilirim ?

Worksheets(ComboBox1.Value -1).Select gibi veya farklı şekillerde denedim fakat olmadı.

yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

Kodu bir deneyin veya dosya ekleyiniz.
Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.Value = "şubat" Then
Sheets("ocak").Select
End If
If ComboBox1.Value <> "&#351;ubat" Then
Sheets(ComboBox1.Text).Select
End If
End Sub
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

 

[AlpGD]

2. Seferdir imdadıma yetişiyorsunuz

dosya ekte, amacım işlem yapılan haftadaki sayım rakamlarını devir hanesine yazdırmak ve bir sonraki hafta seçildiğinde tekrar geri çağırtmak, kodu inceleyince anlayacaksınız zaten.

çok teşekkür ederim...

 

[AlpGD]

Syn. V.Basic For Applications, g&#246;sterdi&#287;iniz ilgiye &#231;ok te&#351;ekk&#252;r ederim ama sorunu excel &#252;zerinde form&#252;llerle &#231;&#246;zd&#252;m. &#304;lginize &#231;ok &#231;ok te&#351;ekk&#252;r ederim .