Çek Kaydi

[22ece]

Merhaba,
Bir çalkışma sayfasına
Ödeme tarihi
Verilen kişi Kurum
Banka
Miktar
Tanzim tarihi
Girildiğinde ...
Bu çeki Aylık ödeme listesinde ilgili ödeme tarihine göre kaydeden bir excel yöntemi için yardım gerekli
Örnegin
21/12/2007
....
....
ARALIK-2007 Çalışma sayfasına eklensin vs gibi

sEvgilert
eCe
::E)

 

[Orion1]

Sayın 22ece ,ekli dosyayı inceleyiniz.
Kaydet butonuna basınız ve kaydediniz.

Private Sub CommandButton1_Click()
Dim i As Byte, sat As Long
If Not IsDate(TextBox1.Value) Then
    MsgBox "Geçerli bir tarih giriniz.", vbCritical, Application.UserName
    TextBox1.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox5.Value) Then
    MsgBox "Miktara sayısal bir değer giriniz.", vbCritical, Application.UserName
    TextBox5.SetFocus
    Exit Sub
End If
Sheets("ANA_SAYFA").Range("B3").Value = Format(TextBox1.Value, "mmmm")
syf = Sheets("ANA_SAYFA").Range("A3").Value & "-" & Year(TextBox1.Value)
On Error GoTo hata
sat = Sheets(syf).Cells(65536, "A").End(xlUp).Row + 1
For i = 0 To Controls.Count - 1
    If Left(Controls(i).Name, 7) = "TextBox" Then
        Sheets(syf).Cells(sat, i - 6).Value = Controls(i)
        Controls(i).Value = Empty
    End If
Next
Sheets(syf).Cells(sat, "A").Value = CDate(Sheets(syf).Cells(sat, "A").Value)
Sheets(syf).Cells(sat, "A").NumberFormat = "dd.mm.yyyy"
Sheets(syf).Cells(sat, "E").Value = Sheets(syf).Cells(sat, "E") * 1
Sheets(syf).Cells(sat, "E").NumberFormat = "#,##0.00"
MsgBox "Kayıt Başarı ile Girildi..!!", vbOKOnly + vbInformation, Application.UserName
TextBox1.SetFocus
Exit Sub
hata:
MsgBox " Kayıt Yapılmadı.[ " & syf & " ] İsminde bir sayfa yok", vbCritical, Application.UserName
End Sub

 

[Orion1]

Merhabalar.
Ben bir tane çek kaydı mesaj başlığına cevap yazmıştım.Şimdi iki mesaj başlığı olmuş.
Yönetici üstadlarımın bilgilerine.