SEPARAR APELLIDOSCOMPUESOS EN CALC

Cerrado
richardcns
Message postés
1
Date d'inscription
domingo, 13 de septiembre de 2015
Estatus
Miembro
Última intervención
domingo, 13 de septiembre de 2015
- 13 sep 2015 a las 02:00
Esimados necesio de su ayuda para que una macro de excel en la cual su funcion es de separar apellidos conmpuestos funcione correctamente en la hoja de calc openoffice:

esta es la macro realizada para excel:


Function SEPARARAPELLIDOS(rng As Range) As String

Dim nombreArr() As String
Dim nuevaCadena As String
Dim i As Integer

'Dvidir el nombre por palabras en un arreglo
nombreArr = Split(Trim(rng.Value))

'Analizar cada palabra dentro del arreglo
For i = 0 To UBound(nombreArr)
Select Case LCase(nombreArr(i))

'Palabras que forman parte de un apellido compuesto
'Agregar nuevas palabras separadas por una coma
Case "de", "del", "la", "las", "los", "san"
'Insertar espacio en blanco
nuevaCadena = nuevaCadena & nombreArr(i) & " "
Case Else
'Insertar caracter delimitador
nuevaCadena = nuevaCadena & nombreArr(i) & "@"

End Select
Next

'Remover el último caracter delimitador de la cadena
If Right(nuevaCadena, 1) = "@" Then
nuevaCadena = Left(nuevaCadena, Len(nuevaCadena) - 1)
End If

SEPARARAPELLIDOS = nuevaCadena

End Function

este es linck de donde saque la macro:

https://exceltotal.com/como-separar-nombres-y-apellidos-en-excel/

Gracias por su ayuda!!