istenilen sayfanın açılması

[aliballi]

excel de bir butona tıkladığımda bana gidilecek sayfa numarasını sormasını, ve yazdıktan sonrada o sayfaya gitmesini nasıl yapabilirim..
yardımcı olursanız sevinirim

 

[Ali]

Eki inceleyin.

 

[Recep İpek]

Aşağıdaki kodları deneyin.

Sub Button1_Click()
On Error Resume Next
Dim sayfa As Byte
sayfa = InputBox("Sayfa Numarasını Giriniz", "UYARI", "1")
Sheets(sayfa).Select
End Sub

 

[aliballi]

teşekkürler çok sağol..
fakat ben sayfa numaralarına değişik numaralar verdim. dolayısıyla herhangi bi numara yazdığımda eğer yazdığım rakam kadar sayfa varsa oraya gidiyor.. yani ben direk belirteceğim sayfa ismine gitmesini istiyorum..

 

[Recep İpek]

Dim sayfa As Byte

satırını

Dim sayfa As Variant

olarak değiştirin.

 

[sevecen80]

teşekkürler çok sağol..