listview deki verileri sayfaya aktarmak?

[udentr2002]

Merhaba arkadaşlar forumdaki listviewdeki bilgileri bir buton aracılığı ile bir sayfaya aktarabilmek için nasıl bir kod yazabiliriz

 

[udentr2002]

dosyamı ekleyeyim belki yardım edecek olan hocama biraz kolaylık sağlar diye;

Formu açtığınızda "RAPOR" butonuna tıkladığımızda RAPOR formu geliyor bu formda yapmak istediğim tam olarak şu ; AKTAR butonuna tıkladığımızda formdaki listview1 de görünen tüm verileri Sayfa1 sheetinde 7. satırdan itibaren listview in 1. klonu sayfa1 in 1. kolonuna listviewin 2. kolonu sayfa1 in 2. kolonuna ....... yani listiewdeki 14 kolonda sayfa1 in kolonlarına aynı sıra ile yazılması yardımcı olursanız çok sevineceğim. şimdiden teşekkür ederim tüm hocalarıma

 

[udentr2002]

yardımcı olabilecek bir hocam olursa çok makbule geçecek

 

[udentr2002]

arkadaşlar biliyorum kimsenin benim sorunumla ilgilenmek gibi bir zorunluluğu yok kaldıki zaten gerçekten çok büyük yardımlarda aldım burdaki tüm hocalarımdan ve gerçekten sizlerin bilgilerinden çok şeyde öğrendim. Bu yüzden nankörlük de yapamam.
Formda bir kaç gündürlü aramada yaptım listview ile ilgili ama bir türlü başaramadım. kısacası sayfadaki bir bilgiyi listview e aktarmak değilde tam tersini yani listviewdeki bilgileri sayfaya nasıl aktarabilirim. bununla ilgili bir örnekde olabilir. Yapmaya çalıştığım projeyi yukarıdaki mesajımda gönderdim ona yakın küçük bir örnekde olabilir. Tekrar rica etsem bakabilme şansınız olabilirmi acaba?

 

[Zeki Gürsoy]

Rapor formunun "Aktar" butonu;

Private Sub CommandButton12_Click()
Dim i As Integer, ii As Byte

With ListView1
    For i = 1 To .ListItems.Count
        Sheets("sayfa1").Cells(i + 6, 1) = .ListItems(i)
        For ii = 1 To 13
            Sheets("sayfa1").Cells(i + 6, ii + 1) = .ListItems(i).SubItems(ii)
        Next
    Next
End With
End Sub

 

[Mahmut Kök]

Sayın anemos daha önce yazmış. Neyse bu da benden olsun.

Aşağıdaki kodları bir düğmeye atayıp deneyiniz.

Set s1 = Sheets("Sayfa1")
For a = 1 To ListView1.ListItems.Count
        s1.Cells(a + 6, "a") = ListView1.ListItems(a).Text
        For b = 1 To 13
        s1.Cells(a + 6, b + 1) = ListView1.ListItems(a).SubItems(b)
        Next
Next

 

[udentr2002]

anemos hocam ellerine sağlık teşekkürler hızır gibi yetiştin Allah razı olsun

 

[udentr2002]

mesleki hocam sizede teşekkür ederim çok sağ olun