Unir 3 macros en una sola para eliminar espacios vacíos sobrantes
Para DAM
Hola DAM, como has estado amigo
Vengo con algo que busque en la WEB y lo que pretendo es unir las 3 en una sola para un solo botón
'Elimina los espacios al inicio de la cadena de texto Sub EliminarInicio() Dim celda As Range For Each celda In Selection celda.Value = LTrim(celda.Value) Next End Sub 'Elimina los espacios al final de la cadena de texto Sub EliminarFinal() Dim celda As Range For Each celda In Selection celda.Value = RTrim(celda.Value) Next End Sub 'Elimina los espacios intermedios de la cadena de texto, Ej. Jota Jota Jota los deja así; Jota Jota Jota Sub EliminarIntermedios() Dim celda As Range For Each celda In Selection celda.Value = WorksheetFunction.Trim(celda.Value) Next End Sub
Despues de tenerla unidas, las 3 en 1 sola, hare nueva pregunta para que actue en la hoja completa sin tener que seleccionar ninguna celda o rango = ActiveSheet o Sheets(2).select sin tener que mostrar la hoja.
Gracias amigo.
Una pregunta personal; ¿Cómo estan tus conocimientos sobre informatica (Hardware)?
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Así quedaría la macro para funcionar en toda una hoja
Sub EliminarInicio()
'Por.Dante Amor
Dim celda As Range
For Each celda In Sheets("Hoja1").Cells.SpecialCells(xlCellTypeConstants, 23)
celda.Value = WorksheetFunction.Trim(celda.Value)
Next
End SubEl tema de software como de hardware es muy amplio, te puedo decir que entre más aprendo más me doy cuenta que menos sé.
Sal u dos
