Combobox Listeleme Hatası

[mustafa1205]

Örnek Dosyamda veriler sayfasındaki illeri comboboxda bir türlü alt alta çıkartamadım.

ComboBox1.RowSource = "veriler! A2: A" & Range("a65536").End(xlUp).Row

son dolu olan satırı alması için kod yazmaya çalıştım ama bir türlü muvaffak olamadım. Nerde hata yapıyorum acaba?

 

[Orion1]

Deneyiniz.

ComboBox1.RowSource = "veriler! A2: A" & Range("a65536").End(xlUp).Row + 1

 

[mustafa1205]

Hocam denedim ama sadece ilk il olarak "Adana" çıkıyor. Diğerleri yine görünmüyor

 

[ocamurlu]

ComboBox1.RowSource = "veriler! A2: A" & Range("a65536").End(xlUp).Row + 100 olarak denermisiniz

 

[relaxim]

Merhaba,
Bu şekilde gösterdi, ama sorun ne anlamadım.
ComboBox1.RowSource = "veriler! A2: A50" & Range("a65536").End(xlUp).Row

 

[mustafa1205]

ComboBox1.RowSource = "veriler! A2: A" & Range("a65536").End(xlUp).Row + 100 olarak denermisiniz

Teşekkür ederim kodlarınız için. Bunu yapmamda bir sıkıntı yok. Benim yapmak istediğim veri kaç adet varsa combobox okadar olarak açılsın.
Bunu yapamadım..

 

[mustafa1205]

Merhaba,
Bu şekilde gösterdi, ama sorun ne anlamadım.
ComboBox1.RowSource = "veriler! A2: A50" & Range("a65536").End(xlUp).Row

Malesefe aynı durum alt alta yüze yakın açılan satır oluyor.. Çok sağolun

 

[mustafa1205]

Örnek Dosyamda veriler sayfasındaki illeri comboboxda bir türlü alt alta çıkartamadım.

ComboBox1.RowSource = "veriler! A2: A" & Range("a65536").End(xlUp).Row

son dolu olan satırı alması için kod yazmaya çalıştım ama bir türlü muvaffak olamadım. Nerde hata yapıyorum acaba?


ilk sorumda son dolu olan satır demişim. özür dileyerek düzeltme yapmak istiyorum
Son dolu olan satıra kadar .A sütununda kaç adet veri varsa onları aldırmak istiyorum.

 

[Korhan Ayhan]

Merhaba,

Bu komut aktif sayfadaki A sütununu işleme almaktadır.

Range("a65536").End(xlUp).Row

Bu sebeple istediğiniz sonucu alamıyorsunuz.

Kodun başına sayfa adını eklerseniz sorun çözülecektir.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.RowSource = "veriler!A2:A" & Sheets("veriler").Cells(Rows.Count, 1).End(3).Row
End Sub

 

[mustafa1205]

Sayın Korhan Hocam çok teşekkür ediyorum. Bu hiç aklıma gelmemişti. Elinize Sağlık. Gayet güzel çalıştı...