+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bakiyeden Fazla Çıkış Yapmaması Gerekiyor Ama Çıkış Yapıyor (/konu-bakiyeden-fazla-cikis-yapmamasi-gerekiyor-ama-cikis-yapiyor.html)
Bakiyeden Fazla Çıkış Yapmaması Gerekiyor Ama Çıkış Yapıyor - yenginoglu - 02/06/2025
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,
RE: Bakiyeden Fazla Çıkış Yapmaması Gerekiyor Ama Çıkış Yapıyor - berduş - 02/06/2025
karşılaştırma işlemini yordamın en başına almayı dener misiniz?
RE: Bakiyeden Fazla Çıkış Yapmaması Gerekiyor Ama Çıkış Yapıyor - onur_can - 02/06/2025
Merhaba,
On Error Resume Next
satırını kaldırıp çalıştırın, hata nereden kaynaklanıyor bakalım.
RE: Bakiyeden Fazla Çıkış Yapmaması Gerekiyor Ama Çıkış Yapıyor - atoykan - 03/06/2025
Kod:
If BAKBIR < txt_BTTUTAR.Value Then