ComboBox İle Sayfa geçişi

[Metin55]

Günaydınlar;
Ekteki örnek dosyada ComboBox1'den 1.sayıyı seçtiğimde "A" sayfası,2.sayıyı seçtiğimde "B" sayfası,3.sayıyı seçtiğimde "C" sayfasına geçiş yapabilirmiyiz ?.Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Linkleri inceleyin.
http://www.excel.web.tr/f48/combobox-ile-sayfa-secme-t51893.html
http://www.excel.web.tr/f48/combobox-deoeri-ile-sayfa-secme-t41436.html

 

[Metin55]

Hamit bey sayfa geçişlerini ComboBox1 'den a,b,c sayfalarını seçtiğimde geçişler oluyor.Fakat benim yapmak istediğim sayfaları 1,2,3 ile eşleştirmek.Yani ComboBox1 den 1 seçtiğimde karşılığına gelen a sayfasına geçebilmesidir.Bu işlemi yapamadım

 

[Metin55]

Arkadaşlar rica etsem yardımcı olabilirmisiniz?

 

[hamitcan]

Sayfa içindeki gibi mi olacak yoksa sürekli 1 rakamı A sayfasını mı kastedecek ?

 

[Metin55]

ComboBox1 'den 1 seçtiğim zaman A sayfası gelecek Hamit bey

 

[hamitcan]

Aşağıdaki kodu, VERİ sayfasının kod kısmına ekleyin.

Private Sub ComboBox1_change()
 a = ComboBox1.List(ComboBox1.ListIndex, 1)
 Sheets(a).Select
End Sub

Aşağıdaki kodu, ThisWorkBook sayfasının kod kısmına ekleyin.

Private Sub Workbook_Open()
    Sheets("VERİ").ComboBox1.ListFillRange = "VERİ!B18:c23"
End Sub

 

[Metin55]

Hamit bey hata veriyor.

 

[hamitcan]

Farkettim. Kodları aşağıdakiler ile değiştirin.

Private Sub ComboBox1_change()
    If ComboBox1.ListIndex = -1 Then Exit Sub
    a = ComboBox1.List(ComboBox1.ListIndex, 1)
    Sheets(a).Select
End Sub

Private Sub Workbook_Open()
    Sheets("VERİ").ComboBox1.ListFillRange = "VERİ!B18:c23"
    Sheets("VERİ").ComboBox1.ColumnCount = 2
    Sheets("VERİ").ComboBox1.BoundColumn = 2
End Sub

 

[Murat OSMA]

Sn. hamitcan Bey'in müsadesiyle alternatif olarak bu kodları da kullanabilirsiniz;

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then Sheets(ComboBox1.ListIndex + 2).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ListFillRange = "B19:B21"
End Sub

 

[hamitcan]

Murat Bey, müsaade sizin. Alternatif çözümlere de herzaman açığız, böyle düşünün.

 

[Murat OSMA]

Biliyorum Sn. hamitcan Bey, ama yine de müsade istemeden bir büyüğümün mesajından sonra yazmak âdetim değildir. Üstelik konuya sonradan müdâhil oldum...

Saygılar.

 

[hamitcan]

Murat Bey, ince düşünceleriniz için teşekkürler.