user form

[WHO_I_AM]

Merhaba Arkadaşlar. diğer mesajlara bakarak ek'teki user formu oluşturabildim. Ancak user form a girdiğim bilgileri kayıt edemiyor. Yardımlarınız için şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Kayıt girmek için kullandığın TextBoxların ismi (Name) ile bilgi_giriste kullandığın değişkenler aynı olmalı. Örn. Plaka girişi yaptığın textboxun adı YER (textbox a bu ismi vermişsin) Bunu ActiveCell.Offset(0, 1).Value = KAYIT.PLAKA.Value diye aktarmaya çalışıyorsun ki;bu olmaz.

Ayrıca bilgi_girisi ni CommandButton1_Click() olayına yazarsan daha iyi olur.

Kolay gelsin.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıda.

Private Sub CommandButton1_Click()
Dim sonsat As Long, i As Byte
Sheets("A").Select
If TextBox1.Value = "" Then
    MsgBox "Plaka Boş geçilemez . Bir Plaka Giriniz.!", vbCritical
    TextBox1.SetFocus
    Exit Sub
End If
sonsat = Sheets("A").Cells(65536, "A").End(xlUp).Row
If sonsat = 65535 Then
    MsgBox "Sayfa Doldu.Başka kayıt yapamazsınız.!", vbCritical
    Exit Sub
End If
For i = 1 To 9
    Cells(sonsat + 1, i).Value = Controls("TextBox" & i)
    Controls("TextBox" & i) = ""
Next
MsgBox "Kayıt Yapıldı..", vbOKOnly
TextBox1.SetFocus
End Sub