Este fórum está sendo desativado

[Caspirro]

Olá, gostaria de saber se tem alguma forma de por exemplo:

Primeiro preenchemos o ano na célula A1

Célula A1: 2022

Automaticamente ele já puxa os dias do mês nas seguintes células, porém acaba no último dia do mês certinho, sem ultrapassar para outro mês.
Nem que seja fórmula de célula em célula, tem como?

Célula A3: 01/01/2022
Célula A4: 02/01/2022
Célula A5: 03/01/2022... e por ai vai

Estou querendo fazer uma planilha, onde a pessoa preenche o ano, ai clica num botão de macro Janeiro(por exemplo), e já abre uma nova aba do mês clicado, nas datas do inicio ao fim do mês corretas conforme o ano preenchido.

Segue exemplo:

[babdallas]

Anexa um exemplo em xlsx, por favor.

[PHSabater]

Código: Selecionar todos

Sub GerarDatas()
    Dim Ano As Integer
    Dim lResult As Long
    Dim pDia, uDia As Date
    Dim Mes As String
    
    Ano = 2022
    Mes = "fevereiro"
    pDia = CDate("01/01/" & Ano)
    uDia = CDate("31/12/" & Ano)
    
    lResult = 1
    
    'Inicia geração novos registros.
    For i = pDia To uDia
        If MonthName(Month(i)) = Mes Then
            Plan1.Cells(lResult, 1) = DatePart("d", i)
            lResult = lResult + 1
        End If
    Next

End Sub