Hücrelerden Listviewe veri alma

[serdartasdelen]

Çok araştırdım ama bir türlü bulamadım. Listviewe hücrelerden veri almak istiyorum. Bir türlü yapamadım. başlıklar geliyor ama listeyi gösteremiyorum. yardımlarınızı bekliyorum.

 

[serdartasdelen]

vaybe arkadaş amma zor soruymuş ya
havuz problemine döndü

 

[Orion1]

Ekli dosyayı inceleyiniz.
Link aşağıdadır.

DOSYAYI İNDİR

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long
Me.Caption = "evrengizlen@hotmail.com"
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.ColumnHeaders.Add , , "Başlık1", 80
ListView1.ColumnHeaders.Add , , "Başlık2", 100
ListView1.ColumnHeaders.Add , , "Başlık3", 120
For i = 2 To 20
    sat = sat + 1
    ListView1.ListItems.Add , , Cells(i, "A").Value
    ListView1.ListItems(sat).SubItems(1) = Cells(i, "B").Value
    ListView1.ListItems(sat).SubItems(2) = Cells(i, "C").Value
Next i
End Sub

 

[serdartasdelen]

ilginize teşekkür ederim. işimi çözdü listviewden txtboxlara nasıl veri çekebilirim.

 

[Orion1]

ilginize teşekkür ederim. işimi çözdü listviewden txtboxlara nasıl veri çekebilirim.

Ekli dosyayı inceleyiniz.
Link aşağıdadır.

DOSYAYI İNDİR

Private Sub ListView1_Click()
If ListView1.ListItems.Count < 1 Then Exit Sub
TextBox1.Value = ListView1.SelectedItem.Text
TextBox2.Value = ListView1.SelectedItem.SubItems(1)
TextBox3.Value = ListView1.SelectedItem.SubItems(2)
End Sub