Bu dosya, Veri sayfasındaki kayıtlar üzerinde bir Userform aracılığıyla arama, değiştirme, silme ve yeni kayıt ekleme işlemlerinin nasıl yapıldığını gösteren VBA örneğidir. Kayıtlar sıra numarası, ad soyad, ikamet ve maaş bilgilerinden oluşur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Veri sayfası: A sütununda SıraNo, B sütununda ad soyad, C sütununda İkamet, D sütununda maaş bilgisi tutulur. Sayfada formül bulunmaz.
- frmbulsil Userform: ad listesi (açılır kutu), sıra, ikamet ve maaş alanları ile Bul, Değiştir, Sil, Kaydet, Temizle, Kapat ve gezinme düğmelerini içerir.
- Module1: Formu açan FormAc makrosunu içerir.
Makrolar
- FormAc: Userform penceresini açar.
- UserForm_Initialize: Form açılırken Veri sayfasını seçer, ad listesini B sütunundaki dolu hücrelere bağlar ve sıra kutusunu kilitler.
- cmdbul_Click: Seçilen adı B sütununda büyük/küçük harf farkı gözetmeden arar; bulursa hücreyi seçer, sıra, ikamet ve maaş bilgilerini forma getirir. Bulunamazsa uyarı verir.
- cmdDegistir_Click: Önce Bul ile bulunmuş kaydın seçili satırındaki ad, ikamet ve maaş değerlerini formdaki değerlerle günceller.
- cmdsil_Click: Bulunan kaydın satırındaki A:D hücrelerini siler, altındaki satırları yukarı kaydırır, sıra numaralarını yeniden yazar ve çalışma kitabını kaydeder.
- cmdkaydet_Click: Aynı ada sahip kayıt yoksa listenin sonuna yeni satır ekler ve çalışma kitabını kaydeder.
- cmdEnBas_Click, cmdGeri_Click, cmdIleri_Click, cmdEnSon_Click: Kayıtlar arasında ilk, önceki, sonraki ve son kayda gider.
- cmdtemizle_Click: Ad, ikamet ve maaş alanlarını temizler.
- txtmaas_KeyPress ve txtmaas_Change: Maaş kutusuna yalnızca rakam girilmesini sağlar ve değeri binlik ayraçlı biçimlendirir.
- cmdkapat_Click: Formu kapatır.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- Alt+F8 ile FormAc makrosunu çalıştırın.
- Ad listesinden bir kişi seçip Bul düğmesine basın; bilgiler forma gelir.
- Değişiklik için alanları düzenleyip Değiştir, kaydı kaldırmak için Sil düğmesine basın.
- Yeni kayıt için alanları Temizle ile boşaltın, bilgileri girin ve Kaydet düğmesine basın.