Foro Excel

Hola,

tengo un archivo excel donde una columna contiene textos de muchos caracteres en cada celda y lo tengo que importar a un software externo. el problema viene cuando el software no acepta más de 250 caracteres por celda.

lo que quiero es adecuar el excel para que el texto se divida en varias celdas con menos de 250 caracteres en diferentes filas, no columnas, a ser posible en el último espacio en blanco (" ") antes del caracter 250 y que continúe en la celda de la fila siguiente, pero que no se cargue el contenido de ésta, es decir, que introduzca una fila y ahí incluya el texto extraido.

en resumen, que el texto que p.e. tengo en A1 con 400 caracteres se divida en B1 con hasta 250 caracteres y en B2 con los 150 caracteres restantes, todo esto introduciendo una fila de modo que el texto que originalmente estaba en A2 pase a estar en A3

¿alguien puede ayudarme?

gracias de antemano...

Hola:

Prueba con esta macro:

Código: Seleccionar todo

Sub Partir(): On Error Resume Next
   For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If Len(Range("A" & x).Value) < 251 Then
         Range("B" & x).Value = Range("A" & x).Value
      Else
         p = InStrRev(Range("A" & x).Value, " ")
         If p > 0 Then
            Range("B" & x).Value = Left(Range("A" & x).Value, p)
            Rows(x + 1).Insert
            Range("B" & x + 1).Value = Mid(Range("A" & x).Value, p + 1)
         End If
      End If
   Next
End Sub


Saludos

Hola Antoni,

gracias por la ayuda, pero parece que lo que hace tu macro es dividir el texto desde el último espacio en blanco del texto, y no desde el último espacio antes del caracter 250, que es lo que yo necesito.

Un saludo,

Hola:

Tienes razón, lo reviso y lo vuelvo a subir.

Saludos.

A ver ahora:

Código: Seleccionar todo

Sub Partir(): On Error Resume Next
   For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If Len(Range("A" & x).Value) < 251 Then
         Range("B" & x).Value = Range("A" & x).Value
      Else
         p = InStrRev(Left(Range("A" & x).Value, 250), " ") '<-------------
         If p > 0 Then
            Range("B" & x).Value = Left(Range("A" & x).Value, p)
            Rows(x + 1).Insert
            Range("B" & x + 1).Value = Mid(Range("A" & x).Value, p + 1)
         End If
      End If
   Next
End Sub


Funciona perfecto!!

Muchas gracias por la ayuda.