01/12/2022
Anexo complemento a Video en Tiktok donde explico el paso a paso... También haré un video específico para Instagram...
El código para la función:
Function SepararDatos(TextoOriginal As String) As String
Dim Dato, NuevoDato As String
Dim i As Integer
Dato = Split (Trim(TextoOriginal))
For i = 0 To UBound(Dato)
Select Case LCase(Dato(i))
Case "de las", "de los", "de la", "de", "del", "de", "y", "san", "los", "las","la", "-", "le", "A", "D"
NuevoDato = NuevoDato & Dato (i) & " "
Case Else
NuevoDato = NuevoDato & Dato (i) & "\"
End Select
Next
If Right(NuevoDato, 1) = "\" Then
NuevoDato = Left(NuevoDato, Len(NuevoDato) - 1)
End If
SepararDatos = NuevoDato
End Function
Copia y Pega en tu Módulo.
Esta función servirá solo en ese Libro.
Después de aplicada recuerda pegar como Valores. Es necesario, ya que como es código VBA, Si no piensas guardar tu libro como habilitado para macros, la función dejará de ser útil y se inactivará.
