ListView de süzülen sütunundaki verileri tek hücreye al

[omeryılmaz]

ListView de süzülen verilerden 26. sütundaki verileri tek hücreye almak için aşağıdaki kodu uyguladım ama olmadı. Sadece ilk veriyi almaktadır.


Sub Suz_al ()

For i = 0 To ListView1.ColumnHeaders.Count - 1

Sheets("MOBİL").Range("B28").Value = Me.ListView1.ListItems(i).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 1).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 2).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 3).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 4).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 5).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 6).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 7).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 8).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 9).ListSubItems(26) & vbCrLf _
& Me.ListView1.ListItems(i + 10).ListSubItems(26)

Next i

End Sub



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