İstenilen İsme Gitme

[Seyit Tiken]

Ýstenilen Ýsme Gitme

Herkese Selamlar, Kolay Gelsin,
Birkaç gündür uğraşmama rağmen, istenilen çözümü bulamadım. Sorun Þu : Belli satırlarda isimler var. İsimler arasındaki satırlar dikkate alınmayacak. Yani UserForm üzerindeki ComboBox'ta sıralanırken sadece isimler görüksün ve isimler arasında boşluk oluşmasın(olmasın). Tabii ComboBox'ta isim tıklanınca, isim hangi satır ise imleç o satıra gitsin.
İsimler B sütununda bulunuyor. B, C ve D sütunları birleştirilmiş.
İlgili Dosya Ekte.

Bu Sorunla İlgili Farklı Çözüm Yolları da Olur. Saygılarımı Sunuyorum.

 

[Levent Menteşoğlu]

Comboboxun rowsource özelliğine yazdığınız aralığı silin ve userforma aşağıdaki kodu kopyalayın.

[vb:1:88f556bc3a]Private Sub UserForm_Initialize()
For a = 2 To [b65536].End(3).Row Step 4
If Cells(a, "b") <> 0 Then ComboBox1.AddItem Cells(a, "b")
Next
End Sub
[/vb:1:88f556bc3a]