listview veya listbox aktarma

[prodigy]

ekteki örnek dosyada listview1 e giriş sayfasındaki verileri aktarıyorum. ( A sutunundan I sutununa kadar--9 sutun). listview1 de seçilen verinin giriş sayfasında j sutunundan itibaren (yakınadı, yakınlığı, kimlik no) şeklinde girilmiş olan verilerinide listview2 de veya (listboxda olabilir) nasıl gösterebiliriz.

 

[Mahmut Kök]

Listview1_click olayının sonuna aşağıdaki kodları ilave edip deneyiniz:

ListView2.ListItems.Clear
ListView2.ListItems.Add , , Cells(x + 1, 10)
ListView2.ListItems(1).SubItems(1) = Cells(x + 1, 11)
ListView2.ListItems(1).SubItems(2) = Cells(x + 1, 12)

 

[prodigy]

sayın mesleki çok teşekkür ederim.
ListView2.ListItems.Clear
ListView2.ListItems.Add , , Cells(x + 1, 10)
ListView2.ListItems(1).SubItems(1) = Cells(x + 1, 11)
ListView2.ListItems(1).SubItems(2) = Cells(x + 1, 12)
bu kodlarla ilk üç veriyi yanyana getiriyor.

ListView2.ListItems.Add , , Cells(x + 1, 13)
13 veriyi de listview de gösteriyor. ancak bu verinin yanındaki iki veriyi listview de 13 verinin yanında gösteremedim.
ListView2.ListItems.Add , , Cells(x + 1, 13)
ListView2.ListItems(1).SubItems(1) = Cells(x + 1, 14)
ListView2.ListItems(1).SubItems(2) = Cells(x + 1, 15) şeklinde yazdım ama çalışmadı. bu konuda yardımlarını bekliyorum.
saygılarımla

 

[Mahmut Kök]

listview2'ye ekleyeceğiniz sütun başlıklarını ilave edin. (Userform_activate kısmında)

With .ColumnHeaders
    .Add , , s1.Cells(1, 10), 50
    .Add , , s1.Cells(1, 11), 50
    .Add , , s1.Cells(1, 12), 50
[B].Add , , s1.Cells(1, 13), 50[/B]
[B].Add , , s1.Cells(1, 14), 50[/B]
[B].Add , , s1.Cells(1, 15), 50[/B] 
 End With

Veriler için de aşağıdaki ilaveleri yapıp deneyiniz:

ListView2.ListItems.Add , , Cells(x + 1, 10)
ListView2.ListItems(1).SubItems(1) = Cells(x + 1, 11)
ListView2.ListItems(1).SubItems(2) = Cells(x + 1, 12)
[B]ListView2.ListItems(1).SubItems(3) = Cells(x + 1, 13)[/B]
[B]ListView2.ListItems(1).SubItems(4) = Cells(x + 1, 14)[/B]
[B]ListView2.ListItems(1).SubItems(5) = Cells(x + 1, 15)[/B]

 

[Orion1]

Ekli dosyayı inceleyiniz.