Listbox stünunda farklı alanlar

[udentr2002]

Merhaba arkadaşlar,

Listboxun 1. stünuna Sayfa1'in a9:z9 satırındaki verilerin
aynı listboxun 2. stünuna ise a9:a'ya kadar olan stünununda yazan verilerin gelmesi sağlanabilir mi?

 

[asi_kral]

Merhaba arkadaşlar,

Listboxun 1. stünuna Sayfa1'in a9:z9 satırındaki verilerin
aynı listboxun 2. stünuna ise a9:a'ya kadar olan stünununda yazan verilerin gelmesi sağlanabilir mi?

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

Option Explicit
Private Sub UserForm_Initialize()
'Konu       :   Listbox Kolon 1'e Satır Kolon 2'ye Sütun Bilgisi
'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
ListBox1.ColumnCount = 2
kral = 0
For asi = 1 To Cells(9, Columns.Count).End(xlToLeft).Column
ListBox1.AddItem
ListBox1.List(kral, 0) = Cells(9, asi)
kral = kral + 1
Next
kral = 0
For asi = 9 To Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.AddItem
ListBox1.List(kral, 1) = Cells(asi, 1)
kral = kral + 1
Next
End Sub

Bu kodu kopyalayıp dener misiniz_?

 

[udentr2002]

Teşekkürler üstat eline sağlık