ListViewde seç Aktar

[omeryılmaz]

Selam Arkadaşlar,

ListView1 'e süzülerek alınan veya toplu görünen bu verilerin içersinden seçilen "ListView1.ListItems(i).Checked = True Then" seçilenlerin Ek sayfaya Aktarılması...

Ben biraz uğraştım. Ancak yapamadım

Yardımlarınız için şükranlarımı sunuyorum...

 

[Orion1]

Ömer bey dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long, sh As Worksheet
Set s1 = Sheets("Ek") 'Sayfaya ListView1 de seçili olanları aktar
sat = s1.Cells(65536, "A").End(xlUp).Row + 1
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
        If sat >= 65533 Then
            MsgBox "Sayfada satır doldu." & vbLf & " ilk sayfada " & _
            i - 1 & " Satırdan sonraki seçilen veriler akatarılmadı", vbCritical, "UYARI"
            Exit Sub
        End If
        s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
        For k = 1 To ListView1.ColumnHeaders.Count - 1
            s1.Cells(sat, k + 1).Value = ListView1.ListItems(i).SubItems(k)
        Next k
        sat = sat + 1
    End If
Next i
End Sub

 

[Erhan Üstünel]

güzel bi uygulama bide kendi dosyalarıma uyarlayabilsem ;P

 

[omeryılmaz]

Teşekkürler Hocam..

 

[Orion1]

Teşekkürler Hocam..

Rica ederim.