Macro para ajustar Data em Texto

[John Farlei]

Boa tarde amigos,

 

Preciso de uma ajuda de vocês, Tenho o código VBA abaixo, que funciona muito bem para uma determinada função (Soma), porém preciso converter ele para que faça outra coisa e não estou conseguindo.

 

 

Código:

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column <> 1 Then Exit Sub

If Target.Row = 1 Then Exit Sub

If IsEmpty(Target(1)) Then

Target.Offset(0, 4).Formula = " "

Exit Sub

End If

Target.Offset(0, 4).Formula = "=SUM(a" & Target.Row & ":C" & Target.Row & ")"

End Sub

 

 

O meu problema é exatamente nesta linha do código:

 

Target.Offset(0, 4).Formula = "=SUM(a" & Target.Row & ":C" & Target.Row & ")"

 

Preciso que ela faça a função desta formula do Excel:

 

=Texto(A'x';"mmm")

 

Onde X é a linha onde a formula ira funcionar, exatamente como funciona no intervalo da soma da formula original, 

 

Tentei utilizar este comando, mas não funcionou: 

 

Target.Offset(0, 4).Formula = "=Text(B" & Target.Row & ";" & MMM & ")"

 

Alguem consegue me ajudar?

 

 

 

[Visitante]

 target.Offset(0, 4).Formula = "=Text(B" & target.Row & ", ""mmm"" )"

 

[John Farlei]

Osvaldo, Muito obrigado pela ajuda, funcionou perfeitamente.

 

Vou deixar o código concluído abaixo, caso alguém precise.

 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column <> 1 Then Exit Sub

If Target.Row = 1 Then Exit Sub

If IsEmpty(Target(1)) Then

Target.Offset(0, 4).Formula = " "

Target.Offset(0, 5).Formula = " "

Exit Sub

End If

Target.Offset(0, 4).Formula = "=Text(a" & Target.Row & ", ""mmm"" )"

Target.Offset(0, 5).Formula = "=Text(a" & Target.Row & ", ""aaa"" )"

End Sub