Quitar espacios en blanco al seleccionar un rango - Macros
Tengo un código que quita los espacios en blanco pero se ejecuta a partir de la celda A1 y lo que deseo es que se ejecute en función a lo que yo seleccione. Les dejo el código, muchas gracias de antemano.
Sub quita_espacios()
Set datos = Range("A1").CurrentRegion
MATRIZ = datos
With datos
r = .Rows.Count: C = .Columns.Count
For I = 1 To r
For J = 1 To C
MATRIZ(I, J) = WorksheetFunction.Trim(MATRIZ(I, J))
Next J
Next I
Range(.Address) = MATRIZ
End With
End Sub
3 Respuestas
Ya encontré como hacerlo, era más fácil de lo que pensaba.
Sub quita_espacios() For Each celda In Selection celda.Value = WorksheetFunction.Trim(celda) Next celda End Sub
¡Muchas Gracias! Señor Dante, la verdad no había pensado en esa condición y es muy buena porque sino se me congela el código.
¡Gracias! ¡Muchas Gracias! Señor Dante, la verdad no había pensado en esa condición y es muy buena porque sino se me congela el código.
¡Muchas Gracias! Señor Dante, la verdad no había pensado en esa condición y es muy buena porque sino se me congela el código.
Tu respuesta Kishama Happy es tal como yo te la había pasado... ¿quién llegó antes a la solución? Jejeje
Agradeceré que de todos modos valores las respuestas para que se quiten de la lista de pendientes.
Sdos!