Segue uma possibilidade usando autofiltro e subtotal. Veja se lhe ajuda, se ajudar tente adaptar às demais condições.

Segue uma possibilidade usando autofiltro e subtotal. Veja se lhe ajuda, se ajudar tente adaptar às demais condições.

Olá, ajuda bastante, só gostaria de melhor uma coisa, por exemplo, ví que você colocou o campo data, gostaria de ter essas 3 opções de filtragem através de uma lista suspensa, então eu escolheria por exemplo: Cheques com problemas e preencheria a data, então apareceriam apenas os cheques que estão com problemas até a data digitada no campo de texto além do somatório como já ocorre, após eu apagar o conteúdo da data gostaria que o autofiltro sumisse (aquelas setinhas para baixo), ou existe forma de esconde-las durante a execução ? Abs

Sem autofiltro ou subtotal.

Repare nas fórmulas e me diga se é isso mesmo. Para facilitar, os três cenários agora são a, b e c.

Digite somente nas células em amarelo.

Abs,

Sem autofiltro ou subtotal.

Repare nas fórmulas e me diga se é isso mesmo. Para facilitar, os três cenários agora são a, b e c.

Digite somente nas células em amarelo.

Abs,

Muito Obrigado cara, perfeito, nunca consegueria chegar a essa lógica sem sua ajuda, adaptei na minha planilha completa e funcionou perfeitamente.

Agora, só resta eu conseguir preencher a data em uma caixa de texto e as 3 opções A, B e C em uma caixa de listagem

todo o código referencia A1 e A2 (data e opções), gostaria de fazer, já tenho a caixa de texto que tem o seguinte código:

Private Sub TextBox1_Change()

End Sub

e a caixa de listagem:

Private Sub ComboBox1_Change()

End Sub

Preciso que a caixa de texto grave o que for inserido nela (data) na célula A1 e que a caixa de listagem liste as 3 opções (A, B e C) e grave o a letra escolhida em A2

Entende também de VBA ? com isso fica perfeito.
Abs

Pesquisando aqui códigos no google está quase 100%

coloquei caixa de texto como:

Private Sub TextBox1_Change()
ThisWorkbook.Worksheets("Loja 1").Range("A1").Value = TextBox1
End Sub

Caixa de listagem como:

Private Sub ComboBox1_Change()
ThisWorkbook.Worksheets("Loja 1").Range("A2").Value = ComboBox1
End Sub

Ambas caixas estão mandando os valores para a1 e a2 perfeitamente
Só estou com dois probleminhas:
1 - A caixa de listagem não aparece nenhuma opção, tenho que digitar manualmente.
2 - A caixa de texto envia o que digito para A1 (data) como texto dessa forma não funciona corretamente.

Abs

Cara,

Pra quê caixa de texto... Tenta com validação (lista suspensa).

Sem VBA me parece mais simples e seguro. Infelizmente, não manjo nada de macros pra poder te ajudar.

Bom mesmo é que funcionou.

Abs,

Fiz sem vba mesmo, com célula e as opções em lista suspensa.

Muito Obrigado mesmo mandrix, sua lógica foi perfeta. Está funcionando perfeitamente.
Abs