Çözüldü cari hareket bakiye aktarımı

herkese iyi akşamlar amatörce sizden aldığım yardım ve araştırmalarım ile ufak bir muhasebe programı yapmaya çalışıyorum. alış faturası girerken kaydet butonuna bastığımda fatura kaydediyor ve stok hareketleri ile alış faturası sayfasına her şekilde doğru gidiyor. ama faturayı kapalı yapınca cari sayfasının borç kısmına gitmiyor. bu konuda yardımcı olursanız sevinirim.

Sub CariBakiyeGuncelle()
Dim Y As Long
Dim AlacakToplam As Double
Dim BorcToplam As Double
AlacakToplam = 0
BorcToplam = 0

If CmbNoriade.Value = "Normal" And CmbAcikKapali.Value = "Açık" Then
For Y = 2 To 1000000
If Sheets("AlisFaturasi").Range("E" & Y).Value = "" Then Exit For
If Sheets("AlisFaturasi").Range("E" & Y).Value = TxCariKod.Value Then
AlacakToplam = AlacakToplam + Sheets("AlisFaturasi").Range("J" & Y).Value


Next
For Y = 2 To 1000000
If Sheets("Cari").Range("A" & Y).Value = "" Then Exit For
If Sheets("Cari").Range("A" & Y).Value = TxCariKod.Value Then
Sheets("Cari").Range("L" & Y).Value = AlacakToplam
Sheets("Cari").Range("M" & Y).Value = Sheets("Cari").Range("K" & Y).Value - Sheets("Cari").Range("L" & Y).Value
End If

Else

If CmbNoriade.Value = "Normal" And CmbAcikKapali.Value = "Kapalı" Then
For Y = 2 To 1000000
If Sheets("AlisFaturasi").Range("E" & Y).Value = "" Then Exit For
If Sheets("AlisFaturasi").Range("E" & Y).Value = TxCariKod.Value Then
AlacakToplam = AlacakToplam + Sheets("AlisFaturasi").Range("J" & Y).Value And BorcToplam = BorcToplam + Sheets("AlisFaturasi").Range("I" & Y).Value
End If

Next
For Y = 2 To 1000000
If Sheets("Cari").Range("A" & Y).Value = "" Then Exit For
If Sheets("Cari").Range("A" & Y).Value = TxCariKod.Value Then
Sheets("Cari").Range("L" & Y).Value = AlacakToplam
Sheets("Cari").Range("K" & Y).Value = BorcToplam
Sheets("Cari").Range("M" & Y).Value = Sheets("Cari").Range("K" & Y).Value - Sheets("Cari").Range("L" & Y).Value
End If

Next