Vba asignar tarea a empleado disponible

Como te indicaba, cada cierto tiempo me descargo las tareas que tengo, en donde las que no tienen asignado empleado figura vacío.

Entonces tengo que ir buscando quien puede hacer la primera tarea que esta sin asignar empleado, primero entre los que están trabajando y si estos no pueden, pues asigno uno nuevo. Una vez asignados, pueden entrar nuevas tareas y tengo que realizar nuevas asignaciones.

La siguiente línea, le añadí el OR porque no se puede solapar ni por inicio ni por fin, por ejemplo si un empleado tiene tarea de 6:50 a 7:05, no puede realizar ninguna tarea que parte del tiempo este dentro de ese margen, por eso la modificación siguiente

If (h.Cells(b.Row, "A").Value <= ini And _
h.Cells(b.Row, "B").Value >= ini) Or (h.Cells(b.Row, "A").Value <= fin And _
h.Cells(b.Row, "B").Value >= fin) 

Añade tu respuesta

Haz clic para o