Ejercicio 1 Prompt Excel

📘 Ejercicio 1 – Generación de un reporte automático en Excel

📌 Planteamiento del problema:

En una empresa, el gerente necesita un reporte automático de ventas mensual en Excel. El reporte debe:

• ✅ Crear una hoja llamada "Reporte Mensual".
• ✅ Copiar los datos de ventas desde una hoja llamada "Ventas".
• ✅ Resaltar en rojo las ventas inferiores a $500.
• ✅ Mostrar en la parte inferior el total de ventas.

👉 Tu objetivo es escribir un prompt efectivo para que la IA genere la macro en VBA que automatice todo el proceso.

"Escribe una macro en VBA que:
1️⃣ Cree una hoja llamada 'Reporte Mensual' (eliminando la anterior si ya existe).
2️⃣ Copie los datos de la hoja 'Ventas' (A1:C100).
3️⃣ Resalte en rojo las ventas inferiores a $500.
4️⃣ Inserte en la última fila el total de ventas en negrita."
  

Sub ReporteMensual()
    Dim ws As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Reporte Mensual").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    Set ws = Sheets.Add
    ws.Name = "Reporte Mensual"
    
    ' Copiar datos
    Sheets("Ventas").Range("A1:C100").Copy ws.Range("A1")
    
    ' Resaltar ventas menores a 500
    Dim i As Long
    For i = 2 To 100
        If ws.Cells(i, 3).Value < 500 Then
            ws.Cells(i, 3).Interior.Color = RGB(255, 200, 200)
        End If
    Next i
    
    ' Total de ventas
    ws.Cells(102, 2).Value = "TOTAL:"
    ws.Cells(102, 3).Formula = "=SUM(C2:C100)"
    ws.Cells(102, 3).Font.Bold = True
End Sub