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

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?