Excel VBA - Pegar Ano de data e colar em outra celula

[jcgmcs]

Como automatizar no VBA, que sempre ao digitar datas variadas na coluna "M" como dessa maneira 25/03/23
a partir de "M5" ou em qualquer outra linha, que pegue somente o ano 2023 e os cole em "BP" na mesma
referida linha.

Preciso tbém de outro código que faça a mesma função mas que pegue Mês e Ano MAR/23 e os cole em "BQ"

obrigado!!

[Wendell Menezes]

Utilize o código abaixo na referida aba onde quer que essa automação funcione. Caso não esteja familiarizado com VBA disponibilizo também um arquivo de teste já com o código.

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 13 And Target.Row >= 5 Then
    If Target = "" Then
        Cells(Target.Row, "BP").ClearContents
        Cells(Target.Row, "BQ").ClearContents
            ElseIf IsDate(Target) Then
        Cells(Target.Row, "BP") = Format(Target, "yyyy")
        Cells(Target.Row, "BQ") = UCase(Format(Target, "'mmm/yy"))
    End If
End If

End Sub

 

Esse script limpa as duas colunas caso a data seja deletada da coluna "M". Se não quiser esse efeito é só deletar as duas linhas que terminam com "ClearContents".

 

 

Book1.zip

[jcgmcs]

Wendell boa tde meu querido!! Blzz

Cara ficou perfeito, maravilha.. muito obrigado mesmo!!!

Há muito tempo q queria algo pra fazer isso e nada. agora meu projeto deslancha.. kkk

Só uma obs... é mesmo necessário este acento .. 'ABR/23 .. ??

Abç e todo de bao ae....

[Wendell Menezes]

Boa noite,

 

Fico feliz que funcionou como esperado.

 

Essa áspa simples foi necessária na minha versão de testes porque o Excel estava entendendo que MAR/23 era o mesmo que 01/03/2023 e convertendo a célula para data.

 

Se isso não acontecer no seu arquivo (porque a coluna já está como Texto por exemplo), então você pode remover ela dessa linha, antes dos três mmm

 

Cells(Target.Row, "BQ") = UCase(Format(Target, "'mmm/yy"))