listbox'a veri aktarma

[görkem23]

İyi Günler

Excel sayfasında A sütununa yazdığım şehirleri ilk boşluğa kadar listbox'a aktarmak istiyorum. Mesela excel sayfasında a sütununa yeni bir şehir eklediğimde otomatik olarak listboxta da görünsün. Bunu nasıl yapabilirim?

Yardımlarınız için şimdiden teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Listbox userform üzerinde mi yoksa sayfa üzerinde mi.

. . .

 

[görkem23]

. . .

Listbox userform üzerinde mi yoksa sayfa üzerinde mi.

. . .

İyi Günler, Userform üzerinden

 

[Emir Hüseyin Çoban]

. . .

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A[B][COLOR="Red"]1[/COLOR][/B]:A" & Cells(Rows.Count, "A").End(3).Row
End Sub

. . .

 

[görkem23]

. . .

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A[B][COLOR="Red"]1[/COLOR][/B]:A" & Cells(Rows.Count, "A").End(3).Row
End Sub

. . .

Teşekkür ederim. Peki başka bir userform üzerinden inputbox ile excel'e şehir ekletiyorum ve bunu ilk boş satıra yazdırıyorum. Bu kod ile Bu şehir listbox'da görünmüyor maalesef. Bu konuda yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

İnputbox ile ekletme kodlarının sonuna şu satırı ilave edin.
Yapamazsanız tablonuzun örneğini yükleyin.

[COLOR="DarkRed"]Userformismi[/COLOR].ListBox1.RowSource = "A1:A" & Cells(Rows.Count, "A").End(3).Row

. . .

 

[görkem23]

teşekkür ediyorum sorunum çözüldü