İstediğin sayfaya gitmek

[Jeeday]

yaklaşık 360 tane sheetten oluşan bir dosyam var. her sheet'e bi tane buton koymak istiyorum. bu butona tıkladığımda yazacağım sheet adına göre beni o sheete yollasın... böle bişi yapılabilir mi?

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Activate
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 1 To Sheets.Count
        ListBox1.AddItem Sheets(i).Name
    Next
End Sub

 

[Necdet]

Merhaba,

Hersayfaya buton koymayıp ta her sayfanın 1. satırındaki herhangi bir hücreye çift tıklasanız olmaz mı?

Böyle olsun isterseniz aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalayınız.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Row <> 1 Then Exit Sub
Dim Sayfa As String
Sayfa = InputBox("Sayfayı Giriniz", "Başlık")
If Sayfa = "" Then Exit Sub
Sheets(Sayfa).Select
End Sub

 

[Jeeday]

buton falan hiçbir şey çıkmıyor. bomboş sayfa açıldı kitap1.xls'de

 

[Jeeday]

necdet harika olmuş
tam istediğim...
çok saol...