Listview'den sayfaya kayıt

[yselimyilmaz]

Selam arkadaşlar;

Listview'de bulunan 9 sütundan ve farklı satır sayısından oluşan verileri çalışma sayfasına (sayfa1) A2 hücresinden başlayarak aktarmak istiyorum.
Aşağıdaki kod ile

Listview'in 2.sütunundan başlayarak
Sayfa 1'in B2 hücresinden başlayarak aktarıyor.

Kodlar üzerinde çeşitli denemeler yaptım ama başaramadım. Yardımcı olmanızı umarım.

Sayfa1.Range("A2:J" & s).ClearContents
For i = 1 To .ListItems.Count
For e = 2 To .ColumnHeaders.Count
Sayfa1.Cells(i + 1, e) = .ListItems(i).SubItems(e - 1)
Next e
Next i
End With
If ComboBox1.Value = "" Then
Unload Me
Call Formaç
Sayfa1.Range("A2:J" & s).ClearContents
End If
Sayfa1.Columns.AutoFit
Label2.Caption = "Toplam Veri Sayısı: " & ListView2.ListItems.Count
i = Empty: e = Empty: s = Empty
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin

[SIZE="2"]Private Sub CommandButton1_Click()
s=rows.count
With ListView1
Sayfa1.Range("A2:J" & s).ClearContents
[COLOR="Blue"]For i = 1 To .ListItems.Count[/COLOR]
[COLOR="Red"]Sayfa1.Cells(i + 1, 1) = .ListItems(i)[/COLOR]
For e = 2 To .ColumnHeaders.Count

Sayfa1.Cells(i + 1, e) = .ListItems(i).SubItems(e - 1)
Next e
Next i
End With
If ComboBox1.Value = "" Then
Unload Me
Call Formaç
Sayfa1.Range("A2:J" & s).ClearContents
End If
Sayfa1.Columns.AutoFit
Label2.Caption = "Toplam Veri Sayısı: " & ListView2.ListItems.Count
i = Empty: e = Empty: s = Empty
End Sub[/SIZE]

 

[yselimyilmaz]

Yardımınız için teşekkür ederim.
Sorunum çözülmüştür.

 

[PLİNT]

Yardımınız için teşekkür ederim.
Sorunum çözülmüştür.

Rica ederim, kırmızı bölümü yukarıdaki gibi "e" döngüsünün üstüne alalım boşuna tekrarlamasın.
Kolay gelsin.