Macro para cortar un texto en 25 caracteres
Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el resto del texto deberá estar en la celda C2.
Gracias anticipadas
1 Respuesta
Respuesta de Dante Amor
1
Lo que hace la macro es recorrer el texto desde la posición 25 hasta encontrar un carácter en blanco, entonces separa el texto en 2.
Te anexo la macro
Sub CortarTexto()
'Por.Dante Amor
maximo = 25
emergente = maximo
Set celda = Range("A2")
Do While maximo > 1
If Mid(celda, maximo, 1) = " " Then
texto1 = Left(celda, maximo)
texto2 = Mid(celda, maximo + 1)
Exit Do
End If
maximo = maximo - 1
If maximo = 1 Then
texto1 = Left(celda, emergente)
texto2 = Mid(celda, emergente + 1)
End If
Loop
Range("B2") = texto1
Range("C2") = texto2
End SubCualquier duda avísame.
Saludos. Dante Amor
Si es lo que necesitas.
