lulenunes Bom dia e um Feliz 2018

Olha, não sei se é minha máquina mas , não consegui abrir seu arquivo..

Abrç!

Caro xlarruda, primeiramente muito obrigado pelo retorno.

Estranho, testei agora e baixou e abriu normalmente.

.
Aqui também não abre não!!!
.
Esse arquivo parece enorme (e pode ter dados que não devam ser divulgados)!! ... Mas se não tiver problema, posta em .zip (ao invés de .rar)!! ... E se mesmo assim não resolver, posta no sendspace.com e depois posta o link aqui !!!
.

Caros amigos,

o arquivo é pequeno, pois é somente uma amostra. Estou upando o próprio XLS aberto.

grato

Com relação à primeira dúvida... Não consegui encontrar onde está o erro que você mencionou.

Já na segunda, considerando data inicio = dt emissão e dt fim = dt vencimento então talvez possa usar isso:

adicione um botão e insira o código:

Sub inserir_data()
Dim ul As Long
ul = [Plan5].Range("A" & Rows.Count).End(xlUp).Row + 1

pergunta_1 = Application.InputBox("POR FAVOR, INSIRA A DATA INICIAL...", "DATA INICIAL")
Range("A" & ul).Value = pergunta_1
pergunta_2 = Application.InputBox("POR FAVOR, INSIRA A DATA FINAL...", "DATA FINAL")
Range("A" & ul).Offset(0, 7).Value = pergunta_2
End Sub

espero que ajude, abrç!

Caro xlarruda,

Na aba Resumo ele não conta com novas inserções de dados, ou seja, ele fica limitado ao que já está lá, exemplo:
Na aba Base, clique no botão inserir novo registro, e nesta nova linha digite:
Emissão - 03/10/17 - Valor Bruto - R$ 1.200,00 - Valor Liquido - R$ 1.000,00 - venc. 03/11/17 - Pagam. deixe em braco.
Na coluna status ele dará como "vencido" e mesclará a celula em amarelo.
Agora clique na aba menu no botão "Vencidos", você poderá observar que na aba Rel constarão 16 lançamentos com total liquido de R$ 15.014,86, porém, na aba Resumo ele continuará constando em Qtde 15 e valor Liquido de R$ 14.014,86, ou seja este último lançamento não vai para o resumo.

grato

Na planilha que vc postou os valores batem..

Não encontrei o erro.

Pra ser bem honesto eu faria o resumo com uma Tabela Dinamica.

lulenunes, continuo sem ver o problema.

Veja como ficou a aba "Rel", após eu fazer o procedimento que pediu...

segue anexo.

xlarruda,

como pode observar, ficaram 16 registros, porém, na aba Resumo ele continua com apenas 15 e sem somar estes R$ 1.000,00 de liquido do 16º registro.

Quanto a tabela dinâmica no resumo, estou estudando para aprender mais, pois como pode ver, não sou grande coisa em excel um pouco mais avançado(rs).

No access usando VBA este controle ficou perfeito, porém, por ser para a empresa, o depto. de TI não autorizou a utilização do access. Então terei que tentar me virar com excel.

grato e desculpe o transtorno.

Mas lulenunes isso está acontecendo porque, no exemplo que me pediu para inserir, o mês é o Mês 10(Outubro).

Já o Mês que está sendo observado na aba "Resumo" (célula E2) trata-se do Mês 8 (Agosto).

Ou seja, nunca vai dar 16. porque a fórmula não soma valores de meses diferentes. Desse forma, mude o Mês para Outubro na aba resumo, e você verá o lançamento de R$ 1200 que acabei de fazer..

Se não tiver entendido, pode me questionar aqui..

Abçr!

Veja um exemplo de Tabela dinamica,

O unico "incoveniente" é que apos a digitação dos dados vc precisa ir em Dados > Atualizar Tudo para que os dados sejam atualizados na Tabela Dinamica.

É possivel inserir ou excluir campos na tabela dinamica, e tambem é possivel usar outras opções de resultados, por exemplo saber as contas por empresa, se assim desejar.

Caro MPrudencio, boa tarde e feliz 2018.

muito obrigado pleo retorno, porém, não veio o exemplo.

grato

Caro Xlarruda, boa tarde.

Meu amigo, peço mil perdões, esqueci que havia feito o resumo por mês de emissão(rs - ridículo não?)

Muito obrigado pela valorosa ajuda, vou tentar agora usar o código que você passou.

grato

Desculpe me esqueci de anexar o arquivo....