Gelişmiş Bul Değiştir Sil Uygulaması

Bu dosya, Sayfa1 üzerindeki kayıt listesinde bir kullanıcı formu aracılığıyla arama, çoklu bulma, ekleme, güncelleme ve silme işlemlerinin nasıl yapıldığını gösteren VBA örneğidir. Aynı değerden birden fazla kayıt olduğunda tümü form içindeki liste kutusunda gösterilir.

Dosyanın içeriği​

• Sayfa1: A1:S20 aralığında çalışır. A1 ve C1 hücrelerinde Adı ve Kod başlıkları bulunur; 6. satırdan itibaren Erkan, Ali, Veli, Ahmet, Mehmet, Gökhan gibi adlar ve 212-262 arasında kodlar örnek veri olarak girilmiştir. R20 hücresinde uygulamanın başlığı yer alır.
• Userform1: Dört metin kutusu (TextBox1-TextBox4), bir liste kutusu (ListBox1) ve Ekle, Sil, Bul, Guncelle, TumunuBul, SonKayit, Sec, IlkKayit düğmelerinden oluşan kayıt formudur.

Dosyada formül bulunmaz; tüm işlemler makrolarla yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlemler yoktur; silme yalnızca Sayfa1 üzerindeki seçili kayıt satırını etkiler.

• cmbStart_Click: Sayfa1 üzerindeki düğmeye basıldığında kullanıcı formunu açar.
• Ekle_Click: Dört metin kutusundaki değerleri A sütunundaki son dolu satırın altına yazar ve kutuları temizler.
• Bul_Click: A2'den son satıra kadar TextBox1'deki değeri arar, ilk kaydı seçip diğer alanları kutulara getirir. Birden fazla eşleşme varsa adedini mesajla bildirir. Kayıt bulunursa Güncelle ve Sil düğmeleri etkinleşir, Ekle devre dışı kalır.
• TumunuBul_Click: Eşleşen tüm kayıtları başlık satırıyla birlikte ListBox1 içinde listeler.
• Guncelle_Click: Seçili hücredeki kaydı metin kutularındaki değerlerle değiştirir.
• Sil_Click: Onay sorduktan sonra seçili kaydın satırının tamamını siler.
• SonKayit_Click: Listedeki son kaydı metin kutularına getirir.
• Sec_Click ve IlkKayit_Click: Liste kutusundan seçim yapılmasını ve ilk kayda gidilmesini sağlar.
• UserForm_Initialize: Form açılırken başlangıç durumunu hazırlar.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak formu açın.
3. Aranacak değeri ilk metin kutusuna yazıp Bul düğmesine basın; eşleşen tüm kayıtlar için TumunuBul düğmesini kullanın.
4. Bulunan kaydı değiştirmek için kutulardaki değerleri düzenleyip Guncelle düğmesine, kaldırmak için Sil düğmesine basın.
5. Yeni kayıt için kutuları doldurup Ekle düğmesine basın.

Kod A65536 hücresinden son satırı belirlediği için liste bu sınır içinde çalışır.