Unir e abreviar nomes

[MID CURSOS]

Bom dia a todos, tenho uma planilha de cadastro de clientes, onde na coluna A tem o nome, Na coluna B tem o sobrenome, gostaria de colocar na coluna C o nome Completo porém abreviando os nomes do meio!!

Abreviar nomes.xlsx

[deciog]

@vip formação  Bom Dia.

 

Olha se é isso que desejas

 

Décio

 

 

 

Abreviar nomes Decio.xlsx

[MID CURSOS]

tem um maneira sem utilizar as colunas auxiliares?

[deciog]

Você pode ocultar as colunas auxiliares, eu atualizei novamente o arquivo de uma olhada

 

 

segue arquivo com as colunas ocultas

 

Abreviar nomes Decio.xlsx

[MID CURSOS]

Muito Obrigado.

[MID CURSOS]

Boa tarde Décio, tem alguns nomes que mesmo que não estão abreviando corretamente.

por Ex. os nomes que terminam com da de estão ficando juntos com o outro, a solução que fiz rapidamente é acrescentar um espaço na fórmula. aí quando acontece esse problema eu acrescento o espaço. tem outra maneira.

[deciog]

@vip formação

 

Mudei, acrescentei mais uma coluna, olha coluna C que pode ser ocultada, e olha como ficou a formula na coluna D também deve ser ocultada.

 

Espero ter ajudado

 

Décio

 

Abreviar nomes Decio V2.xlsx

[MID CURSOS]

Muito obrigado, você está me ajudando muito.

[deciog]

@vip formação

 

Fico grato pois isso é a nossa intenção, estamos aqui para ajudar.

 

Abraços

 

Décio

 

[Visitante]

 

Além da excelente solução do @deciog segue uma alternativa via UDF sem o uso de colunas auxiliares.

Instale o código abaixo em um módulo comum, assim:

1. copie o código 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

 

em seguida coloque na célula 'C4' a função =nome() e arraste para baixo

 

Public Function nome() As String
 Dim r As Long, x As Long, Cx As Variant, k As String
   Application.Volatile
   r = Application.Caller.Row
   nome = Cells(r, 1)
   Cx = Split(Cells(r, 2), " ")
     If LBound(Cx) = UBound(Cx) Then
      nome = nome & " " & Cells(r, 2): Exit Function
     ElseIf LBound(Cx) = UBound(Cx) - 1 And Len(Cx(LBound(Cx))) > 2 Then
      nome = nome & " " & UCase(Left(Cx(0), 1)) & ". " & Cx(UBound(Cx)): Exit Function
     ElseIf LBound(Cx) = UBound(Cx) - 1 Then
      nome = nome & Cx(UBound(Cx)):: Exit Function
     End If
     For x = LBound(Cx) To UBound(Cx) - 1
      If Len(Cx(x)) > 2 Then
       nome = nome & UCase(Left(Cx(x), 1)) & ". "
      End If
     Next x
  nome = nome & Cx(UBound(Cx))
End Function

 

[deciog]

@osvaldomp Bom Dia.

 

Excelente adorei apesar de não conhecer VBA ainda, porém pergunto tem limite de intervalos de nomes, na formula estipulei até 6 intervalos nomes.

 

Décio

 

[Visitante]

16 minutos atrás, deciog disse:

@osvaldomp  pergunto tem limite de intervalos de nomes, na formula estipulei até 6 intervalos nomes.

 

Fala, Décio.

Você se refere a quantidade de termos no sobrenome? Se sim, não há limite, serve para qualquer quantidade.

A UDF precisa ainda de alguns ajustes pois testei somente para algumas variações de sobrenomes.

abraço