Sadece Dolu Textbox Verilerini Listeleme

Bu dosya, bir UserForm üzerindeki TextBox kutularından yalnızca dolu olanların Sayfa1 sayfasındaki listeye eklenmesini gösterir. Boş bırakılan kutular listeye yazılmaz; her kayıt A sütunundaki son dolu satırın altına eklenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "VERİLER" başlığı, A2:A10 aralığında örnek olarak girilmiş metin1, metin3 ve metin4 değerleri bulunur. Sayfada UserForm1 penceresini açan bir CommandButton yer alır.
• UserForm1: Verilerin girildiği TextBox kutularını ve bunları listeye aktaran bir CommandButton içerir.

Dosyada formül bulunmaz; işlemin tamamı makro ile yapılır.

Makrolar​

• Sayfa1 - CommandButton1_Click: Sayfadaki düğmeye tıklandığında UserForm1 penceresini açar.
• UserForm1 - CommandButton1_Click: Önce Sayfa1 sayfasının A sütunundaki son dolu satırı bulur ve bir alt satırı başlangıç noktası yapar. Ardından döngü ile Textbox1'den Textbox4'e kadar olan kutuları sırayla kontrol eder. İçi boş olmayan kutunun değeri A sütununa yazılır ve satır sayacı bir artırılır. Boş kutular atlandığı için listede boşluk oluşmaz.

Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur; makro yalnızca Sayfa1 sayfasına veri yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak UserForm1 penceresini açın.
3. İstediğiniz TextBox kutularına veri girin; kullanmayacağınız kutuları boş bırakın.
4. Formdaki düğmeye tıklayın; dolu kutuların değerleri A sütunundaki listenin sonuna eklenir.

Kod 4 TextBox için yazılmıştır. Daha fazla kutu kullanılacaksa formda yeni kutular oluşturulur ve koddaki döngü üst sınırı (For i = 1 To 4) kutu sayısına göre değiştirilir.