textbox yazılı olan sayfaya gitme

[E-rcn]

arkdaşlar excelde bi textbox koydum ve sayfaları 1 den 50 ye kadar yazdım bu textboxta 15 yazdıgım zaman bana 15 sayfayı açmasını istiyorum ama çok acemi oldugum için sizden bana örnek bi uygulama yapmanızı rica ederim :S
iyi akşamlar

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub TextBox1_Change()
On Error Resume Next
Sheets(TextBox1.Text).Select
TextBox1 = ""
End Sub

 

[E-rcn]

tşk ederim ama bunda iki haneli sayı girmeden direk tek haneli sayıya gidiyo :S

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Seyit Tiken]

TextBox'a sayfa no'yu girerek entere basın. Ana Sayfaya tekrar gelmek için herhangi bir hücreye çift tıklayın.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Me.TextBox1 = "" Then Exit Sub
Sheets(TextBox1.Text).Select
Me.TextBox1 = ""
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Sayfa1.TextBox1.Activate
End Sub