Listviewden sayfaya seçili satırı aktarma

[Halit TÜRK]

Selamlar,

Aşağıdaki kod ile listviewden sayfaya veri aktarıyorum. Ama sadece 13. Satıra aktarabiliyorum.
B13:B32, C13:C32 ve F13:F32 sütunlarına son dolu hücreye aktarmak için nasıl bir değişiklik gereklidir. Her çift tıklamada bir alt satıra aktarılması gerekiyor. Teşekkürler...

Private Sub ListView1_DblClick()
  On Error Resume Next
  If ListView1.ListItems.Count = 0 Then Exit Sub
    x = ListView1.SelectedItem.Index
    Sheets("Teklif Formu").Range("B13") = ListView1.ListItems(x).ListSubItems(1).Text
    Sheets("Teklif Formu").Range("C13") = ListView1.ListItems(x).ListSubItems(2).Text
    Sheets("Teklif Formu").Range("F13") = ListView1.ListItems(x).ListSubItems(3).Text
End Sub

 

[hamitcan]

son = [a65536].end(3).row+1
Sheets("Teklif Formu").Range(son,"B")

şeklinde deneyin.Diğer satırları da buna göre düzenleyin.

 

[Halit TÜRK]

Listview aktar

Selamlar,

Sn. Hamitcan maalesef aktarmadı.

Dosya boyutu büyük olduğu için aktarılacak sayfa ve lisview resimlerini ekledim..

 

[hamitcan]

Dosyanın küçük bir örneğini gönderirseniz, sorunu daha çabuk çözebiliriz.

 

[Orion1]

Private Sub ListView1_DblClick()
  On Error Resume Next
  If ListView1.ListItems.Count = 0 Then Exit Sub
  sat = Sheets("Teklif Formu").Cells(65536, "B").End(xlUp).Row + 1
    x = ListView1.SelectedItem.Index
    Sheets("Teklif Formu").Cells(sat, "B").Value = ListView1.ListItems(x).ListSubItems(1).Text
    Sheets("Teklif Formu").Cells(sat, "C").Value = ListView1.ListItems(x).ListSubItems(2).Text
    Sheets("Teklif Formu").Cells(sat, "D").Value = ListView1.ListItems(x).ListSubItems(3).Text
End Sub

 

[Halit TÜRK]

Selamlar,

Sn. Evren bey ve Sn. Hamitcan Bey, ilgilerinize çok çok teşekkürler...