Combobox ın seçim alanı

[excelman]

Merhabalar;

Combobox ın Rows.özelliğini makro ile belirlemek istiyorum.

*Mesela A sütununda dolu olan hücreleri seçecek ve tekrarlanmayan değerleri gösterecek.Yani A sütununda ki isimlerden tekrarlanmayanları seçecek.

Kolay Gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu userforma yazarsanız,ilk açılışta A sütunundaki verileri tekrarsız olarak comboboxa aktarır.

[vb:1:0bc8e6ce09]Private Sub UserForm_Initialize()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1).Value) = 1 Then
UserForm1.ComboBox1.AddItem Cells(a, 1).Value
End If
Next a
End Sub[/vb:1:0bc8e6ce09]

 

[excelman]

Kodlar istediğimi yaptı.
Cevabınız için teşekkürler.

 

[entropy_tr]

Kodu çalıştırmadım ama, kafamda canlandırdım. Hakikaten güzel olmuş, ben satırlar dolusu kod yazardım yinelenmeyen veriler için. aklınıza, elinize sağlık Sn. leventm