Veri Girişi

[drahmin]

Aşağıda ekteki dosyaya veri girişi yapmak istiyorum. Veri Gir butonuna basınca açılan pencere şu şekilde:

Ekle tuşuna bastığım zaman Açıklama kısmına girdiğim veriyi tablodaki açıklama sütunundaki en son veri girilen hücrenin altındaki hücreye girecek. Alacak ve borç kısımlarıda aynı şekilde olacak. herhangi biri için örnek verseniz diğerlerini ona bakarak yapabilirim. Yanıtlarınızı bekliyorum. Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long, alacak As Double, borc As Double
If TextBox1.Text = "" Then
    MsgBox "Kayıt eklenmedi." & vbLf & "Açıklama Boş olamaz.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox2 <> "" And Not IsNumeric(TextBox2.Text) Then
    MsgBox "Alacak sayısal bir değer olmalıdır." & vbLf & "Kayıt yapılmadı", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If
If TextBox3 <> "" And Not IsNumeric(TextBox3.Text) Then
    MsgBox "Alacak sayısal bir değer olmalıdır." & vbLf & "Kayıt yapılmadı", vbCritical, "UYARI"
    TextBox3.SetFocus
    Exit Sub
End If
If TextBox2.Text <> "" Then alacak = TextBox2.Text
If TextBox3.Text <> "" Then borc = TextBox3.Text
With Sheets("Sayfa1")
    sat = .Cells(65536, "C").End(xlUp).Row + 1
    If sat >= 65533 Then
        MsgBox "Kayıt yapılmadı." & vbLf & "Sayfada satır doldu", vbCritical, "UYARI"
        Exit Sub
    End If
    .Cells(sat, "C").Value = TextBox1.Text
    .Cells(sat, "D").Value = alacak
    .Cells(sat, "D").NumberFormat = "#,##0.00"
    .Cells(sat, "E").Value = borc
    .Cells(sat, "E").NumberFormat = "#,##0.00"
End With
MsgBox "Kayıt başarı ile girildi." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[drahmin]

Tam anlamıyla istediğim gibi olmuş. Çok teşekkürler.

 

[Orion1]

Tam anlamıyla istediğim gibi olmuş. Çok teşekkürler.

Rica ederim.
Sadece veri girmek 2-3 satırdan oluşuyor.Ama esasen bunların kontrolunu yapmak lazım.O zaman iş bayağı basitmiş olayından çıkıyor.Kodlar uzuyorda uzuyor.Gördüğünğüz gibi ana kod 3-5 satırdan oluştuğu hlde kontrollerle birlikte kaç satır olmuş.
İyi çalışmalar.