Soru userform ile sayfaları değiştirme

[Yigit7444]

merhaba
userform üzerinde listbox var sayafaları değiştiriyor
bunu listview e çevirmek istiyorum
yardımlarınız için teşekkürler

 

[AdemCan]

Merhaba,
Listview için örnek.

Sayfaları listeleme kodları.

Sub listele2()
Dim x As Integer
With ListView1
    .ColumnHeaders.Clear
    .ListItems.Clear
    .ColumnHeaders.Add , , "Sayfalar"
    .View = lvwReport
    For x = 1 To Sheets.Count
        .ListItems.Add , , Sheets(x).Name
    Next
End With
End Sub

Tıklanan sayfanın seçilmesi.

Private Sub ListView1_Click()
Sheets(ListView1.SelectedItem.Text).Select
End Sub

UserForm_Initialize ve buton kodlarına da listele2 başlığını ekleyiniz.