Listview de seçilen veriyi başka sayfaya aktarma.

[7880747]

Herkese merhaba,Listviewdeki seçtiğim veriyi aynı exceldeki başka bir sayfaya aktarmak istiyorum.Ancak bir sonraki aktarmada sıralı olarak bir alt satıra atmasını istiyorum.Forumda bir çok örneğe baktım ancak bir türlü yapamadım.Yardımcı olabirseniz çok sevinirim.

 

[unsal_]

Aktarılan verileri bir sonraki aktarmada siler.Onu yapamadım.
Mevcut kodunuzu aşağıdaki ile değiştiriniz.

Private Sub CommandButton9_Click()
Dim ws As Worksheet
        Set ws = Worksheets("Sayfa4")


Sheets("Sayfa4").Activate
Sheets("Sayfa4").Range("A2:AK65536").Value = Empty
For i = 1 To ListView1.ListItems.Count
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 1).Value = ListView1.ListItems(i)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 2).Value = ListView1.ListItems(i).SubItems(1)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 3).Value = ListView1.ListItems(i).SubItems(2)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 4).Value = ListView1.ListItems(i).SubItems(3)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 5).Value = ListView1.ListItems(i).SubItems(4)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 6).Value = ListView1.ListItems(i).SubItems(5)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 7).Value = ListView1.ListItems(i).SubItems(6)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 8).Value = ListView1.ListItems(i).SubItems(7)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 9).Value = ListView1.ListItems(i).SubItems(8)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 10).Value = ListView1.ListItems(i).SubItems(9)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 11).Value = ListView1.ListItems(i).SubItems(10)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 12).Value = ListView1.ListItems(i).SubItems(11)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 13).Value = ListView1.ListItems(i).SubItems(12)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 14).Value = ListView1.ListItems(i).SubItems(13)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 15).Value = ListView1.ListItems(i).SubItems(14)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 16).Value = ListView1.ListItems(i).SubItems(15)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 17).Value = ListView1.ListItems(i).SubItems(16)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 18).Value = ListView1.ListItems(i).SubItems(17)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 19).Value = ListView1.ListItems(i).SubItems(18)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 20).Value = ListView1.ListItems(i).SubItems(19)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 21).Value = ListView1.ListItems(i).SubItems(20)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 22).Value = ListView1.ListItems(i).SubItems(21)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 23).Value = ListView1.ListItems(i).SubItems(22)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 24).Value = ListView1.ListItems(i).SubItems(23)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 25).Value = ListView1.ListItems(i).SubItems(24)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 26).Value = ListView1.ListItems(i).SubItems(25)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 27).Value = ListView1.ListItems(i).SubItems(26)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 28).Value = ListView1.ListItems(i).SubItems(27)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 29).Value = ListView1.ListItems(i).SubItems(28)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 30).Value = ListView1.ListItems(i).SubItems(29)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 31).Value = ListView1.ListItems(i).SubItems(30)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 32).Value = ListView1.ListItems(i).SubItems(31)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 33).Value = ListView1.ListItems(i).SubItems(32)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 34).Value = ListView1.ListItems(i).SubItems(33)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 35).Value = ListView1.ListItems(i).SubItems(34)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 36).Value = ListView1.ListItems(i).SubItems(35)
            ActiveWorkbook.Sheets("Sayfa4").Cells(i + 1, 37).Value = ListView1.ListItems(i).SubItems(36)
        Next i
            
End Sub

 

[7880747]

Yardımınız için çok teşekkür ederim.Sorunu hallettim.

 

[unsal_]

Rica ederim.
Kolay gelsin