• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

turgay1983

Yeni Üye
Katılım
14 Haz 2022
Mesajlar
209
Çözümler
2
Aldığı beğeni
21
Excel V
Office 2016 TR
Konu Sahibi
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
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst