Cari hesabı borçlandırma

[kimya1]

Arkadaşlar iyi günler. Excel VBA' da ön muhasebe programı hazırlıyorum. Bir konuda yardımınıza ihtiyaç duydum. Stok satışında aynı stoğu birden fazla cariye satış işlemi yapmaya çalışıyorum. Listelemeleri ve kaydetme işlemini yaptırdım ama borç tutarını carilere aktaramadım. Kodları şöyle girdim:

Private Sub btnKaydet_Click()
Dim sor As Byte
Dim X As Long
Dim Y As Long
Dim ftoplam As Double
ftoplam = 0
If txtStokKodu.Value = "" Or txtStokAdi = "" Or lstGunlukSatis.ListCount = 0 Then frmMesaj.lblMesaj.Caption = "Eksik bilgiler var...": frmMesaj.Show: Exit Sub

sor = MsgBox("Günlük Satış Kaydedilsin mi?", vbYesNo + vbDefaultButton1 + vbQuestion, "KAYDET")
If sor = 7 Then Exit Sub
For X = 2 To 1000000
If Sheets("GunlukSatisDetay").Range("A" & X).Value = "" Then Exit For
Next
Stokazalt
HareketKaydet
CariBorclandir
frmAnaform.ToplamlariGetir
frmMesaj.lblMesaj.Caption = "Günlük Satış İşlemi Kaydedildi..."
frmMesaj.Show
Unload Me
End Sub

Sub CariBorclandir()
Dim kayitsayisi As Integer
Dim X As Long
Dim a As Long
Dim b As Long
kayitsayisi = lstGunlukSatis.ListCount
For X = 2 To 1000000
If Sheets("Cari").Range("A" & X).Value = "" Then Exit For
Next

For b = 2 To X
For a = 2 To kayitsayisi + 1
If Sheets("GunlukSatisHareketleri").Range("H" & a).Value = Sheets("Cari").Range("A" & b).Value Then Sheets("Cari").Range("H" & b).Value = Sheets("Cari").Range("H" & b).Value + Sheets("GunlukSatisHareketleri").Range("Q" & a).Value
Sheets("Cari").Range("J" & a).Value = Sheets("Cari").Range("H" & a).Value - Sheets("Cari").Range("I" & a).Value
Next
Next
End Sub

Hep en üstteki cariyi borçlandırıyor. İlgili cariyi borçlandıramadım.
Yardımcı olursanız sevinirim.