Listview Arama ve Dblclik Olayı

[YASINT]

Merhaba arkadaşlar,

Listviewde arama yaptıktan sonra dblclik yaptığımda sayfa4 e ilgili verileri yazsın istiyorum ancak beceremedim örnek bir uygulama paylaşabilir misiniz? Teşekkür ederim.

 

[Tarkan VURAL]

Listview nesnesinin seçili satırını belirtmek için SelectedItem özelliği vardır. Bundan faydalanabilirsiniz.

Private Sub ListView1_DblClick()
Dim s  As Worksheet
Set s = Sheets("Sayfa4")
With ListView1
    ' Listviewdeki seçili satırın ilk sütun bilgisini aktarır
    s.Range("a65536").End(3)(2, 1).Value = .SelectedItem.Text
    ' Listviewdeki seçili satırın ikinci sütun bilgisini aktarır
    s.Range("a65536").End(3)(1, 2).Value = .ListItems(.SelectedItem.Index).ListSubItems(1).Text
    ' Listviewdeki seçili satırın üçüncü sütun bilgisini aktarır
    s.Range("a65536").End(3)(1, 2).Value = .ListItems(.SelectedItem.Index).ListSubItems(2).Text
    ' Listviewdeki seçili satırın dördüncü sütun bilgisini aktarır
    s.Range("a65536").End(3)(1, 2).Value = .ListItems(.SelectedItem.Index).ListSubItems(3).Text
    Rem .............. şeklinde devam edersiniz.
    End With
Set s = Nothing
End Sub

 

[YASINT]

teşekkür ederim Tarkan bey