Sub CalculateTotal()
    Dim total As Double
    total = 0
    
    ' Itera a través de cada celda en el rango y suma los valores
    For Each cell In Range("A1:A10")
        total = total + cell.Value
    Next cell
    
    ' Muestra el total en la celda B1
    Range("B1").Value = total
End Sub

Sub GenerateReport()
    ' Este procedimiento genera un informe basado en los datos de ventas
    ' 1. Filtra los datos de ventas
    ' 2. Calcula las métricas clave
    ' 3. Formatea el informe
    ' 4. Guarda el informe en un archivo PDF
    
    ' Filtra los datos de ventas
    Call FilterSalesData
    
    ' Calcula las métricas clave
    Call CalculateMetrics
    
    ' Formatea el informe
    Call FormatReport
    
    ' Guarda el informe en un archivo PDF
    Call SaveReportAsPDF
End Sub

# Proyecto de Automatización de Informes en Excel

## Descripción
Este proyecto automatiza la generación de informes de ventas en Excel utilizando VBA. El script filtra los datos de ventas, calcula métricas clave, formatea el informe y lo guarda como un archivo PDF.

## Requisitos
- Microsoft Excel 2016 o superior
- Habilitar macros en Excel

## Instalación
1. Descarga el archivo `ReportAutomation.xlsm`.
2. Abre el archivo en Excel.
3. Habilita las macros cuando se te solicite.

## Uso
1. Abre el archivo `ReportAutomation.xlsm`.
2. Haz clic en el botón "Generar Informe".
3. El informe se generará y se guardará automáticamente en la carpeta `Informes`.

## Estructura del Proyecto
- `Module1`: Contiene las funciones principales para la generación del informe.
- `FilterSalesData`: Filtra los datos de ventas.
- `CalculateMetrics`: Calcula las métricas clave.
- `FormatReport`: Formatea el informe.
- `SaveReportAsPDF`: Guarda el informe como un archivo PDF.

## Contribuciones
Las contribuciones son bienvenidas. Por favor, abre un issue o envía un pull request.

## Licencia
Este proyecto está licenciado bajo la Licencia MIT.

Sub CalculateAverage()
    Dim total As Double
    Dim count As Integer
    Dim average As Double
    
    total = 0
    count = 0
    
    ' Itera a través de cada celda en el rango y suma los valores
    For Each cell In Range("A1:A10")
        total = total + cell.Value
        count = count + 1
    Next cell
    
    ' Calcula el promedio
    If count > 0 Then
        average = total / count
    Else
        average = 0
    End If
    
    ' Muestra el promedio en la celda B1
    Range("B1").Value = average
End Sub

# Proyecto de Cálculo de Promedio en Excel

## Descripción
Este proyecto calcula el promedio de un rango de celdas en Excel utilizando VBA. El script suma los valores de las celdas en el rango `A1:A10`, calcula el promedio y lo muestra en la celda `B1`.

## Requisitos
- Microsoft Excel 2016 o superior
- Habilitar macros en Excel

## Instalación
1. Descarga el archivo `AverageCalculation.xlsm`.
2. Abre el archivo en Excel.
3. Habilita las macros cuando se te solicite.

## Uso
1. Abre el archivo `AverageCalculation.xlsm`.
2. Ingresa los valores en el rango `A1:A10`.
3. Ejecuta la macro `CalculateAverage`.
4. El promedio se mostrará en la celda `B1`.

## Estructura del Proyecto
- `Module1`: Contiene la función principal para el cálculo del promedio.

## Contribuciones
Las contribuciones son bienvenidas. Por favor, abre un issue o envía un pull request.

## Licencia
Este proyecto está licenciado bajo la Licencia MIT.