Eliminacion de espacios al pricipio y final de cada cadena de texto en una celda
publicado
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)
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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)