Private Sub btn_KayýtEkle_Click()



If txt_MasrafTarihi <> "" And txt_BelgeNo <> "" And cmb_Firma <> "" And cmb_MasrafTuru <> "" And txt_MasrafTutari <> "" Then



    If IsNumeric(txt_MasrafTutari.Value) Then

        SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1



        If SonSatir = 2 Then

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = txt_MasrafTutari.Value + 0

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).NumberFormat = "#,##0.00"

        

        Else

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = txt_MasrafTutari.Value + 0

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).NumberFormat = "#,##0.00"

        End If

        

    Else

        MsgBox " Masraf Tutarý Hanesine Sadece Rakam Girilebilir "

        GoTo SoN:

    End If



Else

    MsgBox " Dikkat...! Tanýmlý Alanlar Boþ Geçilemez  "



End If

SoN:



txt_MasrafTarihi = ""

txt_BelgeNo = ""

cmb_Firma = ""

cmb_MasrafTuru = ""

txt_Aciklama = ""

txt_MasrafTutari = ""



End Sub

---

Yani alttaki gibi çözüldü.