Kod:
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) = txt_MasrafTutari
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) = txt_MasrafTutari