Listboxa yatayda veri almak

[udentr2002]

Merhaba,

Listboxa stündaki verileri değilde 9. satırda yani b9 ile z9 arasındaki yatayda olan verileri listboxa nasıl 1 kolonda gösterebilrim. Böyle bir şey mümkünmü?

 

[asi_kral]

Normal sütunda göründüğü şekilde mi olacak listbox'ta

 

[udentr2002]

hayır hocam,

yataydaki verileri listboxda dikey bir şekilde yazacak. Bu mümkün mü?

 

[asi_kral]

hayır hocam,

yataydaki verileri listboxda dikey bir şekilde yazacak. Bu mümkün mü?

Merhaba
Userform'un kod bölümüne

Option Explicit
Private Sub UserForm_Initialize()
'Konu       :   Listbox'a Satırdaki Verileri Getir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long
kral = 0
For asi = 2 To Cells(9, Columns.Count).End(xlToLeft).Column
ListBox1.AddItem
ListBox1.List(kral, 0) = Cells(9, asi)
kral = kral + 1
Next
End Sub

Bu kodu kopyalayın ve deneyin.

 

[Orion1]

Buyurun.

ListBox1.Column = Range("B9:Z9").Value

 

[udentr2002]

Valla sağolun orion hocam ne diyeyim. bir sürü şey denedim ama neden bu kadar basit düşünmedim diye kızdım kendime şimdi.

Asi hocam seninde ellerine sağlık saol