Bu dosya, Excel'de bir UserForm (frmData) üzerinden veriler sayfasına yeni kayıt eklemeyi gösteren bir VBA örneğidir. Formdaki alanlar doldurulup ekleme düğmesine basıldığında bilgiler sayfadaki ilk boş satıra yazılır.
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
- veriler: Kayıtların tutulduğu sayfadır (A1:G2). Sütunlar: Id, Ad-Soyad, Cinsiyet, Konum, E-mail Adresi, İletişim No ve Açıklama.
- frmData: Veri giriş formudur. Id, ad-soyad, cinsiyet (Erkek/Kadın seçenekleri), konum, e-posta, iletişim no ve açıklama alanları ile ekleme, temizleme ve iptal düğmeleri bulunur.
Makrolar
- Oval2_Click (Module1): Sayfadaki oval şekle atanan makrodur; tıklandığında frmData formunu açar.
- Clear_DataSheet (Module1): Sayfa2 üzerindeki A:G sütunlarını tamamen temizler. Bu makro otomatik çalışmaz, elle çalıştırılır; kullanmadan önce hangi sayfayı temizleyeceğine dikkat edin.
- UserForm_Initialize: Form açılırken veriler sayfasındaki son dolu satırı bulup Id kutusuna yazar.
- cmdAdd_Click: Önce doğrulamayı çağırır, sorun yoksa ekran güncellemesini kapatıp kaydı ilk boş satıra yazar. Id değeri satır numarasından üretilir. A1 hücresi boşsa başlıkları yazar, sütunları otomatik sığdırır ve başlık satırını kalın yapar.
- Data_Validation: Ad-Soyad, cinsiyet seçimi, konum, e-posta ve iletişim no alanlarının boş olup olmadığını denetler; eksik alan için uyarı mesajı verir. Açıklama alanı zorunlu değildir.
- fn_LastRow: Sayfadaki son dolu satırı bulan yardımcı fonksiyondur.
- cmdClear_Click: Form alanlarını temizler ve cinsiyeti Erkek olarak ayarlar.
- cmdCancel_Click: Formu kapatır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfadaki oval şekle tıklayarak formu açın.
- Ad-soyad, cinsiyet, konum, e-posta ve iletişim bilgilerini girin; isterseniz açıklama ekleyin.
- Ekleme düğmesine basın; kayıt veriler sayfasına eklenir ve Id kutusu güncellenir.
- Yeni kayıt için alanları temizleyebilir, işiniz bitince formu iptal düğmesiyle kapatabilirsiniz.