Modül 5: İleri Düzey Veri İşleme ve Raporlama
UserForm Elemanları: TextBox ve CommandButton
UserForm tasarımını tamamladıktan sonra içindeki araçlara komut yazma aşamasına geçeriz. Kullanıcının klavyeden veri girdiği alan TextBox, bu veriyi onaylayıp Excel'e gönderen yapı ise CommandButton nesnesidir.
Buton Arkasına Kod Yazma Mantığı
UserForm üzerindeki "Kaydet" butonuna çift tıkladığınızda VBA sizi Private Sub CommandButton1_Click() olay yordamına götürür. Burada formdaki TextBox değerlerini okuyarak son dolu satıra yazdırırız ve işlem bitince kutuları sıfırlarız.
Örnek Kayıt Kodu Kalıbı
Private Sub CommandButton1_Click()
Dim sonSatir As Integer
sonSatir = Cells(Rows.Count, "A").End(xlUp).Row + 1
' TextBox1 verisini Excel hücresine aktar
Cells(sonSatir, 1).Value = TextBox1.Text
' Kutuyu temizle
TextBox1.Text = ""
End Sub