Listview'den Excel sayfasına kayıt

[seddur]

Arkadaşlar Merhaba.Pencere4 adlı listview'den listview'in 6.sutununda bulunan "SATIŞ" yazan satırların listesini Döküm adlı excel sayfasına aktarmak istiyorum.Bir fikir versin diye ekran alıntısı koyuyorum.Yardımcı olacak arkadaşa teşekkür ediyorum.

 

[Muzaffer Ali]

Merhaba.
Örnek dosya eklemelisiniz.

 

[seddur]

dosya ektedir.

 

[Orion1]

Büyük userforma bir buton ekleyiniz ve aşağıdaki kodları yazınız.
Gerçek kişileri sayfanızdan siliniz.
Uydurma isimler yazınız.

Dim sh As Worksheet, i As Long, x As Long
Set sh = Sheets("Döküm")
sh.Cells.ClearContents
x = 2
For i = 1 To Me.pencere4.ListItems.Count
    If pencere4.ListItems(i).SubItems(6) = "SATIŞ" Then
        sh.Cells(x, "A").Value = pencere4.ListItems(i).Text
        sh.Cells(x, "B").Value = pencere4.ListItems(i).SubItems(1)
        sh.Cells(x, "C").Value = pencere4.ListItems(i).SubItems(2)
        sh.Cells(x, "D").Value = pencere4.ListItems(i).SubItems(3)
        sh.Cells(x, "E").Value = pencere4.ListItems(i).SubItems(4)
        sh.Cells(x, "F").Value = pencere4.ListItems(i).SubItems(6)
        sh.Cells(x, "G").Value = pencere4.ListItems(i).SubItems(7)
        x = x + 1
    End If
Next

 

[seddur]

Orion1 yardımınız için teşekkürler ama kodlar yaptığınız örnekte çalışmasına rağmen aşağıdaki şekilde kendi orjinal dosyama uyguladığımda ne hata veriyor ne de çalişıyor.Acaba ne gibi bir sorun olabilir.NOT:
For i = 1 To Me.pencere4.ListItems.Count satırında hata verince değişiklik yaptım.


Dim sh As Worksheet, i As Long, x As Long
Set sh = Worksheets("Döküm")
sh.Cells.ClearContents
x = 2
For i = 1 To UserForm15.pencere4.ListItems.Count
If UserForm15.pencere4.ListItems(i).SubItems(6) = "SATIŞ" Then

sh.Cells(x, "A").Value = UserForm15.pencere4.ListItems(i).Text
sh.Cells(x, "B").Value = UserForm15.pencere4.ListItems(i).SubItems(1)
sh.Cells(x, "C").Value = UserForm15.pencere4.ListItems(i).SubItems(2)
sh.Cells(x, "D").Value = UserForm15.pencere4.ListItems(i).SubItems(3)
sh.Cells(x, "E").Value = UserForm15.pencere4.ListItems(i).SubItems(4)
sh.Cells(x, "F").Value = UserForm15.pencere4.ListItems(i).SubItems(5)
sh.Cells(x, "G").Value = UserForm15.pencere4.ListItems(i).SubItems(6)
sh.Cells(x, "H").Value = UserForm15.pencere4.ListItems(i).SubItems(7)
x = x + 1
End If
Next
Sheets("Döküm").Select
UserForm18.Hide: UserForm5.Hide: UserForm15.Hide

 

[seddur]

Tamamdır sorun çözülmüştür