Que bom que ajudou. Respondendo as tuas perguntas
1º os nomes dos funcionários tem que ficar na mesma coluna? pois tentei colocar alguns na coluna do lado e não funciona.
Essa linha do código especifica a linha do funcionário:
If Range(Passo_A).Column = 2 Then
Para inserir mais uma coluna, vc pode usar assim:
If Range(Passo_A).Column = 2 Or Range(Passo_A).Column = 4 Then
2º tem como inserir no código um botão macro para toda vez que ao mesmo tempo que clicar na "peça' ele disparar o relógio para controlar o horário em que foi pego a peça? Pois já utilizo separado este comando também. Tentei mas não consegui.
Não há necessidade de usar botão.
Como vc já tem o código para disparar o relógio, basta chamar ele ao fim da macro. Suponha que a tua macro seja chamada de Relogio:
Sub Relogio ()
'seu código do relógio
End Sub
O que vc precisa fazer, é incluir essa linha:
Call Relogio
Vai ficar assim:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Passo_A As String
Static Passo_B As String
Dim Nome_A As String
Dim Nome_B As String
Dim ws As Worksheet
Dim C As Variant 'C oluna
Dim L As Variant 'L inha
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If Selection.Cells.Count > 1 Then GoTo EVENTOS
If Passo_B = vbNullString Then
If Passo_A = vbNullString Then
Passo_A = ActiveCell.Address
GoTo EVENTOS
End If
Passo_B = ActiveCell.Address
Else
Passo_A = Passo_B
Passo_B = ActiveCell.Address
End If
If Range(Passo_A).Column = 2 Or Range(Passo_A).Column = 4 Then
Set ws = Sheets("total do digitavel")
Nome_A = Range(Passo_A).Value2
Nome_B = Range(Passo_B).Value2
With Application
L = Application.Match(Nome_A, ws.Columns("B"), 0)
If IsError(L) Then GoTo EVENTOS
C = Application.Match(Nome_B, ws.Rows(3), 0)
If IsError(C) Then GoTo EVENTOS
End With
ws.Cells(L, C).Value2 = ws.Cells(L, C).Value2 + 1
Call Relógio
End If
EVENTOS:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Postado : 23/02/2015 3:04 pm