ListBox1.RowSource sorunu

[heft]

Merhaba,

a = WorksheetFunction.CountA(Sheets("veri").Range("A2:A65536")) + 1
ListBox1.RowSource = "veri!A2:N" & a
ListBox1.ColumnCount = 14
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "40 pt;30 pt;30 pt;30 pt;30 pt;30 pt;30 pt;30 pt;30 pt;30 pt;48 pt;60 pt;60 pt;60 pt"
sitemnine göre problem yok ancak benim listem kolonları sabit değil veri girildikçe değişkenlik gösteriyor.
Mesela yukarda N kolonuna kadar almış ama bu C de olabilir AR de olabilir
Bunu nasıl sağlarız?
Şimdiden teşekkür ederim..

 

[Merhum İdris SERDAR]

N'yi AR veya başka bir sütun yapsanız ve 14'ü 44 A'dan itibaren sütun sayısı neyse olmuyor mu?

 

[zafer]

Merhaba

Evet. En son kolon numarasına göre rowsource'yi ayarlayın

Column.count içinde userforma bir textbox ilave edin veya bir inputbox'a kolon numarasını girecek şekilde ayarlayın. Listbox'ta sizin istediğiniz kolona kadar veriler gelsin.

 

[heft]

Selam tekrar
tam olarak problemim şu
ListBox1.RowSource = "veri!A2:N" & a
buraya nasıl bir kod yazılmalı
şu anda A2 den N kolonunun a satırına kadar alıyor bu ok.

Peki bu değişken olursa nasıl yazılmalı A2 sabit tabii

 

[zafer]

Merhaba

Değişken olursa......

Sizin istediğiniz bir kolonmu yoksa en son kolonmu vb. bunu açıklayabilirmisiniz.

 

[heft]

A kolonundan IV kolonuna kadar kaç kolon varsa o kadar olacak

 

[zafer]

Merhaba


Private Sub UserForm_Initialize()
satır = Cells(65536, 1).End(xlUp).Row
kolon = Cells(1, 256).End(xlToLeft).Column
bbb = Cells(satır, kolon).Address
ListBox1.RowSource = "veri!A2:" & bbb
End Sub

 

[heft]

çok teşekkürler :mutlu: