CommandButton sorunu

[yavuz829]

UserForm sorunu sorunu

Merhaba arkadaşlar

*Gelir-Gider Butonuna tıkladığım zaman UserFom2 açılıyor ancak sayfalar ListBoxda görünmuyor.
* UserFom2 de sayfalar görünsün ve listbox da görünen sayfanın üzerine tıkladığımız zaman o sayfanın açılmasını istiyorum.

Bu konularda yardımlarınızı bekliyorum.

Sayfaları koruma parolası:123

 

[Emir Hüseyin Çoban]

. . .

Listbox görünmüyor ise. Form üzerinde silip tekrar ekleyin.
Not: Userform2 boyutlarınıda biraz küçültün. Ekrana sığmıyor.

Userform2 için kodlar.

Private Sub ListBox1_Click()
    a = ListBox1.Column(0)
    Sheets(a).Select
End Sub

Private Sub UserForm_Initialize()
    For i = 1 To Sheets.Count
        ListBox1.AddItem Sheets(i).Name
    Next i
End Sub

Ekran Görüntüsü:

. . .

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık.