Boşlukları kaldırarak listeleme

[Sa.NaL]

Merhaba benim excel uzmanı arkadaşlardan ricam. Sayfada A1 den A4 kadar yazıları userformdaki command1 ile listbox1e almak istiyorum ama alırken A1 den A4 e kadar olan verilerin başlarında bulunan boşlukları görmezden gelerek listeletmesini istiyorum.Böyle bir kod yazılabilirmi?yardımlarınız için şimdiden tşk ederim.Çalışmam ekte bulunmaktadır.

 

[janveljan]

Burada rowsource özelliğini kullanmak için verileri excel içinde düzeltmek lazım, bunu yapmak isterseniz de yerleşik fonksiyonlardan Kırp Trim fonksiyonunu kullanabilirsiniz.

Private Sub CommandButton1_Click()
For Each a In Range("Sayfa1!A1:A4")
ListBox1.AddItem LTrim(a)
Next
End Sub

 

[ozgretmen]

janveljan zaten vermiş çözümü.O zaman bu da alternatif olsun bari...

Private Sub CommandButton1_Click()
For i = 1 To [A65536].End(3).Row
ListBox1.AddItem Trim(Cells(i, "A"))
Next
End Sub

 

[Sa.NaL]

Çok teşekkür ederim üstadlar Hocam beni unuttunuz ama sizden bi rica vardı baktınızmı ona geçen