Listview nesnesisindeki verileri sayfaya aktaracak

[udentr2002]

Merhaba Arkadaşlar.
Ekli dosyada Rapor al butonuna tıkladığımda listview nesnesi içindeki verileri Rapor adlı sayfanın 9. satırından itibaren yazacak bir kodu nasıl yapabilirim.
Şimdiden ilgilenen tüm arkadaşalrıma teşekkür ederim.

SAYGILARIMLA

 

[Husgvarna]

Merhaba Arkadaşlar.
Ekli dosyada Rapor al butonuna tıkladığımda listview nesnesi içindeki verileri Rapor adlı sayfanın 9. satırından itibaren yazacak bir kodu nasıl yapabilirim.
Şimdiden ilgilenen tüm arkadaşalrıma teşekkür ederim.

Aşağıdaki şekilde;

Private Sub CommandButton3_Click()
     For x = 1 To ListView1.ListItems.Count
     Sheets("Rapor").Cells(x + 9, 1) = ListView1.ListItems(x).Text
     For c = 1 To ListView1.ColumnHeaders.Count - 1

Sheets("Rapor").Cells(x + 9, c + 1) = ListView1.ListItems(x).ListSubItems(c).Text
Next
Next
End Sub

 

[udentr2002]

Hocam ilginiz için teşekkür ederim.

Ancak, mesala gelen siparişler butonuna tıklayıp verileri listview e süzdükten sonra rapor al butonuna tıkladığımızda hata veriyor. Sebebi nedir acaba?

 

[Husgvarna]

Hocam ilginiz için teşekkür ederim.

Ancak, mesala gelen siparişler butonuna tıklayıp verileri listview e süzdükten sonra rapor al butonuna tıkladığımızda hata veriyor. Sebebi nedir acaba?

Yukarıdaki kodu düzelttim.

Sheets("Rapor").Cells(x + 9, 1) = ListView1.ListItems([COLOR="Red"]7[/COLOR]).Text

Buradaki "7" nin yerine ."x" olacaktı.
Kusura bakmayın.Kolay gelsin.

Bu bölümü şöylede yapabilirsiniz.

Sheets("Rapor").Cells(x + 9, 1) = x

Şu kırmızı bölümüde ekleyin.

 Private Sub CommandButton3_Click()
[COLOR="Red"]Sheets("Rapor").[A10:O65000]=Empty[/COLOR]
     For x = 1 To ListView1.ListItems.Count
     Sheets("Rapor").Cells(x + 9, 1) = ListView1.ListItems(x).Text

 

[udentr2002]

Estağfrullah hocam ne demek kusura bakmayın.
Asıl siz kusurumuza bakmayın ve hakkınızı helal edin bu gün çok yordum sizi.
Ellerinize sağlık. Hakkınızı helal edin.

 

[Husgvarna]

Estağfrullah hocam ne demek kusura bakmayın.
Asıl siz kusurumuza bakmayın ve hakkınızı helal edin bu gün çok yordum sizi.
Ellerinize sağlık. Hakkınızı helal edin.

Sağolun. İyi akşamlar.