Userformda Sayfaya Alt Alta Sıralı Kaydetme

Bu dosya, bir UserForm üzerinden girilen ad ve cinsiyet bilgisini sayfada her seferinde ilk boş satıra, alt alta kaydeden VBA örneğidir. Veri girişi formdan yapıldığı için hücrelere doğrudan yazmaya gerek kalmaz.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A1:A11 aralığında örnek adlar (Bob, Jill, Theresa, James, Thomas, Jim, Henry, Karen, Jennifer, Penny, Timothy) bulunur. A sütunu ad, B sütunu cinsiyet bilgisini alır. Sayfada formülü açan bir CommandButton1 düğmesi yer alır.
• UserForm1: Ad için bir metin kutusu (TextName), cinsiyet için Male, Female ve Unknown seçenekleri ile OK ve Close düğmelerini içeren giriş formudur.

Makrolar​

• CommandButton1_Click (Sheet1): Sayfadaki düğmeye tıklandığında UserForm1 formunu açar.
• exceldestek (Module1): Aynı formu açan makrodur; Alt+F8 penceresinden çalıştırılabilir veya bir şekle atanabilir.
• OKButton_Click (UserForm1): Önce Sheet1 sayfasını etkinleştirir. Ad kutusu boşsa "You must enter a name." uyarısını verir ve kaydı yapmaz. Ad doluysa A sütunundaki dolu hücre sayısını CountA ile sayıp bir ekleyerek sonraki boş satırı bulur. Adı A sütununa, seçili cinsiyeti (Male, Female veya Unknown) B sütununa yazar. Ardından ad kutusunu temizler, seçeneği Unknown konumuna alır ve imleci ad kutusuna getirir.
• CloseButton_Click (UserForm1): Formu kapatır.

Kodda dosya silme veya dış bağlantı gibi işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasındaki düğmeye tıklayın veya Alt+F8 ile exceldestek makrosunu çalıştırın.
3. Açılan formda adı yazın ve cinsiyet seçeneğini işaretleyin.
4. OK düğmesine tıklayın; kayıt A ve B sütunlarında son dolu satırın altına eklenir ve form yeni giriş için hazır kalır.
5. İşlem bitince Close düğmesiyle formu kapatın.

Sonraki satırın bulunması A sütunundaki dolu hücre sayısına dayandığı için, A sütununda boş hücre bırakılmaması gerekir.