Çalışma sayfası listeleme

[hasansagun]

Selamlar,

Çalışma kitabımda 50 ye yakın çalışma sayfası var.
Bunları liste halinde son sayfama eklemek istiyorum mümkün müdür? (Köprü değil, üzerine tıklayabileceğim yada seçebileceğim bir liste)

Şimdiden teşekkür ederim.

 

[hasansagun]

Böyle bir şey buldum ama nereye ekleyeceğim nasıl yapacağım bilmiyorum..

Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub
 
Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer
For i = 1 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i
End Sub

 

[Murat OSMA]

Dosyanıza UserForm ekleyin, UserForm üzerine de bir ListBox.
UserForm'un üzerine çift tıklayın.
Açılan sayfadaki kodları silin, kendi kodlarınızı yapıştırın ve F5 tuşuna basın.

 

[hasansagun]

Yapamadım

 

[Murat OSMA]

Dosyanız ek'tedir.

F3'e her bastığnızda UserForm açılır. Listelenen sayfa isimlerinden seçim yaptığınızda ilgili sayfaya gider.

 

[hasansagun]

Çok teşekkürler.

Tablo içerisinde mağaza bilgileri vs. olduğundan rica etsem ekleri silebilir miyiz şu an?

 

[Murat OSMA]

Rica ederim.

Eklediğim dosyayı sildim.

Diğer üyelerin de istifade edebilmesi açısından kodları vereyim;

• Modüle

[FONT="Trebuchet MS"]Sub Emre()
    UserForm1.Show
End Sub[/FONT]

• ThisWorkbook(BuÇalışmakitabı) kod sayfasına

[FONT="Trebuchet MS"]Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F3}", ""
End Sub

Private Sub Workbook_Open()
    Application.OnKey "{F3}", "Emre"
End Sub[/FONT]

• UserForm'a

[FONT="Trebuchet MS"]Private Sub ListBox1_Click()
    Sheets(ListBox1.Value).Select
End Sub
 
Private Sub UserForm_Initialize()
    On Error Resume Next
    Dim i As Integer
    For i = 1 To Worksheets.Count
        ListBox1.AddItem Worksheets(i).Name
    Next i
End Sub[/FONT]

 

[hasansagun]

Yardımlarınız için ve anlayışınız için tekrar teşekkür ederim. Açılan formu tekrar kapatmadan sayfayı kapatamıyorum. Böyle mi olması gerekiyor?

 

[hasansagun]

Yardımlarınız için ve anlayışınız için tekrar teşekkür ederim. Açılan formu tekrar kapatmadan sayfayı kapatamıyorum. Böyle mi olması gerekiyor?

Liste her an sağ tarafta olsa da ben düzenlemelerimi o açıkken yapabilsem ? Böyle bir şey mümkün değil midir?

 

[Murat OSMA]

Nasıl olmasını isterseniz o şekilde düzenleriz.

UserForm'un ShowModal özelliğini False yapmanız yeterli olacaktır.

 

[hasansagun]

Nasıl olmasını isterseniz o şekilde düzenleriz.

UserForm'un ShowModal özelliğini False yapmanız yeterli olacaktır.

Yaptım ve oldu. Sanırım Excel in yapamayacağı şey yok. İşimi inanılmaz derecede kolaylaştırdınız... Eyvallah

 

[Murat OSMA]

İyi geceler.