Notifications
Clear all

Expor calculo

6 Posts
3 Usuários
0 Reactions
1,706 Visualizações
leonder
(@leonder)
Posts: 180
Reputable Member
Topic starter
 

Pessoal, eu tenho numa célula do excel A2 esse calculo =5+3+2

entretanto, em uma outra aba, preciso juntar isso mais uma observacao sobre esses valores que esta na célula A3 (Taxa de livro):

=A2 & A3

ai a célula que eu coloquei a formula ficaria assim:

10 taxa de livro

Mas eu queria que ficasse assim:

5+3+2 Taxa de livro.

como eu faço?

(obs: não posso colocar a célula a2 como texto pois ela entra num certo calculo)

 
Postado : 24/09/2015 6:56 am
(@z3020100)
Posts: 172
Estimable Member
 

Basta concatenar o texto.

="5+3+2 "&A3

;)

Guilherme Domingos

Se a mensagem foi util Favor Clicar na mãozinha ao lado de "citar".
Quando necessário, lembre se de marcar o tópico como [RESOLVIDO].

 
Postado : 24/09/2015 7:23 am
leonder
(@leonder)
Posts: 180
Reputable Member
Topic starter
 

Basta concatenar o texto.

="5+3+2 "&A3

;)

Só que quero um procedimento para "puxar" para a coluna toda... nao tem como ficar fazendo isso manualmente toda vez

 
Postado : 24/09/2015 7:29 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Se você utiliza o Office 2013, aplique a função FÓRMULATEXTO concatenada com o texto que deseja. Se utiliza Office 2010 ou inferior, terá que criar uma UDF via VBA, pois desconheço um método nativo para trazer o texto da fórmula.

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 24/09/2015 10:18 am
leonder
(@leonder)
Posts: 180
Reputable Member
Topic starter
 

Se você utiliza o Office 2013, aplique a função FÓRMULATEXTO concatenada com o texto que deseja. Se utiliza Office 2010 ou inferior, terá que criar uma UDF via VBA, pois desconheço um método nativo para trazer o texto da fórmula.

Ixi...uso 2010

 
Postado : 24/09/2015 11:11 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Insira o código seguinte em um novo módulo e aplique a fórmula na sua planilha:

Public Function FÓRMULATEXTO(rCell As Range, Optional Igual As Boolean = True) As String
If Igual = True Then
FÓRMULATEXTO = rCell.FormulaLocal
Else
If Left(rCell.FormulaLocal, 1) = "=" Then
FÓRMULATEXTO = Mid(rCell.FormulaLocal, 2, Len(rCell.FormulaLocal) - 1)
Else
FÓRMULATEXTO = rCell.FormulaLocal
End If
End If
End Function

Deixei com dois argumentos, sendo que o primeiro é o endereço de célula e o segundo argumento é opcional VERDADEIRO ou FALSO para tirar o sinal de igual no resultado, exemplo:

Célula A1 com a fórmula: =1+2

=FÓRMULATEXTO(A1) resultado-> =1+2
=FÓRMULATEXTO(A1;FALSO) resultado-> 1+2

Importante salvar seu arquivo como xlsm.

Abraços!

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 25/09/2015 7:13 am