Este fórum está sendo desativado

[Fantin]

Olá amigos, estou com certa dificuldade para conseguir encontrar uma macro que me ajude na questão abaixo.
É o seguinte, tenho uma planilha para controle de fabricação de alguns equipamentos.
Nessa planilha tenho uma aba de controle para cada equipamento, e nessa aba tenho uma coluna (STATUS) com validação de dados em lista, nessa lista estão as seguintes opções: Pendente ; Montada ; Inspecionada ; Testada ; Entregue.
De acordo com o progresso de fabricação, o usuário vai alterando conforme a etapa em que está.
O que eu gostaria de fazer é marcar a data e hora em que tal alteração é feita, ou seja, quando o usuário alterar de Pendente para Montada, escreve a data e hora, quando alterar de Montada para Inspecionada, escreve a data e hora e por assim vai.
No entanto preciso que os dados não sejam sobrescrevidos, ou seja, cada alteração tem que ficar gravada para eu acompanhar o processo.
Gostaria que a data e hora fossem gravadas na aba DATA, lá tem uma tabela de como eu queria que ficasse.
Deixo a planilha de exemplo em anexo para auxiliar.
Desde já agradeço quem puder me ajudar.

EXEMPLO.xlsx

[osvaldomp]

#
Instale uma cópia do código abaixo no módulo de EstaPastaDeTrabalho.
Funciona com qualquer quantidade de planilhas: EQUIP 1, EQUIP 2, EQUIP 3, ...

Código: Selecionar todos

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim LR As Long
 If Sh.Name = "DATAS" Then Exit Sub
 If Target.Column <> 3 Or Target.Value = "Pendente" Then Exit Sub
 With Sheets("DATAS")
  LR = .Cells(Rows.Count, 1).End(3).Row + 1
  .Cells(LR, 1) = Sh.Name: .Cells(LR, 2) = Target.Offset(, -1).Value
  .Cells(LR, Evaluate("MATCH('" & Sh.Name & "'!" & Target.Address & ",DATAS!A3:F3,0)")) = Now
 End With
End Sub

#
obs. na Validação de Dados das planilhas remova o espaço do final do texto Pendente.

[mucascosta]

Outra sugestão, consolidando na Aba DATAS...