ana sayfadan 200'den fazla sayfaya ulaşma

[aliakaran]

merhaba
200 sayfadan oluşan bir excelim var
ana sayfadan ekli dosyadaki gibi seçenek kutusundan nasıl ulaşabilirim.
teşekkür ederim.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub Rectangle1_Tıklat()
On Error Resume Next
Sheets(Range("c6").Text).Select
End Sub

sayfa3 deki ay anları ocak 10 olarak görünüyor ama 1.1.2010 tarihidir. listeden bunu seçtiğinizde 40179 sayısını görürsünüz.
bu adla bir sayfa olmadığından hatalı olur.
en iyisi sayfa adları nasıl yazılmışsa sayfa3 de aynı adı yazmaktır.

 

[aliakaran]

daha ayrıntılı olarak açıklayabilirmisiniz.
teşekkür edrim

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.

 

[aliakaran]

çok teşekkür ederim.
çok yardımcı oldunuz.