Desafío: crea tus propios desafíos

Código para generar el informe resumen de ventas:
' Genera el informe en la hoja "Informe" con formato mejorado pero sin filtros
Sub GenerarInforme()
Dim wsVentas As Worksheet, wsInforme As Worksheet
Dim dict As Object
Dim ultimaFila As Long, i As Long
Dim vendedor As String, total As Double
Dim vendedoresValidos As Variant

' Lista de vendedores válidos
vendedoresValidos = Array("Carlos", "Sofía", "Luis", "Marta", "Ana")

' Referencia a hoja Ventas
Set wsVentas = ThisWorkbook.Sheets("Ventas")
ultimaFila = wsVentas.Cells(wsVentas.Rows.Count, "A").End(xlUp).Row

' Crear o limpiar hoja Informe
On Error Resume Next
Set wsInforme = ThisWorkbook.Sheets("Informe")
If wsInforme Is Nothing Then
    Set wsInforme = ThisWorkbook.Sheets.Add
    wsInforme.Name = "Informe"
Else
    wsInforme.Cells.Clear
End If
On Error GoTo 0

' Usar diccionario para acumular ventas por vendedor
Set dict = CreateObject("Scripting.Dictionary")

For i = 6 To ultimaFila
    vendedor = wsVentas.Cells(i, 2).Value
    total = wsVentas.Cells(i, 4).Value * wsVentas.Cells(i, 5).Value
    
    ' Solo acumular si el vendedor está en la lista válida
    If Not IsError(Application.Match(vendedor, vendedoresValidos, 0)) Then
        If dict.Exists(vendedor) Then
            dict(vendedor) = dict(vendedor) + total
        Else
            dict.Add vendedor, total
        End If
    End If
Next i

' Encabezados en fila 5
wsInforme.Range("A5:B5").Value = Array("Vendedor", "Total Ventas")

' Resultados desde fila 6
For i = 0 To dict.Count - 1
    wsInforme.Cells(i + 6, 1).Value = dict.Keys()(i)
    wsInforme.Cells(i + 6, 2).Value = Round(dict.Items()(i), 2)
Next i

' Ordenar de mayor a menor
wsInforme.Range("A5:B" & dict.Count + 5).Sort Key1:=wsInforme.Range("B6"), _
    Order1:=xlDescending, Header:=xlYes

' Formato mejorado
wsInforme.Columns("A:B").AutoFit
wsInforme.Range("A5:B5").Font.Bold = True
wsInforme.Range("A5:B5").Interior.Color = RGB(200, 200, 200) ' Encabezado gris claro
wsInforme.Columns("B").NumberFormat = "$#,##0.00"

' Bordes a la tabla
With wsInforme.Range("A5:B" & dict.Count + 5).Borders
    .LineStyle = xlContinuous
    .Color = RGB(0, 0, 0)
    .Weight = xlThin
End With

MsgBox "Informe generado con formato mejorado.", vbInformation

End Sub

Resultado obtenido:

Hola Andrés, espero que estés bien

¡Qué interesante desafío estás abordando! Vamos a desglosar lo que necesitas hacer para completar tu sistema de ventas y reportes en Excel con VBA.

Generación de Datos Aleatorios

Ya tienes un buen comienzo con el código que genera datos aleatorios en la hoja "Ventas". Asegúrate de que cada columna esté correctamente formateada y que los filtros estén funcionando adecuadamente.

Creación del Informe Resumido

Para crear el informe que muestre el total de ventas por vendedor, puedes seguir estos pasos:

1. Crear una nueva hoja llamada "Informe": Si no existe, créala y asegúrate de que esté limpia.

2. Calcular el total de ventas por vendedor:

   • Puedes usar una tabla dinámica para resumir los datos. Aquí tienes un ejemplo de cómo hacerlo con VBA:

   Sub CrearInforme()
       Dim wsVentas As Worksheet
       Dim wsInforme As Worksheet
       Dim tbl As ListObject
       Dim pvtCache As PivotCache
       Dim pvtTable As PivotTable
       Dim rng As Range
   
       Set wsVentas = ThisWorkbook.Sheets("Ventas")
       On Error Resume Next
       Set wsInforme = ThisWorkbook.Sheets("Informe")
       If wsInforme Is Nothing Then
           Set wsInforme = ThisWorkbook.Sheets.Add
           wsInforme.Name = "Informe"
       Else
           wsInforme.Cells.Clear
       End If
       On Error GoTo 0
   
       Set tbl = wsVentas.ListObjects("TablaVentas")
       Set rng = tbl.Range
   
       ' Crear caché de tabla dinámica
       Set pvtCache = ThisWorkbook.PivotCaches.Create(xlDatabase, rng)
   
       ' Crear tabla dinámica
       Set pvtTable = pvtCache.CreatePivotTable(wsInforme.Cells(1, 1), "InformeVentas")
   
       ' Configurar la tabla dinámica
       With pvtTable
           .PivotFields("Vendedor").Orientation = xlRowField
           .PivotFields("Precio Unitario").Orientation = xlDataField
           .PivotFields("Precio Unitario").Function = xlSum
           .PivotFields("Precio Unitario").NumberFormat = "$#,##0.00"
           .DataBodyRange.Sort .PivotFields("Sum of Precio Unitario"), xlDescending
       End With
   
       ' Formato profesional
       wsInforme.Columns.AutoFit
   End Sub
   

3. Formulario de Búsqueda: Ya tienes el código para el TextBox que filtra por vendedor. Asegúrate de que el formulario esté bien vinculado y que el filtro funcione correctamente.

Con estos pasos, deberías poder completar tu desafío. Si necesitas ajustar el formato o los detalles del informe, puedes hacerlo directamente en Excel después de que el informe sea generado.

Espero haber ayudado y ¡buenos estudios!