Sayfadaki Combobox'a Sayfa Adlarını Yazdırma ve Sayfaya Otomatik Geçme

[İhsan Tank]

selam arkadaşlar benim çalışmamda bir sürü çalışma sayfası var ben bu sayfalara nasıl otomatik geçebilirim yardımlarınız için şimdiden teşekkür ederim

 

[ersoyalan]

Merhaba,

İlgili örneği kullanabilirsiniz.

İyi çalışmalar.

 

[İhsan Tank]

Merhaba,

İlgili örneği kullanabilirsiniz.

İyi çalışmalar.

yardımların için teşekkür ederim

 

[ersoyalan]

Rica ederim,

 

[halit3]

selam arkadaşlar benim çalışmamda bir sürü çalışma sayfası var ben bu sayfalara nasıl otomatik geçebilirim yardımlarınız için şimdiden teşekkür ederim

sayfanun kod bölümüne aşağıdaki kodu yapıştırınız.

not sayfa ismlerinizi -- tire işaretleri kullanmayınız.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub
Private Sub Worksheet_Deactivate()
Sheets("GENEL").ComboBox1.Text = ""
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets("GENEL").ComboBox1.AddItem Sheets(i).Name
Next
End Sub

 

[İhsan Tank]

halit3
Uzman

hocam çok teşekkür ederim ben farklı bir şekilde çözdüm ama genede başka arkadaşların bilgi olsun örnek dosyayı ekliyorum çözümü halit hocamın verdiği bilgi dahilinde yaptım
isteyen olursa farklı çözümleri mevcuttur