Máximos colaboradores

Bueno, si te interesa reconstruir los datos con formato numérico (para poder hacer cálculos con ellos), deberás proceder así: Selecciona el rango A2:A20 (o el que ocupen todos los datos a reciclar). Teclea Ctr+L (vamos a reemplazar algunos datos). Una vez tengas abierto el cuadro de diálogo 'Buscar y reemplazar', introduce en 'Buscar:' P.M. y en 'Reemplazar:' PM y haz clic en 'Reemplazar todos'. Repite la misma operación, modificando A.M. por AM Si todo ha ido bien, ya tenemos los datos reconocibles como horas y fechas. Ahora sírvete de la utilidad 'Texto en columnas' (está en la hoja 'Datos'), elige 'De ancho fijo' y finaliza. Si todo sigue yendo bien, ya tienes los datos de forma ortodoxa. Aplica formato fecha a la primera columna y formato hora AM/PM a la segunda. Saludos,

Te dejo esta UDF que hace lo que quieres. Function ExtraerCarpetas(Ruta As String) As String Carpetas = Split(Ruta, "\") ExtraerCarpetas = Carpetas(UBound(Carpetas) - 2) & "\" & Carpetas(UBound(Carpetas) - 1) & "\" End Function Revisa las fórmulas de la columna D. P extraer nombre de carpeta.xlsm