Sayfadan ListView Nesnesine Veri Ekleme

Sayfadan ListView Nesnesine Veri Ekleme, ilgili işlemlerin nasıl yapılacağını öğreten bir Excel vba kodu içermektedir.

UserForm ve ListView Nesneleri​

UserForm Üzerindeki ListView Nesnesine Veri Ekleme içeriğinde, UserForm üzerinde bulunan bir ListView nesnesine nasıl veri alınacağı ele alınmıştı. Bu içerikte de, bir Çalışm Sayfası üzerindeki bulunan verilerin nasıl alınacağı öğretilmektedir.

Bu örnekte, Excel’deki bir veri aralığından ListView nesnesine dinamik olarak veri eklemeyi öğreneceksiniz. Çünkü Excel sayfanızda yer alan bir veri tablosundan, UserForm üzerindeki ListView nesnesine veri aktarmak için VBA kullanacağız. Bu işlem, verilerinizin UserForm üzerinde görselleştirilmesini ve kullanıcıların daha etkileşimli bir arayüzle çalışmasını sağlarmaktadır. Aşağıdaki adımları takip ederek, Excel’deki verileri nasıl dinamik olarak ListView’e aktaracağınızı öğrenebilirsiniz.

Böylece ilk olarak, bir UserForm oluşturacak ve ListView kontrolünü ekleyeceksiniz. Ardından, VBA kodu ile belirli bir veri aralığındaki verileri ListView’e ekleyeceğiz.

ListView’e Dinamik Veri Ekleme​

UserForm ve ListView Nesnesini Kullanıma Hazırlama​

Excel VBA geliştirme ortamını kullanarak UserForm ve ListView nesnesini nasıl kullanıma hazırlayacağınızı adım adım anlatacağım.

Adımlar:​

1. Excel’i açın ve Alt + F11 tuş kombinasyonuyla VBA geliştirme ortamını açın.
2. Menüden Insert > UserForm seçeneğini seçin.
3. Toolbox’tan ListView kontrolünü seçin ve UserForm üzerine yerleştirin.

Not: Eğer Toolbox’ta ListView kontrolünü göremiyorsanız, aşağıdaki adımları izleyerek ekleyebilirsiniz:

• Toolbox üzerinde sağ tıklayın ve “Ek Denetimler” seçeneğini seçin.
• Açılan listeden “Microsoft ListView Control, version 6.0” kutucuğunu işaretleyin ve “Tamam” düğmesine basın.

ListView Nesnesine Veri Ekleme​

Çünkü Excel’deki belirli bir veri aralığından ListView’e veri eklemek için aşağıdaki VBA kodunu kullanabilirsiniz. Böylece bu kod, UserForm başlatıldığında belirlenen veri aralığından verileri alarak ListView nesnesine ekleyecektir.

VBA Kodu:​

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim itm As ListItem
  
    ' Veri kaynağını belirleyin
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A2:C10") ' Veri aralığı
  
    ' ListView başlıklarını ayarlayın
    With ListView1
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .ColumnHeaders.Add , , "Ad", 100
        .ColumnHeaders.Add , , "Yaş", 50
        .ColumnHeaders.Add , , "Şehir", 100
    End With
  
    ' Veri aralığındaki her satırı ListView'e ekleyin
    For Each cell In rng.Rows
        Set itm = ListView1.ListItems.Add(, , cell.Cells(1, 1).Value)
        itm.ListSubItems.Add , , cell.Cells(1, 2).Value
        itm.ListSubItems.Add , , cell.Cells(1, 3).Value
    Next cell
End Sub

UserForm’u Çalıştırma​

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

VBA Kodu:​

Sub ShowUserForm()
UserForm1.Show
End Sub

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.

Sayfadan ListView Nesnesine Veri Ekleme – Sonuç​

Böylece bu adımları izleyerek, Excel‘deki bir veri aralığından UserForm üzerindeki ListView nesnesine veri aktarmayı gerçekleştirebilirsiniz. Çünkü bu yöntem, kullanıcıların verilerle daha etkileşimli bir şekilde çalışmasını sağlar. Ayrıca verilerin görselleştirilmesini kolaylaştırır. Bu nedenle işlemlerle uğraşmamak için, hazır dosyamızı indirerek kullanabilirsiniz.