Eliminacion de espacios al pricipio y final de cada cadena de texto en una celda

[ecastillorey]

Adjunto codigo para eliminacion de espacios en blanco antes y despues de la cadena de texto ,pero no he podico espicificar el rango por que solo selecciona la a2 a a23 y necesito que lo realice en toda la hoja

Sub Macro1()

'Paso 1. declarar las variables

Dim Rango As Range

Dim Celda As Range

'Paso 2. guardar el libro antes de cambiar las celdas?

Select Case MsgBox("No se podr‡ deshacer esta acci—n. " & "Guardar libro antes de ejecutar? ", vbYesNoCancel)

Case Is = vbYes

ThisWorkbook.Save

Case Is = vbCancel

Exit Sub

End Select

'Paso 3. Definir el rango objetivo

ult = Cells(Rows.Count, 1).End(xlUp).Row

Set Rango = Range(Cells(2, 1), Cells(ult, 1))

'Paso 4: empezar an‡lisis de celdas

For Each Celda In Rango

'Paso 5. eliminar los espacios con la funcion Trim

If Not IsEmpty(Celda) Then

Celda = Trim(Celda)

End If

'Paso 6. Ir a la siguiente celda del rango

Next Celda

End Sub

quisiera que lo realice en toda la hoja

o en su defecto en una sola columan k (k:k)

[Antoni]

.

Sin archivo no hay nada que hacer.

Si te sirve para algo:

Eliminar blancos por la izquierda y por la derecha

SinBlancosALL = Trim(VariableConBlancos)[/CODE]

Solo los blancos por la izquierda

[CODE]SinBlancosIZQ = LTrim(VariableConBlancos)[/CODE]

Solo los blancos por la derecha

[CODE]SinBlancosDER = RTrim(VariableConBlancos)[/CODE]

.

[ecastillorey]

adjunto archivo

la macro funciona solo con el listado de canciones de la columna a a la am y de la fila 1 a 20

pero lo demás no le quita los espacios , mi confucion es como declarar el rango ,que selecione todo como normalmente lo hago ctrl ~alt ~e no se si puedas ayudarme

Lista-de-canciones-excel-macros.rar