[Resolvido]Inserir datas do ano todo

Bom dia a todos !

Gostaria saber se existe alguma maneira de eu adicionar todas as datas do ano todo via vba, ou tenho que fazer isso manualmente.

Andei procurando aqui no fórum mas não encontrei nada parecido.

Se alguém puder me orientar, ficarei grato.

Abraços.

Eu te respondi no seu outro tópico, segue aqui também:

Sobre o que você perguntou sobre gerar os dias do ano, esse código simples pode te ajudar.
Mas faça adaptações conforme suas tabelas e objetos

Em um botão de comando, no evento ao clicar

Código:

Dim i As Date, DtIn As Date, DtFim As Date

If DCount("[CampoComAsDatas]", "SuaTabela", "Year([CampoComAsDatas])='" & Me.CaixaDeTextoDoFormularioComAnoDigitado & "'") > 0 Then
    MsgBox "Ja existem dias para esse ano..."
Else
    DtIn = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 1, 1)
    DtFim = DateSerial(Me.CaixaDeTextoDoFormularioComAnoDigitado, 12, 31)
   
    For i = DtIn To DtFim
        CurrentDb.Execute "INSERT INTO SuaTabela (CampoComAsDatas) VALUES (#" & Format(i, "MM/DD/YYYY") & "#)"
    Next
End If

Bom dia !

Perfeito, vou adaptar e utilizar !

Muito obrigado novamente !!!