Como recortar el texto de una celda a una cantidad limitada de caracteres sin palabras truncas
Espero y me puedan ayudar.
Yo recibo datos en cadenas de texto de excel, pero tengo que convertirlos a columnas de un ancho de máximo 25 caracteres, y no tienen un carácter separador solo espacios, ya lo he intentado con convertir texto a columnas, pero si selecciono la opción delimitados, solo puedo separarlos en palabras y si selecciono la opción "de ancho fijo" me salen las palabras truncadas.
Te anexo una macro para recortar textos en columnas.
Antes de ejecutar la macro, acomoda tu información de esta forma:
En la hoja1, columna A, a partir de la fila 1, pon tus textos a recortar.
Deberás tener una hoja llamada "Hoja2", en esta hoja se pondrán los resultados.
Sub RecortarTextos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h2.Cells.Clear
k = 25
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
j = 1
If Len(h1.Cells(i, "A").Text) > k Then
nva = h1.Cells(i, "A")
Do While Len(nva) > k
n = InStrRev(nva, " ", k + 1)
If n > 0 Then
h2.Cells(i, j) = RTrim(Left(nva, n))
nva = Mid(Mid(nva, 2), n)
Else
n = InStr(1, nva, " ")
If n = 0 Then n = Len(nva)
h2.Cells(i, j) = RTrim(Left(nva, n))
nva = Mid(nva, n)
End If
j = j + 1
Loop
If Len(nva) > 0 Then
h2.Cells(i, j) = nva
End If
Else
h2.Cells(i, j) = h1.Cells(i, "A")
End If
Next
h2.Select
MsgBox "Separación terminada", vbInformation
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: RecortarTextos
- Aceptar.
- Para ejecutarla dale click a la imagen.
Saludos. Dante Amor. Recuerda valorar la respuesta.
