En este ejemplo la programación en VBA la utilizamos para seleccionar un rango y corregirlo como nombre propio, es decir con la primera palabra en mayúscula y eliminar los espacios.
En el caso de los espacios entre palabras deja uno sólo y los espacios por la derecha los elimina.
‘Aplicamos función NOMBREPORPIO a la selección
celda.Value = Application.WorksheetFunction.Proper(celda.Value)
‘Aplicamos función ESPACIOS a la selección
celda.Value = Application.WorksheetFunction.Trim(celda.Value)
También en el ejemplo se corrigen los códigos postales aplicando formato con código VBA, de forma que aparezca con 5 dígitos, si el código aparece como 8023 pasa a ser 08023.
Selection.NumberFormat = «00000»
Como ejemplo corregimos los códigos de las celdas Range(Cells(2, 7), Cells(26, 7)) recuerda que en el post:
,puedes conocer como averiguar la última celda rellena de una columna.
Puedes copiar el código y pegarlo en un módulo dentro del editor VBA y ejecutar la macro, obtendremos la corrección de la hoja.
Sub ConviertePropias()
Dim celda As Range
For Each celda In Selection
‘Aplicamos función NOMBREPORPIO a la selección
celda.Value = Application.WorksheetFunction.Proper(celda.Value)
‘Aplicamos función ESPACIOS a la selección
celda.Value = Application.WorksheetFunction.Trim(celda.Value)
Next
‘ A la columna CP de códigos postales le damos formato para que aparzca con 5 dígitos siempre
Range(Cells(2, 7), Cells(26, 7)).Select
Selection.NumberFormat = «00000»
End Sub
Excel Trucos & Power BI Tips 