UserForm Nesnesi ile Veri Kaydetme

Bu dosya, Excel sayfasındaki personel kayıtlarının bir UserForm üzerinden yönetilmesini gösteren örnek bir uygulamadır. Kayıt ekleme, mevcut kaydı değiştirme, silme ve kayıtlar arasında gezinme işlemleri form üzerinden yapılır. Başlangıç düzeyindeki makro kullanıcıları için hazırlanmıştır.

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

Dosyanın içeriği​

• Sayfa1: A1:J92 aralığında veri tablosu bulunur. Örnek veriler: Adı Soyadı, Doğum Tarihi, Maaşı sütunları (örneğin Ali Veli, 1500). Kod, A-E sütunlarını Adı Soyadı, Doğum Yeri, Doğum Tarihi, İkamet ve Maaş alanları olarak kullanır. Sayfada UserForm'u açan bir buton vardır.
• UserForm1: Beş veri alanı (TextBox), kayıt listesi (ListBox), ilk/önceki/sonraki/son kayıt düğmeleri, Yeni, Düzelt, Kaydet, Sil, Vazgeç ve Kapat düğmeleri ile filtreleme alanı içerir.
• Module1: Durum çubuğunda bekleme ve yüzde ilerleme mesajı gösteren iki örnek makro.

Dosyada formül, tablo, grafik veya pivot tablo yoktur.

Makrolar​

• Workbook_Open: Dosya açıldığında UserForm1'i otomatik gösterir.
• Sayfa1 CommandButton1_Click: Sayfadaki butona basıldığında UserForm1'i açar.
• Kaydet (CommandButton1): Beş alanın boş olup olmadığını kontrol eder. Girilen ad sayfada varsa kaydı günceller, yoksa tablonun sonuna yeni kayıt ekler. Metinleri WorksheetFunction.Proper ile baş harfleri büyük biçime çevirir.
• Sil (CommandButton4): Onay sorduktan sonra seçili kaydın satırını siler.
• Gezinme (Cmd1-Cmd4): İlk, önceki, sonraki ve son kayda geçer; ilk ve son kayıtta uyarı verir.
• Yardımcı prosedürler: Alanları temizleme, kilitleme, açma ve düğmeleri etkinleştirme/pasifleştirme işlemlerini yapar.
• status ve st: Durum çubuğu mesajı örnekleridir. st makrosu ayrıca A1 hücresine yüzde metni yazar.

Dikkat: Form üzerindeki logo resmine tıklandığında Image1_Click prosedürü varsayılan e-posta programında, belirli adreslere ("Veritabanı Dosyası" konulu) bir mailto bağlantısı açar. Kendiliğinden gönderim yapmaz, ancak bu davranıştan haberdar olmalısınız. Sil düğmesi seçili satırı kalıcı olarak siler.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; UserForm kendiliğinden görüntülenir.
2. Yeni kayıt için "Yeni" düğmesine basın, alanları doldurun ve "Kaydet" ile sayfaya aktarın.
3. Mevcut kaydı değiştirmek için listeden seçin (çift tıklama), "Düzelt" ile alanları açın, değiştirip kaydedin.
4. Silmek için kaydı seçip "Sil" düğmesine basın ve onaylayın.
5. Çok sayıda kayıtta, formun sağındaki filtreleme alanını kullanarak aradığınız kişiyi bulun.