Yalnız Mesajı Göster
Eski 09-02-2018, 12:18  
yselimyilmaz
Altın Üye
 
Giriş: 29/12/2007
Şehir: edirne
Mesaj: 40
Excel Vers. ve Dili:
2010-türkçe
Varsayılan Listview'den sayfaya kayıt

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
yselimyilmaz Çevrimdışı   Alıntı Yaparak Cevapla