| checheman |  |
|
2008-06-06 22:14 - Respuestas: 0 - Tema nº: 2523354
Características: Windows XP Profesional 1gb,cel 1.7hgz,1mb cache,100gb.
ya tengo este codigo
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1) And Me.Cells(Target.Row, 2) = "" Then
Me.Cells(Target.Row, 2) = Time
End If
If Cells(Target.Row, 3) And Me.Cells(Target.Row, 4) = "" Then
If Not IsNumeric(Cells(Target.Row, 3)) Then Exit Sub
'Diferencias en horas en celda columna 4
Me.Cells(Target.Row, 4) = Int(DateDiff("n", Cells(Target.Row, 2), Cells(Target.Row, 3)) / 60)
'Diferencias en minutos en celda columna 5
Me.Cells(Target.Row, 5) = (DateDiff("n", Cells(Target.Row, 2), Cells(Target.Row, 3))) - (Cells(Target.Row, 4) * 60)
End If
End Sub
pero no me genera las horas consumidas ni los minutos que puedo hacer
| |
|
|
