ListView Nesnesindeki Verileri Sayfaya Yazdırma

ListView Nesnesindeki Verileri Sayfaya Yazdırma, ilgili işlemlerin nasıl yapılacağını öğreten bir Excel VBA kodu içermektedir.

ListView ve UserForm Nesnelerini Hazırlama​

Öncelikle, daha önce oluşturduğunuz UserForm ve ListView nesnelerinin mevcut olduğundan emin olun. Eğer henüz oluşturmadıysanız, bir UserForm ekleyin ve ListView nesnesini Toolbox’tan seçerek UserForm üzerine yerleştirin.

Veri Yazdırma İşlevini Ekleyin​

ListView’deki verileri Excel sayfasına yazdırmak için bir buton ekleyeceğiz ve bu butona tıklanınca çalışacak olan VBA kodunu yazacağız.

Adımlar:​

1. UserForm üzerinde bir CommandButton (Komut Düğmesi) ekleyin ve adını “Yazdır” olarak değiştirin.
2. CommandButton’a çift tıklayın ve aşağıdaki VBA kodunu ekleyin.

VBA Kodu:​

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim i As Integer
    Dim itm As ListItem
   
    ' Hedef sayfayı belirleyin
    Set ws = ThisWorkbook.Sheets("Sheet2")
   
    ' Başlıkları ekleyin
    ws.Range("A1").Value = "Ad"
    ws.Range("B1").Value = "Yaş"
    ws.Range("C1").Value = "Şehir"
   
    ' ListView'deki her öğeyi Excel'e aktarın
    For i = 1 To ListView1.ListItems.Count
        Set itm = ListView1.ListItems(i)
        ws.Cells(i + 1, 1).Value = itm.Text
        ws.Cells(i + 1, 2).Value = itm.SubItems(1)
        ws.Cells(i + 1, 3).Value = itm.SubItems(2)
    Next i
End Sub

Bu kod, CommandButton1 tıklanıldığında çalışacak ve ListView nesnesindeki verileri “Sheet2” sayfasına yazdıracaktır.

UserForm’u Çalıştırma​

Oluşturduğunuz UserForm’u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz. Çünkü Bu kod, UserForm’u görüntüler. Ayrıca ListView’e verilerin eklenmesini sağlar.

VBA Kodu:​

Sub ShowUserForm()
UserForm1.Show
End Sub

Böylece bu kodu bir modüle ekleyin ve çalıştırın. Bu sayede UserForm açılacak ve ListView nesnesine verilerin dinamik olarak eklendiğini göreceksiniz. Ayrıca, CommandButton1’e tıkladığınızda, ListView’deki veriler “Sheet2” sayfasına yazdırılacaktır.

ListView Nesnesindeki Verileri Sayfaya Yazdırma – Sonuç:​

Böylece, bu adımları izleyerek, ListView nesnesindeki verileri Excel sayfasına başarıyla yazdırabilirsiniz. Bu yöntem, ListView üzerinde yapılan düzenlemelerin veya eklenen yeni verilerin Excel sayfasında kaydedilmesini ve daha sonra kullanılmak üzere saklanmasını sağlar.

Yararlanılması temennisiyle.