ListView Üzerindeki Veriyi Silme isimli içerikte, ilgili işlemlerin nasıl yapılacağı detaylıca ele alınmaktadır.
UserForm ve ListView 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.Silme İşlevini Ekleyin
ListView'deki veriyi silmek için bir CommandButton (Komut Düğmesi) ekleyeceğiz. Kullanıcı, ListView'den bir öğe seçtikten sonra bu butona tıklayarak seçili öğeyi silecek.Adımlar:
- UserForm üzerine bir CommandButton (Komut Düğmesi) ekleyin.
- CommandButton'un adını "Sil" olarak değiştirin.
- CommandButton'a çift tıklayın ve aşağıdaki VBA kodunu ekleyin:
VBA Kodu:
VBA:
Private Sub CommandButton1_Click()
' Seçili öğeyi kontrol et
If ListView1.SelectedItems.Count = 0 Then
MsgBox "Lütfen silmek için bir öğe seçin."
Exit Sub
End If
' Seçili öğeyi sil
ListView1.SelectedItems(1).Delete
End SubUserForm'u Çalıştırma
Oluşturduğunuz UserForm'u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz. Bu kod, UserForm'u görüntüler ve ListView'e verilerin eklenmesini sağlar.VBA Kodu:
VBA:
Sub ShowUserForm()
UserForm1.Show
End Sub
