CASO PRÁCTICO CON VBA: DEPURAR Y RECONSTRUIR INFORMACIÓN HISTÓRICA

Hola a todos!:

Normalmente cuando me llegan consultas relacionadas con históricos o con la depuración y reconstrucción de informaciones, suelo acudir siempre en primer lugar a VBA. No quiere decir esto que sea VBA la mejor alternativa, sino que es una técnica más. Siempre debemos valorar el tipo de datos y la complejidad y volumen de los mismos.

Una consulta que me enviaron recientemente tenía como base la siguiente estructura, imaginad la plantilla de empleados de un almacén y que extraéis del sistema la siguiente información:

Y lo que se pide es obtener la fecha inicio de cada puesto de trabajo para cada trabajador y aprovechar y reconstruir historial.

Como podéis observar el problema es que se han incluido ocurrencias intermedias que no tienen que ver con la fecha inicio del puesto de trabajo y que no se deben tener en cuenta para identificar la antigüedad del trabajador en ese puesto. Sea como sea, esto es lo que tenemos y no conseguiremos mejores datos.

Para realizar este trabajo os propongo el siguiente código:

Sub EJEMPLO_PRACTICO()
    Dim i           As Long, j As Long, d As Long
    Dim fin         As Long, n As Long
    'Ordenamos
    With Sheets("Hoja1").Range("A1")
        .Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
    End With
    With Sheets("Hoja1")
        fin = Application.CountA(.Range("A:A"))
        'Por cada cambio de ID vamos comprobando puestos que ha desempeñado y fechas
        For i = 2 To fin
            If .Cells(i, 1) <> .Cells(i + 1, 1) Then
                n = 1
                For j = 2 + d To fin
                    If .Cells(j, 3) <> .Cells(j + 1, 3) Or (.Cells(j, 3) = .Cells(j + 1, 3) And (.Cells(j, 1) <> .Cells(j + 1, 1))) Then
                        .Cells(j, 6) = n
                        n = n + 1
                    End If
                    If i = j Then Exit For
                Next j
                d = i - 1
            End If
        Next i
    End With
End Sub

El resultado de aplicarlo es el siguiente:

Como podéis observar, hemos marcado todos los puestos (y con ello sus fechas) y los hemos ordenado, donde el 1 es el puesto actual y así sucesivamente. Los registros sin número serían aquellos registros que debemos eliminar u obviar a la hora de crear un nuevo historial.

Como ya comenté, se podría resolver con distintas técnicas y en varios lenguajes. Si necesitáis crear una base de datos parecida os recomienda este post para crear nombres de trabajadores: COMBINAR LA FUNCIÓN HALLAR Y LA FUNCIÓN LARGO

Os dejo el archivo de ejemplo, (está en .xls):

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies