Excel saldo e subtotal relatorio excel

[Miguelriedel]

Olá,

 

alguém sabe alguma maneira para eu automatizar a criação desse subtotal e saldo??

 

 

Anexo planilha abaixo.

 

 

exemplo forum.rar

[Wendell Menezes]

Presumindo que a linha com o SUBTOTAL não exista e tenha que ser criada:

 

Sub SUBTOTAL()

Dim r   As Long
Dim h   As Byte

r = 14

While Cells(r, 1) <> ""
    h = 1
        While Cells(r, 4) = Cells(r + h, 4)
            h = h + 1
        Wend
    Cells(r + h, 4).EntireRow.Insert
    Cells(r + h, 2) = "**SUBTOTAL"
    Cells(r + h, 9).Formula = "=SUBTOTAL(9,I" & r & ":I" & r + h - 1 & ")"
    If IsNumeric(Cells(r, 11).End(xlUp)) Then
        Cells(r + h, 11).Formula = "=K" & Cells(r + 1, 11).End(xlUp).Row & "-I" & r + h
            Else
        Cells(r + h, 11).Formula = "=I" & r + 1
    End If
    r = r + h + 1
Wend

End Sub

 

[Miguelriedel]

Deu certo, obrigado!