ListBox Nesnesinde Seçilen Satırı Silme

Bu dosya, UserForm üzerindeki ListBox nesnesinde seçilen kaydın çift tıklamayla çalışma sayfasından silinmesini gösterir. ListBox listesi Sayfa1'deki isim listesinden beslenir; silinen kayıt, sayfada bulunduğu satırla birlikte kaldırılır.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "Adı Soyadı" başlığı, A2:A10 aralığında dokuz isim bulunur (Ali Veli, Hasan Hüseyin, Ahmet Mehmet, Ayşe Fatma ve diğerleri).
• UserForm1: İsimleri listeleyen tek sütunlu bir ListBox içerir.
• Module1: UserForm'u açan düğme makrosunu barındırır.

Makrolar​

• Düğme1_Tıkla: UserForm1 formunu açar. Sayfadaki düğmeye atanarak çalıştırılır.
• UserForm_Initialize: Form açılırken çalışır. ListBox'ın RowSource özelliğini Sayfa1'deki A2 hücresinden son dolu satıra kadar olan aralığa ayarlar; son satır, A sütunundaki dolu hücre sayısı CountA ile bulunarak belirlenir. Ayrıca sütun sayısı 1, sütun genişliği 150 olarak tanımlanır.
• ListBox1_DblClick: ListBox'ta bir isme çift tıklandığında çalışır. Seçili öğe bulunur ve Sayfa1'de karşılık gelen satır, ListBox'taki sıra numarasına 2 eklenerek hesaplanır (başlık satırı nedeniyle) ve EntireRow.Delete ile silinir.

Kodda silme işlemi yalnızca Sayfa1'deki ilgili satırı etkiler; dosya silme veya dışarıya bağlantı işlemi yoktur. Silinen satır geri alınamaz, bu nedenle önemli veriler için dosyanın yedeğinin alınması önerilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'deki düğmeye tıklayarak formu açın; A sütunundaki isimler ListBox'ta listelenir.
3. Silmek istediğiniz ismin üzerine çift tıklayın.
4. İlgili satır Sayfa1'den silinir. Listeyi güncel görmek için formu kapatıp yeniden açın.
5. Kendi verinizi kullanmak için isimleri Sayfa1'in A2 hücresinden itibaren yazın; başlık A1'de kalmalıdır.