Userform kod hatası

[faruk588]

Arkadaşlar bu kodu bir arkadaşımızın yaptığı userformdan aldım gerekli değişiklikleri yapmaya çalıştım fakat kod hata veriyor ve ne olduğunu anlayamadım. Dosyayı ekliyorum. Yardım edecek arkadaşlara şimdiden teşekkürler.

 

[dEdE]

Merhaba,

Private Sub UserForm_Initialize()
    Yeni_mi = True
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "80;120"
    ListBox1.RowSource = "ÖĞRENCİ KAYIT!B2:C" & Sheets("ÖĞRENCİ KAYIT").Range("A65536").End(xlUp).Row
End Sub

Kodda yer alan ListBox1 nesnesi UserForm üzerinde yok. Bunun için hata veriyor. Bu üç satırı silerseniz UserFormunuz açılacaktır.
Hoşça kalın.