-
Posts
2 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por 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 SubIf Target.Row = 1 Then Exit SubIf IsEmpty(Target(1)) ThenTarget.Offset(0, 4).Formula = " "Exit SubEnd IfTarget.Offset(0, 4).Formula = "=SUM(a" & Target.Row & ":C" & Target.Row & ")"End SubO 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?
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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
Macro para ajustar Data em Texto
em Microsoft Office e similares
Postado
Osvaldo, Muito obrigado pela ajuda, funcionou perfeitamente.
Vou deixar o código concluído abaixo, caso alguém precise.