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.
1 Respuesta
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.
