Ir ao conteúdo
  • Cadastre-se
John Farlei

RESOLVIDO Macro para ajustar Data em Texto

Recommended Posts

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?
 
 
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×