Listbox içindeki verinin sağa doğru olan boyutu

[frksfu]

DEğerli ustalarm; data veri tabanından listboxuma istediğim hücrelerdeki verileri alıyorum. Ancak hersütundan gelen verini sağa doğru uzunluğu farklı, ben bunları listboxlarda standart bir aralıkta görüyorum. Benim istediğim bir sütunda 9 karakter yazı varsa onu listboxta 11 karakter boşluk (örnek telefon no),40 karakter yazı varsa onu listboxta 43 karakter boşluk (örnek adres) içinde görünmesini istiyorum olabilirmi. Şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[frksfu]

Sayın Levent Menteşoğlu Örnek Dosya ekte Adres tam gözükmüyor ben adresin görüntülendiği yeri genişletip adresin tam görünmesini istiyorum bazı adresler uzun oluyor örneğin telefonun görüntülendiği yeri veya soyadı satırını ufaltmak istiyorum

 

[Levent Menteşoğlu]

userformun initialize olayına aşağıdaki kodları ekleyin. Kod, data sayfasındaki sütun genişliğine göre listboxun sütunlarının genişliğini ayarlayacaktır.

Set s1 = Sheets("data")
s1.[b:f].EntireColumn.AutoFit
For a = 2 To 6
genislik = s1.Columns(a).Width
deger1 = deger1 & isaret & genislik
isaret = ";"
Next
ListBox1.ColumnWidths = Replace(deger1, ",", ".")
ListBox1.RowSource = "data!b2:f" & s1.[d65536].End(3).Row

 

[frksfu]

Sayın Levent Menteşoğlu çok teşekkür edrim

 

[frksfu]

sayın menteşoğlu söylediğiniz gibi userformun initialize kısmına ekledim ancak Bul komutunun üstüne eklersem fark ettimki listboxta tek satır gözüküyor ve süzme yapmıyor -ancak bul komutunun altına eklersem görev yapıyor ancak süğzme yapmıyor dosya ekte

 

[Levent Menteşoğlu]

Bul textboxundaki kodların en başına aşağıdaki satırı ekleyin.

ListBox1.RowSource = ""

 

[frksfu]

teşekkürler sayın menteşoğlu problem çözüldü sağolun