UserForm'daki Combobox'a Veri Girme

Katılım
4 Aralık 2022
Mesajlar
11
Excel Vers. ve Dili
Vba
Kod:
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

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Bu şekilde verileri alabilirsiniz.
Kod:
Private Sub YeniUye_Initialize()
ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Önceki kodu silip Bu kodu YeniUye isimli userforma ekleyin, bu kodu denedim çalışıyor.
Kod:
Private Sub UserForm_Initialize()
    ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub
 
Katılım
4 Aralık 2022
Mesajlar
11
Excel Vers. ve Dili
Vba
Önceki kodu silip Bu kodu YeniUye isimli userforma ekleyin, bu kodu denedim çalışıyor.
Kod:
Private Sub UserForm_Initialize()
    ikamet.RowSource = "Veri_Tabani!I5:I50"
End Sub
evet bu şekilde yorumunuzu görmeden çalıştırdım deneyerek

Kod:
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
 
Üst