Excel VBA - Teclar Enter na L5

[jcgmcs]

Boa tde!

Ajuda com adaptação desse código abaixo do nosso amigo Wendell...

Private Sub Worksheet_Change(ByVal Target As Range) 'Por Wendell

    Dim Cell As Range
    
    For Each Cell In Target
        With Cell
            If .Column >= 50 And .Column <= 50 Then 'Coluna "AX"
                Range("AY" & .Row).NumberFormat = "@" 'AY é Coluna VBA
                Range("AY" & .Row) = Range("AX" & .Row) 'AX é Coluna Fórmulas
            End If
        End With
    Next
    
End Sub

 

Preciso q ao digitar e dar "Enter" na celula a partir de "L5" seja adicionado em "Y5" a alteração da "AX5" em modo texto, mantendo a formulação de "AX"

Tentei alterando essa linha: If .Column >= 50 And .Column <= 50 Then 'Coluna "AX" que até funciona mas só com "Enter" manual na própria "AX" Quero automático, sempre que alterar em "L"

Anexo, modelo da Plan...

[Wendell Menezes]

Experimente essa versão:

 

Private Sub Worksheet_Change(ByVal Target As Range) 'Por Wendell

    Dim Cell As Range
    
    For Each Cell In Target
        With Cell
            If .Column = 12 Then 'Coluna "L"
                Range("AY" & .Row).NumberFormat = "@" 'AY é Coluna VBA
                Range("AY" & .Row) = Range("AX" & .Row) 'AX é Coluna Fórmulas
            End If
        End With
    Next
    
End Sub

 

[jcgmcs]

beleza Wendel... Deu certo e ficou joiaa!! obrigado e Abç ae..