Arquivo para desenvolvimento.

Boa noite!!

Poderia dar mais detalhes??

Boa noite !

se você pegou a planilha de exemplo, vera que os botão "Relatório Dinheiro" quando clicado seleciona na coluna B de todos os fornecedores somente "Bar da Praia" e "Hospedagem logo em seguida na coluna P faze a soma dos valores dessa coluna e retira as células vazias e mostra o total no final.

O meu problema e que quando insere novas linha a macro se desconfigura não reconhece que foi adicionado novas linha para inserção de dados.

Boa noite!!!

Ainda preciso entender, me diga onde acrescentar um nova linha, pois o teste que fiz não tive problema!

Olá AlexandreVBA,
Sim eu sei, mas se você for ver o resultado do total ele não aparece!
E tipo que você tem a planilha normal, então você click no relatório do cartão
Lá no final ele mostra o total direitinho, agora se você inserir duas ou três linha novas
Você click novamente no relatório o total não aparece no mesmo local ou fica oculta

Obrigado pelo esforço

Boa tarde!!

Estou no serviço e não vou poder te responder (por conta do anexo, está em casa), espero qu e alguém possa te ajudar.

Até eu chegue em casa.

Alguém pra ajudar!
Fim de mês preciso tira os relatório

Veja se é isso (altere o codigo do btn Dinheiro conforme abaixo)

Private Sub CommandButton1_Click()
'
' Dinheiro2 Macro
'
Dim lastRow As Long
' Determina a ultimalinha da coluna R com dados
lastRow = Cells(Cells.Rows.Count, "r").End(xlUp).Row
'
    ActiveSheet.Range("A3:R" & lastRow).AutoFilter Field:=2, Criteria1:= _
        "=Bar da Praia", Operator:=xlOr, Criteria2:="=Hospedagem"
    ActiveSheet.Range("A3:R" & lastRow).AutoFilter Field:=7, Criteria1:="Dinheiro"
    Range("P" & lastRow + 1).Select
    ActiveCell.Formula = "=SUBTOTAL(9,P4:P" & lastRow - 3 & ")"
    Range("P" & lastRow + 1).Select
    ActiveSheet.Range("A3:R" & lastRow).AutoFilter Field:=16, Criteria1:="<>"
End Sub