Aladin and Andrew
I received by email a simplified copy of o.Junior's workbook. I noted that the Worksheet_Change event used to insert the date/time in column G had some problems
I changed it to
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B7:B1000")) Is Nothing Then
If Target <> "" Then
Target.Offset(0, 5) = Now()
Else
Target.Offset(0, 5) = ""
End If
End If
End Sub
I also changed the formula in column I to
=IF(OR(E7="",H7=""),"",(E7/H7)/24)
and the format of this column to [hh]:mm
In K3 i put the formula and used format [hh]:mm
=SUMPRODUCT(--($A$7:$A$1000="RL1"),--(INT($G$7:$G$1000)=TODAY()),$I$7:$I$1000)
Same idea in M3 and O3
I got
[TABLE="class: grid"]
<tbody>[TR]
[TD][/TD]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[TD]E
[/TD]
[TD]F
[/TD]
[TD]G
[/TD]
[TD]H
[/TD]
[TD]I
[/TD]
[TD]J
[/TD]
[TD]K
[/TD]
[TD]L
[/TD]
[TD]M
[/TD]
[TD]N
[/TD]
[TD]O
[/TD]
[TD]P
[/TD]
[TD]Q
[/TD]
[TD]R
[/TD]
[TD]S
[/TD]
[TD]T
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]Solicitação de Ordens das RL's - Bloco 66
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Tempo Total de Produção
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]RL1
[/TD]
[TD][/TD]
[TD]RL2
[/TD]
[TD][/TD]
[TD]RL3
[/TD]
[TD][/TD]
[TD]RL4
[/TD]
[TD][/TD]
[TD]RL5
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]01:45
[/TD]
[TD][/TD]
[TD]02:00
[/TD]
[TD][/TD]
[TD]02:51
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6
[/TD]
[TD]Mesa
[/TD]
[TD]Número da Ordem
[/TD]
[TD]Código do Material
[/TD]
[TD][/TD]
[TD]Quantidade
[/TD]
[TD]Turno
[/TD]
[TD]Data
[/TD]
[TD]Peças / Hora
[/TD]
[TD]Duração da Ordem (hh:mm)
[/TD]
[TD]Status Almoxarifado
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7
[/TD]
[TD]RL1
[/TD]
[TD]1
[/TD]
[TD]cod1
[/TD]
[TD][/TD]
[TD]1000
[/TD]
[TD]100
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]1000
[/TD]
[TD]01:00
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8
[/TD]
[TD]RL1
[/TD]
[TD]2
[/TD]
[TD]cod2
[/TD]
[TD][/TD]
[TD]250
[/TD]
[TD]300
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]1000
[/TD]
[TD]00:15
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9
[/TD]
[TD]RL1
[/TD]
[TD]3
[/TD]
[TD]cod3
[/TD]
[TD][/TD]
[TD]250
[/TD]
[TD]200
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]500
[/TD]
[TD]00:30
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD]RL2
[/TD]
[TD]4
[/TD]
[TD]cod1
[/TD]
[TD][/TD]
[TD]1500
[/TD]
[TD]200
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]1000
[/TD]
[TD]01:30
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]11
[/TD]
[TD]RL2
[/TD]
[TD]5
[/TD]
[TD]cod3
[/TD]
[TD][/TD]
[TD]500
[/TD]
[TD]300
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]1000
[/TD]
[TD]00:30
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]12
[/TD]
[TD]RL3
[/TD]
[TD]6
[/TD]
[TD]cod2
[/TD]
[TD][/TD]
[TD]450
[/TD]
[TD]300
[/TD]
[TD]05/11/2014 10:52
[/TD]
[TD]1000
[/TD]
[TD]00:27
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13
[/TD]
[TD]RL3
[/TD]
[TD]7
[/TD]
[TD]cod9
[/TD]
[TD][/TD]
[TD]1200
[/TD]
[TD]200
[/TD]
[TD]05/11/2014 10:53
[/TD]
[TD]500
[/TD]
[TD]02:24
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I sent the test workbook to O_Junior and let's wait to see if everything is ok to him.
Any others ideas?
M.