El presente video te enseñamos a convertir texto en minúscula a mayúsculas con una macro que te describo a continuación:
Esta macro realiza una acción muy sencilla: convierte el contenido de las celdas seleccionadas a mayúsculas.
Public Sub Mayuscula()
Dim celda As Range
For Each celda In Selection
celda.Value = UCase(celda.Value)
Next
End Sub
1. Public Sub Mayuscula(): Esto define el inicio de la subrutina llamada "Mayuscula". El "Public" indica que la subrutina es accesible desde cualquier lugar en el libro.
2. Dim celda As Range: Declara una variable llamada "celda" como un objeto de rango. Este objeto se utilizará para iterar a través de cada celda en la selección.
3. For Each celda In Selection: Inicia un bucle "For Each" que recorre cada celda en la selección actual.
4. celda.Value = UCase(celda.Value): Para cada celda en la selección, asigna el valor de la celda convertido a mayúsculas usando la función `UCase()`. Esto significa que el contenido de cada celda será reemplazado por su versión en mayúsculas.
5. Next: Cierra el bucle "For Each".
La instrucción "End Sub" marca el final de la subrutina en VBA (Visual Basic for Applications). En el contexto de la macro que proporcionaste, "End Sub" indica el final de la subrutina llamada "Mayuscula".
Después de ejecutar todas las líneas de código dentro de la subrutina, el programa llega a la instrucción "End Sub", lo que indica que no hay más código que ejecutar en esa subrutina. Es una forma de cerrar la definición de la subrutina y volver al flujo principal del programa.
En resumen, esta macro recorre cada celda en la selección actual y convierte el texto de cada celda a mayúsculas. Puedes ejecutar esta macro seleccionando un rango de celdas en tu hoja de Excel y luego ejecutando la macro. El texto de las celdas seleccionadas se actualizará para estar completamente en mayúsculas.
Link ejercicio:
https://pnick-my.sharepoint.com/:x:/g...