Mini MACROS de Excel

Conjunto de MACROS de Excel Sencillos

Ejemplo de macros de excell sencillos.

Solo abre el editor de VBA e Insertalos en un MODULE
1. Convertir texto a MAYÚSCULAS
Convierte a Mayúsculas

Sub Mayusculas()
Dim celda As Range
For Each celda In Selection
If Not IsEmpty(celda) Then
celda.Value = UCase(celda.Value)
End If
Next celda
End Sub

2. Convertir texto a minúsculas
Convertir en Minúsculas

Sub Minusculas()
Dim celda As Range
For Each celda In Selection
If Not IsEmpty(celda) Then
celda.Value = LCase(celda.Value)
End If
Next celda
End Sub

3. Eliminar espacios extra (tipo TRIM)
Elimia QuitarEspacios

Sub QuitarEspacios()
Dim celda As Range
For Each celda In Selection
If Not IsEmpty(celda) Then
celda.Value = Application.WorksheetFunction.Trim(celda.Value)
End If
Next celda
End Sub


4. Insertar fecha actual
Insertar fecha actual

Sub InsertarFecha()
Selection.Value = Date
End Sub

5. Insertar hora actual
Insertar hora actual

Sub InsertarHora()
Selection.Value = Time
End Sub

6. Resaltar celdas con valor mayor a 100
Resaltar >100

Sub ResaltarValores()
Dim celda As Range
For Each celda In Selection
If IsNumeric(celda.Value) Then
If celda.Value > 100 Then
celda.Interior.Color = RGB(255, 255, 0)
End If
End If
Next celda
End Sub

7. Borrar filas vacías
Borra filas vacías

Sub BorrarFilasVacias()
Dim i As Long
For i = Selection.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
End Sub

8. Crear una hoja nueva con nombre automático
Crear nombre de hora automática

Sub NuevaHoja()
Worksheets.Add.Name = "Hoja_" & Format(Now, "hhmmss")
End Sub

9. Encuentra la edad a partir de un CURP
Cbtener la edad de un CURP

Sub CalcularEdad()
Dim texto As String
Dim anio As Integer
Dim mes As Integer
Dim dia As Integer
Dim anioCompleto As Integer
Dim fechaNacimiento As Date
Dim edad As Integer
' Tomar el valor de la celda F10
texto = Range("F10").Value
' Extraer año, mes y día anio = Mid(texto, 5, 2)
mes = Mid(texto, 7, 2)
dia = Mid(texto, 9, 2)
' Determinar el siglo correcto
If anio <= Right(Year(Date), 2) Then
anioCompleto = 2000 + anio
Else
anioCompleto = 1900 + anio
End If
' Crear la fecha
fechaNacimiento = DateSerial(anioCompleto, mes, dia)
' Calcular edad
edad = Int((Date - fechaNacimiento) / 365.25)
' Mostrar resultado en una celda
Range("G10").Value = edad
End Sub