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
4 Respuestas
Usando el editor de VBA, simplemente copie y pegue esta macro, y luego ejecútela. ¡Espero que les sea útil! Monkey Mart
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.
google doodle baseball portrays the enthusiasm of baseball, the most popular US sport, in short bursts. The game has simple but intriguing mechanics, vivid cartoon graphics, and easy controls.
Entiendo lo que buscas con la macro porque a veces esos detalles técnicos se vuelven frustrantes, a mí me pasaba algo parecido cuando me saturaba con tareas y necesitaba despejar la mente, por eso empecé a probar otras formas de desconectar y encontré Fortune Gems 2, me llamó la atención que el casino ofreciera bonos para jugadores de España y decidí probar unas tragamonedas, al principio tuve varias pérdidas seguidas, pero luego arriesgué un poco más y conseguí una buena ganancia que me ayudó a relajarme, desde entonces lo uso para desconectar y lo recomiendo bastante.