Userformda listeleme

[vasifokur]

Herkese hayırlı ramazanlar. Sitenizden almış olduğum bir çalışma var. Bu çalışmada rakamlar listeleniyor.Metinler ise listelenmiyor. Bu konuda yardımcı olur musunuz ?

 

[turk-x]

Sayın vasifokur

userformdaki:

ComboBox1.RowSource = [3!a:a].SpecialCells(xlCellTypeFormulas, 1).Address
ComboBox2.RowSource = [3!a:a].SpecialCells(xlCellTypeFormulas, 1).Address

kodlarını aşağıdaki gibi değiştirin

ComboBox1.RowSource = "a1:a" & [a65536].End(3).Row
ComboBox2.RowSource = "a1:a" & [a65536].End(3).Row

 

[vasifokur]

Sayın vasifokur

userformdaki:

ComboBox1.RowSource = [3!a:a].SpecialCells(xlCellTypeFormulas, 1).Address
ComboBox2.RowSource = [3!a:a].SpecialCells(xlCellTypeFormulas, 1).Address

kodlarını aşağıdaki gibi değiştirin

ComboBox1.RowSource = "a1:a" & [a65536].End(3).Row
ComboBox2.RowSource = "a1:a" & [a65536].End(3).Row

Sayın turk-x ; öncelikle yanıtınıza teşekkür ederim. İsteğim bir nebze oldu ama bu sefer de hata değil de şöyle bir şey oluşuyor. Ben o sütunda kaç hücre dolu ise sadece onların görünmesini istiyorum. Sizin dediğiniz gibi yapınca isimle gözüküyor ama boş hücreler de listeleniyor. Boş hücrelerin user formda çıkmasını istemiyorum.

 

[turk-x]

Yukarıda verdiğim kod en son dolu olan hücreye kadar işlem yapar.
Ama siz arada boş olan hücrelerimde var diyorsanız. basit bi döngü boş olan hücrelerin listelenmesini engelleyebiliriz.
Dosyanız da veriler 2.satırdan başlıyordu. Buna Göre başlangıç satırını 2 olarak ayarlıyorum

Private Sub UserForm_Initialize()
For i = 2 To [a65536].End(3).Row
If Range("a" & i).Text <> "" Then
ComboBox1.AddItem Range("a" & i)
ComboBox2.AddItem Range("a" & i)
End If
Next i

End Sub

 

[vasifokur]

Sn Turk-x ; verdiğiniz bilgiler için çok teşekkür ederim.