Bakiye Excel

[ERRİC]

merhaba ekte sayfa sayısını azalttığım cari hesap excelimzde ; her sayfadaki

GELEN FATURA

YAPILAN ÖDEME

GÜNCEL BORÇ

sutunlarındaki hareketlerin özetlerini firma isimleri ile birlikte; özet sayfasına getirmek istiyorum;

makroyuyazdık ama gelmedi bir yerde eskik var bakar mısınız;
bayramınız kutlu olsun;

Private Sub CommandButton1_Click()

Set S1 = Sheets("özet")
Sheets("özet").Range("A3:L65000").ClearContents
S1.Range("A3:L65000").Font.Bold = False
On Error Resume Next

SIR = 2
For I = 1 To Sheets.Count
Set SY = Sheets(I)
X = 0
X = SY.Range("A3:A65000").Find("TOPLAM").Row
If X <> 0 Then
If Sheets(I).Name <> "ATAV" Then
B = SY.Cells(X + 2, "F").Value
A = SY.Cells(X + 2, "G").Value
T = B - A
N = ""
If T = 0 Then N = "BORÇ/ALACAK Bulunmamaktadır"
If T > 0 Then N = "Alacak Toplamınız"
If T < 0 Then N = "Borç Toplamınız"

SIR = SIR + 1
S1.Cells(SIR, "A").Value = Sheets(I).Name
S1.Cells(SIR, "B").Value = N
S1.Cells(SIR, "C").Value = B: TB = TB + B
S1.Cells(SIR, "D").Value = A: TA = TA + A
S1.Cells(SIR, "E").Value = T: TT = TT + T

End If
End If

Next
SIR = SIR + 1
S1.Range("A" & SIR & ":" & "E" & SIR).Font.Bold = True
S1.Cells(SIR, "B").Value = "TOPLAM"
S1.Cells(SIR, "C").Value = TB
S1.Cells(SIR, "D").Value = TA
S1.Cells(SIR, "E").Value = TT
End Sub

 

[ERRİC]

selamlar var mı müsait olan acaba