Ana hesap kodlarının diğer sayfalarda gösterilmesi

[1903emre34@gmail.com]

Merhaba,

"A" sütündaki hesap kodlarını (100,102 vs) sayfa2'de yer alan ana hesap altına,

bakiye devri ile rapor dönemin borç toplayıp,(mavi işaretler)
sayfa2'e rapor dönemi borç bakiyesine altına yerleştrilmesi

sayfa1'de yer alan rapor dönemi alacak tutarların sayfa2'e yer alan rapor dönemi alacak kısmını yerleştirilmesi için kod oluşturabilirmiyiz?

 

[Ziynettin]

Merhaba,

Sub aktar()
Dim a(), b()
Dim i As Long, Say As Long, S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
a = S1.Range("A2:I" & S1.Cells(Rows.Count, 1).End(3).Row).Value
ReDim b(1 To UBound(a), 1 To 4)
    For i = 1 To UBound(a)
        If Not a(i, 1) = "" Then
            If a(i, 9) <> 0 Then
                Say = Say + 1
                b(Say, 1) = a(i, 1)
                b(Say, 2) = Abs(a(i, 5) + a(i, 7))
                b(Say, 3) = a(i, 8)
                b(Say, 4) = Abs(a(i, 9))
            End If
        End If
    Next i
    Application.ScreenUpdating = False
    If Say > 0 Then
        S2.Select
        S2.Range("D5:G" & Rows.Count).ClearContents
        S2.[D5].Resize(Say, 4) = b
        S2.[E5].Resize(Say, 3).NumberFormat = "#,##0.00"
    End If
    Application.ScreenUpdating = True
MsgBox "işlem tamam", vbInformation
End Sub

 

[1903emre34@gmail.com]

Teşekkürler,