listview2 deki seçtiğimin benzerleri listview3 te gözüksün

[orcunerkek54]

arkadaşlar hekeze iyi günler. sorunum şu sekilde. listview2 deki tek tıklama ile seçtiğim verinin stok numarasına göre mükerrerlerinin listviewe listelenmesini istiyorum.yardımcı olabilirseniz sevinirim.
teşekkürler.

 

[hamitcan]

ListView konusunda fazla bilgim yok ama birşeyler yapmaya çalıştım. Herhalde işinizi görür.

Private Sub ListView2_Click()
    With ListView3
    .View = lvwReport
    .ListItems.Clear
    .ColumnHeaders.Clear
    With .ColumnHeaders
        .Add , , ListView2.ColumnHeaders(1)
        .Add , , ListView2.ColumnHeaders(2)
        .Add , , ListView2.ColumnHeaders(3)
    End With
    For i = 1 To [a65536].End(3).Row
         If ListView2.SelectedItem.ListSubItems(4) = Cells(i, "h") Then
            c = c + 1
            .ListItems.Add , , Cells(i, "a")
            .ListItems(c).SubItems(1) = Cells(i, "c")
            .ListItems(c).SubItems(2) = Cells(i, "h")
         End If
    Next
    End With
    TextBox20.Text = ListView2.ListItems(ListView2.SelectedItem.Index).ListSubItems(4).Text
End Sub

 

[orcunerkek54]

çok teşekkür ediyorum syn hamitcan mükemmel olmuş tam istediğim gibi. emeğinize ve bilginize sağlık.