Este fórum está sendo desativado

[matheuspa27]

Olá, amigos preciso de uma ajuda numa questão.
na minha tabela tem uma coluna DATA, que já tem dados (umas 200 linhas aprox). Porém não contem todos os dias do mês
ex.
DATA
12/12/2018
11/12/2018
09/12/2018
06/12/2018
05/12/2018
03/12/2018
o que eu preciso é incluir uma linha e preencher com a data que está faltando, por exemplo, após o dia 11/12/2018 já pula para 09/12, eu gostaria de incluir automaticamente uma linha após o dia 11 já preenchida com 10/12/2018, semelhantemente entre os dias 09/12 e 06/12 incluir 2 linhas com 08/12 e 07/12 respectivamente.
Conseguiram entender? acredito que isso só será possível via VBA, caso os moderadores queiram podem mudar o tópico. Desde já agradeço a oportunidade.

[Deciog]

matheuspa27

Confere se desta forma esta correto para você em formulas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[matheuspa27]

Decio, obrigado pela resposta, mas não resolve minha questão, pelo que entendi vc faz uma formula que mostra a data que tá faltando de um intervalo, isso é parte do que preciso. Porém na minha tabela de dados eu precisaria incluir automaticamente uma nova linha e preencher com a data que não tem.
Exemplo

COLUNA DATA - COLUNA VALOR
12/12/2018 - 100,00
11/12/2018 - 95,00
09/12/2018 - 130,00

entre o dia 11 e 09 teria que incluir uma linha com o dia 10/12 na coluna Data, talvez teria que ser através de uma macro, mas não sei como implementar

[DJunqueira]

Vc pode resolver esse seu problema de forma bem rápida com o Power Query, inclusive tem um vídeo do nosso Guru Laennder demonstrando como fazer isso.

https://www.youtube.com/watch?v=xXD3w0vYDyU

Anexo tem a planilha com a solução.

[osvaldomp]

Veja se atende.
Considerei que as datas estão na coluna A e a partir de A1.

Código: Selecionar todos

Sub InsereDatasFaltantes()
 Dim k As Long
  Application.ScreenUpdating = False
  k = 1
  Do
   If Cells(k + 1, 1) = "" Then Exit Do
   If Cells(k, 1) - Cells(k + 1, 1) > 1 Then Cells(k + 1, 1).Insert shift:=xlDown: Cells(k + 1, 1) = Cells(k, 1) - 1
   k = k + 1
  Loop
 Application.ScreenUpdating = True
End Sub