Devreden bakiye Dövizli ve TL

[umit1907]

Merhabalar,
ekteki dosyada devreden tl ve dövizli bakiyeleri nasıl hesaplayabiliriz.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki 2 video'yu izleyin. Çözüm bulacağınızı düşünüyorum.

 

[umit1907]

Çok Teşekkürler Erdem bey halletmeye çalışacağım.

 

[umit1907]

Erdem bey videolarda devreden bakiye ile ilgili bir anlatım göremedim ama.

 

[umit1907]

Sub ekstre()
Set sK = Sheets("tbl_FislerDetay")
Set sE = Sheets("muavin")

Firma = sE.[D1].Value
basTar = [D3].Value
sonTar = [D4].Value
XDs = sK.Cells(Rows.Count, 1).End(3).Row
lst = sK.Range("a2:j" & XDs).Value
ReDim w(1 To XDs, 1 To 11)
w(1, 4) = "Devreden Bakiye"
Say = 2
For i = 1 To UBound(lst)
If lst(i, 3) = Firma Then 'firma sutunu
If lst(i, 1) < basTar Then
w(1, 5) = w(1, 5) + lst(i, 6) 'borç
w(1, 6) = w(1, 6) + lst(i, 7) 'alacak
w(1, 8) = w(1, 5) - w(1, 6) 'bakiye

w(1, 9) = w(1, 9) + lst(i, 8) 'ıd borç
w(1, 10) = w(1, 10) + lst(i, 9) 'ıd alacak
w(1, 11) = w(1, 6) - w(1, 7) 'IDbakiye


ElseIf lst(i, 1) <= sonTar Then
w(Say, 1) = lst(i, 1) 'tarih
w(Say, 2) = lst(i, 3) 'hesap Kodu
w(Say, 3) = lst(i, 4) 'Hesap Adı
w(Say, 4) = lst(i, 5) 'açıklama
w(Say, 5) = lst(i, 6) 'borç
w(Say, 6) = lst(i, 7) 'alacak
w(Say, 8) = w(Say - 1, 8) + w(Say, 5) - w(Say, 6) 'bakiye
w(Say, 9) = lst(i, 8) 'id Borç
w(Say, 10) = lst(i, 9) 'id Alacak
w(Say, 11) = w(Say - 1, 11) + w(Say, 11) - w(Say, 12) 'id bakiye
Say = Say + 1
End If
End If
Next i
sE.[A19].Resize(530, 10).Value = w





End Sub


bu kodla devreden bakiyeleri felan halledebildim ama sadece ID devredenleri toplatamadım.