LİSTBOX ile ilgili sorun

[sralsral]

Dosyamı ekliyorum.Dosyamda sorum yazıyor.Yardımcı olursanız sevinirim..

 

[sralsral]

BU FORUMDA ONLİNE OLAN HERKESE İYİ AKŞAMLAR
Abilerim yardımcı olursanız çok sevinirim.Yardımlarınızı bekliyorum.
saygılarımla :hey:

 

[Levent Menteşoğlu]

Listbox1'e aşağıdaki kodu kopyalayın. Birde sorunuzu lütfen dosyanın dışında da tekrar edinki cevaplamak isteyen dosyayı indirmnek zorunda kalmasın.

[vb:1:aa10c9a0cf]Private Sub ListBox1_Click()
ListBox2.ColumnCount = 7
sat = ListBox1.ListIndex + 1
ListBox2.RowSource = "a" & sat & ":g" & sat
End Sub
[/vb:1:aa10c9a0cf]

 

[Korhan Ayhan]

Selamlar,


Aşağıdaki kodu kullanabilirsiniz.

Private Sub ListBox1_Click()
    ListBox2.Clear
    SÜTUN = Cells(ListBox1.ListIndex + 2, 256).End(xlToLeft).Column
    For X = 2 To SÜTUN
    ListBox2.AddItem Cells(ListBox1.ListIndex + 2, X)
    Next
End Sub

 

[sralsral]

ABİ ÇOK TEŞEKKÜR EDERİM YAPTIM OLDUDA BİDE LİSTBOX1E TIKLAYINCA LİSTBOX2 Yİ KÜÇÜKTEN BÜYÜĞE A DAN Z YE SIRALASA...