Código VBA

[joaopaulocaetano]

Boa tarde. Escrevi um rústico código (a seguir) e gostaria de melhorá-lo: 

Sub data()
Dim data As Long    ' Declare variables.
Dim trimestre As String
Dim linha As Long
Dim ano As Integer

    If Range("A1") = "" Then
    Range("A1").Value = "Período"
    End If
data = Application.InputBox("Enter o número relativo ao trimestre:")
trimestre = "º Trim"
ano = 2010

        Range("A" & Rows.Count).End(xlUp).Select
        ActiveCell.Offset(1, 0).Value = data & trimestre
        If ActiveCell.Value = "4º Trim" Then
            ActiveCell.Offset(1, 0).Select

           ActiveCell.Value = ano+1
            'ActiveCell.Value = Application.InputBox("Insira o ano")
                        
        End If

Range("A1").Select
End Sub

 

A minha ideia é construir um código que preencha a coluna A com informações de data (neste caso do 1º ao 4º trimestre de um ano qualquer). Feita a inserção dos quatro trimestres, quero que no código a linha seguinte não seja mais a informação de trimestre mas de um ano (e esse processo queria fazer automaticamente. No caso dos trimestres conseguir fazer (ainda que não seja a melhor forma - gostaria de colocar uma validação para que o usuário somente digite de 1 a 4 e se for na sequência melhor, mas isso são detalhes); já com relação à variável ano, desejo que cada vez que for inserido um ano o próximo seja feito automaticamente na sequência (2010, 2011,etc).

Se alguém puder ajudar desde já agradeço! 

Ps. Ainda estou no começo dos estudos VBA

Editado Agosto 26, 2022 por joaopaulocaetano