Anderson,

Sua explicação está muito genérica... não da para saber o que você realmente precisa. Entretanto, respondendo também de forma genérica, segue uma função que descobre qual é o mês em que se está, pelo relógio do micro, e uma procedure de como utilizar.

Function MesAtual() As String
    Select Case Month(Date)
    Case 1
        MesAtual = "JANEIRO"
    Case 2
        MesAtual = "FEVEREIRO"
    Case 3
        MesAtual = "MARÇO"
    Case 4
        MesAtual = "ABRIL"
    Case 5
        MesAtual = "MAIO"
    Case 6
        MesAtual = "JUNHO"
    Case 7
        MesAtual = "JULHO"
    Case 8
        MesAtual = "AGOSTO"
    Case 9
        MesAtual = "SETEMBRO"
    Case 10
        MesAtual = "OUTUBRO"
    Case 11
        MesAtual = "NOVEMBRO"
    Case 12
        MesAtual = "DEZEMBRO"
    End Select
End Function
Sub teste()
    'Exemplo de como deve utilizar a função
    If MesAtual = "JANEIRO" Then
        MsgBox "Aqui devem entrar seus comandos"
    End If
End Sub

Boa tarde Ademoraes

Estou movendo teu tópico para o sub fórum VBA& Macros, pois aqui é exclusivo para fórmulas e funções.

At.te

Patropi - Moderador

Wagner Morel, sua resposta foi extremamente útil, no entanto eu não sei o que fazer com esse código todo, mas é como disse, sou novo (novinho em folha, he he) em Excel. Vou continuar estudando a situação e tentar aplicar a sua solução, não passo a pasta de trabalho pois são dados confidenciais.

Descaracterize nomes e dados mais específicos (com o substituir), compacte o arquivo e anexe o mesmo aqui.

Boa tarde, em primeiro lugar, obrigado pelo interesse em me ajudar, estou muito feliz por isso.

Caro Wagner, segue anexo o meu "problema", como explicado anteriormente, quero uma macro que copie os dados de Janeiro de "D13" até "D113" e cole ao lado direito, no caso, fevereiro, volte em janeiro e cole valores (só os números, sem as fórmulas). Eu quero que essa macro entenda que, quando os dados estiverem em fevereiro ela deve fazer o mesmo processo para março e assim por diante, incluindo quando estiver em Dezembro, voltar para Janeiro.

Obs 1: Eu só consigo fazer ela ir de um mês para o outro, assim teria que criar 12 botões...

Obs 2: Eu inclusive criei um, está no canto direito superior da tela, não sei se resolve ele estar lá...

Desde já grato.

Anderson,

Veja se é assim.

Ficou perfeita Wagner. Com o pouquíssimo que conheço de VBA eu nunca chegaria neste resultado. Obrigado mesmo!

Se não for incomodar, tens como me mandar um .txt, ou o próprio exemplo comentado? Tipo, o que faz cada um dos comandos que você programou, acredito que ajudaria em muito o meu estudo e melhor compreensão de macros deste nível.

E-mail: [email protected]

Mais uma vez, obrigado.

Anderson de Moraes

Wagner,

consegui, entendi a macro e implementei para as minhas necessidades. Obrigado.

Anderson de Moraes

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.