UserForm'daki Combobox'a Veri Girme

[Emson]

Private Sub YeniUye_Initialize()
Set Bolge = Sheets("Veri_Tabani").Range("I5:A65536")
ikamet.RowSource = Bolge
End Sub

Private Sub ikamet_Change()
Set Bolge = "Veri_Tabani!I5:I50"
ikamet.RowSource = Bolge
End Sub

Private Sub YeniUye_Initialize()
son = Sheets("Veri_Tabani").Cells(60000, 1).End(xlUp).Row
For x = 1 To son
    If Sheets("Veri_Tabani").Cells(x, 1) <> "" Then ikamet_Change.AddItem Sheets("Veri_Tabani").Cells(x, 1)
    Next x
End Sub

3 farklı kod denedim ama combobox'a veri gelmiyor bir türlü

 

[AdemCan]

Bu şekilde verileri alabilirsiniz.

Private Sub YeniUye_Initialize()
ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub

 

[Emson]

Bu şekilde verileri alabilirsiniz.

Private Sub YeniUye_Initialize()
ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub

yok çalışmıyor

 

[AdemCan]

Önceki kodu silip Bu kodu YeniUye isimli userforma ekleyin, bu kodu denedim çalışıyor.

Private Sub UserForm_Initialize()
    ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub

 

[Emson]

Önceki kodu silip Bu kodu YeniUye isimli userforma ekleyin, bu kodu denedim çalışıyor.

Private Sub UserForm_Initialize()
    ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub

evet bu şekilde yorumunuzu görmeden çalıştırdım deneyerek

Private Sub Ekle_Click()


For a = 1 To 100
'
Next
sonsat = [b65536].End(3).Row + 1
sonsat = [c65536].End(3).Row + 1
sonsat = [d65536].End(3).Row + 1
sonsat = [e65536].End(3).Row + 1
sonsat = [f65536].End(3).Row + 1
sonsat = [g65536].End(3).Row + 1

For sayi = 1 To 100
'
Next
sayi = [b65536].End(3).Row + 1
Sheets("Veri_Tabani").Cells(sayi, 1) = sayi

Sheets("Veri_Tabani").Cells(sonsat, 2) = AdSoyad.Text
Sheets("Veri_Tabani").Cells(sonsat, 3) = ikametgah.Text
Sheets("Veri_Tabani").Cells(sonsat, 4) = Plaka.Text
Sheets("Veri_Tabani").Cells(sonsat, 5) = Telefon.Text
Sheets("Veri_Tabani").Cells(sonsat, 6) = KanGrubu.Text
Sheets("Veri_Tabani").Cells(sonsat, 7) = Yakintel.Text

End Sub

bu şekilde bir kodum var butonla verileri alt alta ekliyor ama sayi adlı kodum 1 den başlamıyor
ilk veri girişinde yazmıyor 2.veri girişimde 6 dan başlıyor hücre sayısıyla aynı gidiyor