Jesus Mansilla Castells

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 And Target.Row > 6 Then If Len(Trim(Sheets("regisauto").Cells(Target.Row - 1, 5))) > 0 Then Sheets("regisauto").Cells(Target.Row, 6) = Now End If End If End Sub

Suponiendo que en A1 tengas 02 enero 2010 como texto, en la celda B1(que tendrá formato de fecha) pones: =FECHANUMERO(A1) Y voila

Lo primero es que Now es fecha + hora (Now = 18/12/2016 12:22:09), deberías emplear Date (Date = 18/12/2016). Lo segundo es que te sobra la segunda comparación, con la primera es suficiente (aprovechando el ELSE): Private Sub txt_final_LostFocus()...

Además de lo que te han dicho antes, el problema en el código que empleas es que la variable a la que asignas la ruta del archivo la incluyes dentro del comando a ejecutar, así que excel intenta abrir un archivo llamado 'archivo'. Hay que sacarlo...

Las consultas de referencias cruzadas no deberían existir ... :-P Necesitas una consulta que te agrupe por código de enfermedad, y te sumarice por grupo. Espero que tengas un código de grupo: 1, 2, 3, 4 en vez de '0<1' '1-4' ... etc. La consulta para...