Dim x As Long
Dim y As Long
Dim sor As Byte
If cbborcalacak.value = "BORÇ" Then
sor = MsgBox("Cariye borç girişi yapılacaktır.Onaylıyor musunuz.?", vbYesNo + vbDefaultButton1 + vbQuestion, "CARİ BORÇLANDIR")
If sor = 7 Then Exit Sub
Dim cariHesapLastRow As Long
cariHesapLastRow = Sheets("CariHesap").Cells(Rows.Count, "A").End(xlUp).Row + 1
For y = 2 To 1000
If Sheets("CariHesap").Range("A" & y).value = cbCariKodu.value Then Exit For
Next
Sheets("CariHesap").Range("B" & y).value = cbCariKodu.value
Sheets("CariHesap").Range("C" & y).value = txtcariadi.value
Sheets("CariHesap").Range("E" & y).value = txtvergino.value
For x = 2 To 1000
If Sheets("CariHareketleri").Range("A" & x).value = "" Then Exit For
Next
Sheets("CariHareketleri").Range("A" & x).value = txttarih.value
Sheets("CariHareketleri").Range("B" & x).value = Format(txtsaat.value, "hh:mm")
Sheets("CariHareketleri").Range("C" & x).value = txtislemkodu.value
Sheets("CariHareketleri").Range("D" & x).value = cbCariKodu.value
Sheets("CariHareketleri").Range("E" & x).value = "CARİ BORÇLANDIRILDI"
Sheets("CariHareketleri").Range("F" & x).value = txtcariadi.value
Sheets("CariHareketleri").Range("G" & x).value = txttutar.value
Sheets("CariHareketleri").Range("H" & x).value = 0
Sheets("CariHareketleri").Range("I" & x).value = "CARİ BORÇLANDIR"
Sheets("CariHareketleri").Range("J" & x).value = txtcariadi.value & " FİRMASINA " & Format(txttutar.value, "#,##0.00") & "TL" & "TUTARINDA BORÇ GİRİŞİ YAPILDI."
Sheets("CariHesap").Range("O" & y).value = CDbl(Sheets("CariHesap").Range("O" & y).value) + CDbl(txttutar.value)
Frmmesaj.lblmesaj.Caption = ""
frmmesaj42.show
