O código foi corrigido abaixo

Uma tabela dinamica parece que resolve.

Bom dia Klarc28

Obrigado pelo retorno.

Mas o que estou tentando, é conforme vão sendo lançados os meses e os valores na aba "Dados" a macro puxe o mês mais recente para célula "D1" na aba "Relatório" e calcule a soma acumulada de janeiro até o mês mais atual do respectivo ano, por exemplo:

Quando na aba "Dados" for lançado o mês fev/18 a macro põe essa data na célula "D1" na aba "Relatório", na sequência fique em "C1" o ano de 2017 e em "B1" o ano de 2016.
Com base nisso minha intenção é o loop pegar como valor inicial o mês de janeiro de cada ano e fazer a soma acumulada.

Desculpa se não fui claro, qualquer dúvida é só perguntar.

MPrudêncio, obrigado pelo retorno também, eu pensei em usar tabela dinâmica, mas esse arquivo vai ficar para consulta de outras pessoas, por isso estou tentando via macro.

Grato pela atenção.

O código foi corrigido abaixo

Bom noite Klarc28,

Obrigado pelo questão da data.

O que está faltando é somar o acumulado mês a mês conforme o ano em "B1", "C1" e D1" na aba "Relatório", isso que eu ainda não consegui.

Vou deixar em aberto para se alguém pode me dar uma luz.

Código corrigido abaixo

Alterei o código. Favor verificar o arquivo anexo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim linha As Long
    
    linha = 3
    
    While ThisWorkbook.Sheets("Dados").Range("A" & linha).Value <> ""
        
        linha = linha + 1
    Wend
    
    ThisWorkbook.Sheets("Relatorio").Range("D1").Value = CDate(ThisWorkbook.Sheets("Dados").Range("A" & linha - 1).Value)
    ThisWorkbook.Sheets("Relatorio").Range("C1").Value = CDate(ThisWorkbook.Sheets("Dados").Range("A" & linha - 13).Value)
    ThisWorkbook.Sheets("Relatorio").Range("B1").Value = CDate(ThisWorkbook.Sheets("Dados").Range("A" & linha - 25).Value)
    Call teste
End Sub

Sub teste()
    
    Dim intervalo As Range
    
    Set intervalo = ThisWorkbook.Sheets("Relatorio").Range("B2:D13")
    intervalo.ClearContents
    Dim linha, linha2 As Long
    
    Dim soma As Double
    Dim linha3 As Integer
    Dim col As Integer
    
    For col = 2 To 4
        linha2 = 2
        linha = 3
        soma = 0
        While ThisWorkbook.Sheets("Dados").Range("A" & linha).Value <> ""
            If Year(ThisWorkbook.Sheets("Dados").Cells(linha, 1).Value) = Year(ThisWorkbook.Sheets("Relatorio").Cells(1, col).Value) Then
                While ThisWorkbook.Sheets("Relatorio").Cells(linha2, col).Value <> ""
                    
                    linha2 = linha2 + 1
                Wend
                If linha2 = 2 Then
                    soma = ThisWorkbook.Sheets("Dados").Cells(linha, 2).Value + ThisWorkbook.Sheets("Dados").Cells(linha, 3).Value
                    ThisWorkbook.Sheets("Relatorio").Cells(linha2, col).Value = soma
                Else
                    soma = soma + ThisWorkbook.Sheets("Dados").Cells(linha, 2).Value + ThisWorkbook.Sheets("Dados").Cells(linha, 3).Value
                    ThisWorkbook.Sheets("Relatorio").Cells(linha2, col).Value = soma
                    
                End If
            End If
            
            linha = linha + 1
        Wend
        
    Next col
    
End Sub

Blz Klarc28,

Obrigado pelo retorno!

Está quase lá, seu código está somando mês a mês, mas estou querendo somar acumulado, por exemplo:

jan/15 a soma = 489,78 então em fev/15 a soma acumulada teria que ser o valor de jan/15 + a soma de fev/15, ficando assim 489,78 + 1448,58 = 1.938,36 (resultado em "B3" na aba "Relatório") e assim sucessivamente para os meses seguintes.

Grato pela atenção.

Favor baixar o arquivo novamente, pois foi alterado.

Bom dia Klarc28,

Baixei o arquivo que você postou (Dom Dez 17, 2017 7:12 pm) e a macro está rodando perfeitamente.

Você postou outro arquivo (Dom Dez 17, 2017 10:52 pm) mas não está anexado na mensagem, você mudou algo no código?

Se o código resolveu o problema, favor marcar o tópico como resolvido.