Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
#52292
Bom dia senhores...

Existe alguma função/fórmula que retorne para mim apenas o texto (ou a palavra) que esteja em negrito na célula?

Exemplo:

Na célula A1 eu tenho o seguinte texto: Amanda Pardiola Leite
E o sobrenome LEITE está em negrito.

Na célula B1 quero que retorne apenas o sobrenome LEITE.

Se isso é possível, posso ter o mesmo resultado quando houver mais de um sobrenome em negrito? Caso a parte em negrito fosse "Amanda Leite", retornaria da mesma forma??

Desde já grato pela colaboração!!!
#52301
Segue uma solução via UDF.

Instale uma cópia da função abaixo em um módulo comum, assim:
1. copie a função daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar
6. em B1 coloque ~~~> =ExtNegr(A1) e em seguida arraste para baixo
Código: Selecionar todos
Function ExtNegr(c As Range) As String
 Dim k As Long
  ExtNegr = c(1).Value
  For k = 1 To Len(ExtNegr)
   If Not c(1).Characters(k, 1).Font.Bold Then Mid(ExtNegr, k) = " "
  Next
  ExtNegr = Application.Trim(ExtNegr)
End Function

long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord