basit form uygulaması

[ruyaaaa]

Şöyle bir form uygulaması yaptım. ad soyad vs. girilince ve butona tıklanınca excelde ilgili sayfaya veriler eklensin istiyorum. Sub or function not defined hatası alıyorum. Henüz öğrenmekteyim yardım ederseniz sevinirim

 

[Haluk]

Private Sub btnKaydet_Click()
    Dim aktif As Range
    Worksheets("veritabanı").Select 'Activate de olur
    Range("a1000000").End(xlUp).Offset(1, 0).Select 'en alttan en yukarı çık. 1 altına konumlan
    Set aktif = ActiveCell
    aktif.Value = Me.txtAd.Text
    aktif.Offset(0, 1).Value = Me.txtSoyad.Text
    aktif.Offset(0, 2).Value = Me.txtSicil.Text
    aktif.Offset(0, 3).Value = Me.txtGiris.Text
End Sub

.

 

[ruyaaaa]

Private Sub btnKaydet_Click()
    Dim aktif As Range
    Worksheets("veritabanı").Select 'Activate de olur
    Range("a1000000").End(xlUp).Offset(1, 0).Select 'en alttan en yukarı çık. 1 altına konumlan
    Set aktif = ActiveCell
    aktif.Value = Me.txtAd.Text
    aktif.Offset(0, 1).Value = Me.txtSoyad.Text
    aktif.Offset(0, 2).Value = Me.txtSicil.Text
    aktif.Offset(0, 3).Value = Me.txtGiris.Text
End Sub

.

?

 

[Haluk]

?

????

.

 

[ruyaaaa]

????

.

Bu benim yazdığım kod zaten

 

[ulutanas]

Haluk beyin gönderdiği ile sizin ki aynı değil. Denemekte fayda var.