Sayın hocalarım,

Private Sub btn_BTKAYDET_Click()
On Error Resume Next


gonderen = WorksheetFunction.CountA(Worksheets("GELIRLER").Range("C:C")) + 2
If gonderen = 2 Then
If BAKBIR < txt_BTTUTAR.Value Then
MsgBox txt_BTTUTAR.Value & " Bakiye olmadığından işlem yapılamadı..."
Exit Sub
End If

Worksheets("GELIRLER").Cells(gonderen, 2) = txt_GELIR_SIRA.Value
Worksheets("GELIRLER").Cells(gonderen, 3) = txt_BTTARIH.Value
Worksheets("GELIRLER").Cells(gonderen, 5) = cb_BTGONDERENBANKA.Value
Worksheets("GELIRLER").Cells(gonderen, 6) = cb_BTBACIKLAMA.Value
Worksheets("GELIRLER").Cells(gonderen, 7) = "ÇIKIŞ"
Worksheets("GELIRLER").Cells(gonderen, 9) = Format(txt_BTTUTAR.Value, "#,##0.00")
Worksheets("GELIRLER").Cells(gonderen, 10) = cb_ISLEMYAPAN.Value
Worksheets("GELIRLER").Cells(gonderen, 11) = cb_BTGONDERENBANKA.Value
Else
Worksheets("GELIRLER").Cells(gonderen, 2) = Worksheets("GELIRLER").Cells(gonderen - 1, 1) + 1
Worksheets("GELIRLER").Cells(gonderen, 3) = txt_BTTARIH.Value
Worksheets("GELIRLER").Cells(gonderen, 5) = cb_BTGONDERENBANKA.Value
Worksheets("GELIRLER").Cells(gonderen, 6) = cb_BTBACIKLAMA.Value
Worksheets("GELIRLER").Cells(gonderen, 7) = "ÇIKIŞ"
Worksheets("GELIRLER").Cells(gonderen, 9) = Format(txt_BTTUTAR.Value, "#,##0.00")
Worksheets("GELIRLER").Cells(gonderen, 10) = cb_ISLEMYAPAN.Value
Worksheets("GELIRLER").Cells(gonderen, 11) = cb_BTGONDERENBANKA.Value
End If

MsgBox "Kayıt İşlemi Yapıldı!.."

End Sub


eğer BAKBIR küçükse txt_BTTUTAR mesaj verip işlem yapmasın istiyorum ama yapıyor.


Saygılarımla,