Otomatik sayfa ismi okuma

[badmad34]

Merhaba arkadaşlar,

Eklediğim çalışma kitabında bulunan sayfa isimlerini okuyarak, userform'daki combobox'a yazdıracak kodu nasıl yazabilirim?

 

[Ömer]

Merhaba,

Form'un kod bölümüne;

Private Sub UserForm_Initialize()
 
    Dim i As Integer
 
    For i = 1 To Worksheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next i
 
End Sub

.

 

[badmad34]

Çalıştı, teşekkür ederim