Soru listbox boşluksuz gösterme

[Cengizhantr06]

merhaba
kodum çalışıyor a5 den a60a kadar gösteriyor ama sadece dolu satırları göstersin listboxda boşluk olmasın

Sub listebanka()
ListBox3.RowSource = "10gun!A5:A60"
ListBox3.ColumnCount = 1
ListBox3.ColumnWidths = "100"
ListBox3.ColumnHeads = True

End Sub

 

[Korhan Ayhan]

Neden benzer konuyla ilgili mükerrer başlık açıyorsunuz?

Forum kurallarını bilmiyor musunuz?

Soru - listbox rowsource

Merhabalar Listbox1 Sayfa1 A4 column heads adı olacak Sayfa1A5 den A50 ye kadar gösterecek ama sadece dolu satırları gösterecek Columncount 1 Columnwidths 85 Yardımlarınızı bekliyorum

www.excel.web.tr

 

[Cengizhantr06]

Neden benzer konuyla ilgili mükerrer başlık açıyorsunuz?

Forum kurallarını bilmiyor musunuz?

Soru - listbox rowsource

Merhabalar Listbox1 Sayfa1 A4 column heads adı olacak Sayfa1A5 den A50 ye kadar gösterecek ama sadece dolu satırları gösterecek Columncount 1 Columnwidths 85 Yardımlarınızı bekliyorum

www.excel.web.tr

Özür dilerim aceleye geldi siz ilkini silermisiniz size zahmet

 

[Korhan Ayhan]

Ek olarak rica etsem profilinizde ki ofis sürümü (Vba) yazan yere kullandığınız ofis sürümünü ve dilini yazarak güncelleyebilir misiniz?

 

[Korhan Ayhan]

Eğer RowSource kullanmak istiyorsanız sayfadaki boş hücreleri silmelisiniz.

Bunun dışında boş olmayan hücreler diziye alınıp Listbox nesnesine yüklenebilir fakat bu durumda "ColumnHeads" özelliğini kullanamayacaksınız.

Tercih sizin..

 

[Cengizhantr06]

Ek olarak rica etsem profilinizde ki ofis sürümü (Vba) yazan yere kullandığınız ofis sürümünü ve dilini yazarak güncelleyebilir misiniz?

Düzelteyim az sonra

 

[Cengizhantr06]

Eğer RowSource kullanmak istiyorsanız sayfadaki boş hücreleri silmelisiniz.

Bunun dışında boş olmayan hücreler diziye alınıp Listbox nesnesine yüklenebilir fakat bu durumda "ColumnHeads" özelliğini kullanamayacaksınız.

Tercih sizin..

ColumHeads kapatsam da olur o zaman boşluklar çıkmazmı ?

 

[Korhan Ayhan]

Boş hücrelerin bahsettiğim özellik ile bir alakası yoktur.

"ColumnHeads" özelliği RowSource metoduyla beraber kullanılmaktadır.

Siz boş hücreleri dikkate almak istemediğiniz için ve eğer sayfadan boş hücreleri içeren satırları silmezseniz RowSource metodunu kullanamayacaksınız. Dolayısı ile "ColumnHeads" özelliğini de kullanamayacaksınız.

Boş hücreleri sayfadan silmek istemiyorsanız bu hücreleri atlamak için döngü ya da dizi metodunu kullanabilirsiniz.

 

[Cengizhantr06]

Boş hücrelerin bahsettiğim özellik ile bir alakası yoktur.

"ColumnHeads" özelliği RowSource metoduyla beraber kullanılmaktadır.

Siz boş hücreleri dikkate almak istemediğiniz için ve eğer sayfadan boş hücreleri içeren satırları silmezseniz RowSource metodunu kullanamayacaksınız. Dolayısı ile "ColumnHeads" özelliğini de kullanamayacaksınız.

Boş hücreleri sayfadan silmek istemiyorsanız bu hücreleri atlamak için döngü ya da dizi metodunu kullanabilirsiniz.

Küçük bi örnek yazabilirmisiniz rica etsem müsaitseniz

 

[Korhan Ayhan]

Aşağıdaki kod 65536 satırlık veri kümesi için çalışır. Daha büyük veriler için farklı yöntem kullanmak gerekir.

Private Sub CommandButton1_Click()
    Dim Alan As Range, Veri As Variant
   
    Set Alan = Sheets("10gun").Range("A5:A60")
   
    Veri = Filter(Application.Transpose(Application.Evaluate("=IF(LEN(" & Alan.Address & ")>0," & Alan.Address & ",""#"")")), "#", False)
   
    ListBox3.List = Veri
    ListBox3.ColumnCount = 1
    ListBox3.ColumnWidths = "100"
End Sub

 

[Korhan Ayhan]

Bu kodda satır sınırlaması yoktur. Fakat sorgulanan satır sayısı artarsa veriler biraz yavaş yüklenecektir.

Private Sub CommandButton1_Click()
    Dim Veri As Variant, X As Long, Say As Long
    
    Veri = Sheets("10gun").Range("A5:A60").Value
    
    ReDim Liste(1 To 1)
    
    For X = LBound(Veri) To UBound(Veri)
        If Veri(X, 1) <> "" Then
            Say = Say + 1
            ReDim Preserve Liste(1 To Say)
            Liste(Say) = Veri(X, 1)
        End If
    Next
    
    ListBox3.List = Liste
    ListBox3.ColumnCount = 1
    ListBox3.ColumnWidths = "100"
End Sub

 

[Cengizhantr06]

Aşağıdaki kod 65536 satırlık veri kümesi için çalışır. Daha büyük veriler için farklı yöntem kullanmak gerekir.

Private Sub CommandButton1_Click()
    Dim Alan As Range, Veri As Variant
  
    Set Alan = Sheets("10gun").Range("A5:A60")
  
    Veri = Filter(Application.Transpose(Application.Evaluate("=IF(LEN(" & Alan.Address & ")>0," & Alan.Address & ",""#"")")), "#", False)
  
    ListBox3.List = Veri
    ListBox3.ColumnCount = 1
    ListBox3.ColumnWidths = "100"
End Sub

Aşağıdaki kod 65536 satırlık veri kümesi için çalışır. Daha büyük veriler için farklı yöntem kullanmak gerekir.

Private Sub CommandButton1_Click()
    Dim Alan As Range, Veri As Variant
  
    Set Alan = Sheets("10gun").Range("A5:A60")
  
    Veri = Filter(Application.Transpose(Application.Evaluate("=IF(LEN(" & Alan.Address & ")>0," & Alan.Address & ",""#"")")), "#", False)
  
    ListBox3.List = Veri
    ListBox3.ColumnCount = 1
    ListBox3.ColumnWidths = "100"
End Sub

Korhan Bey harika oldu çok teşekkür ederim bilginize hayranım işiniz rast gelsin

 

[Cengizhantr06]

Ek olarak rica etsem profilinizde ki ofis sürümü (Vba) yazan yere kullandığınız ofis sürümünü ve dilini yazarak güncelleyebilir misiniz?

Değiştirdim Korhan Bey