Macros Buscar Datos y Pegarlos como Resumen en Visual Basic [SOLUCIONADO]

Búsqueda eficiente de datos con macros en VBA

El manejo de datos se ha convertido en una tarea esencial para muchos negocios. Excel, mejorado con la programación en Visual Basic para Aplicaciones (VBA), puede ser una herramienta poderosa para manejar y procesar estos datos.

En el mundo de VBA, una macro es un conjunto de instrucciones que se almacenan y se pueden ejecutar cuando lo necesite. Al usar macros para buscar datos y pegarlos en forma resumida, puedes automatizar tareas repetitivas, lo que ahorra tiempo y reducir errores.

Creando una macro para buscar y resumir datos en Excel

Para demostrar cómo funciona, vamos a crear una macro que buscará ciertos datos en una hoja de Excel y después la utilizará para generar un informe resumido.

Sub BuscarYResumir()
    Dim rng As Range, fila As Range, celda As Range
    Dim Resumen As Worksheet, Origen As Worksheet
    Set Resumen = ThisWorkbook.Sheets("Resumen")
    Set Origen = ThisWorkbook.Sheets("Origen")
    
    For Each fila in Origen.UsedRange.Rows
        For Each celda in fila.Cells
            If celda.Value = "Buscado" Then
                Resumen.Cells(Resumen.UsedRange.Rows.Count + 1, 1).Value = fila.Cells(1, 1).Value
            End If
        Next celda
    Next fila
End Sub

Copiar

Entendiendo el código de la macro buscar y pegar resumen

Lo que hace este código es buscar en todas las celdas de la hoja “Origén” el valor “Buscado” (Detalle1). Cuando encuentra este valor, copia el valor en la primera celda de la misma fila (Detalle2). Este valor se pega en la hoja de “Resumen” (Detalle3).

Optimizando el desempeño de tu macro

Si bien esta macro funciona bien para hojas de cálculo con cantidades de datos pequeñas a medianas, puede llegar a ser lenta si se trabaja con cantidades más grandes. VBA ofrece varias técnicas de optimización que pueden ayudar a mejorar el rendimiento en estos casos.

Por ejemplo, es posible mejorar la macro evitando la actualización de la pantalla durante la ejecución. Asimismo, nos podemos apoyar con la propiedad EnableEvents, que impide que otros eventos sean disparados durante la ejecución de la macro.

Sub BuscarYResumirOptimizado()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' El resto del código va aquí
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Copiar

Interpretando el informe resumido generado por la macro

Finalmente, es importante saber interpretar y usar adecuadamente los resultados generados por la macro. El informe resumido que producirá esta macro nos permitirá hacer un análisis más concentrado de los datos que hemos buscado y recopilado.