Caro @Swalls...
Obrigado pelo retorno...
Essa é uma planilha que retorna os dados do ERP Protheus , e atualiza automaticamente....Porém eu não tenho acesso as configurações de administrador para fazer alterações .
A coluna " ÚLTIMA ATUALIZAÇÃO " , eu inseri para que tentar consegui o horário automaticamente através de algum código em VBA.( de foram que não precise ser digitada manualmente,o código VBA que tentei só permite códigos digitados manualmente).
Segue o código que tentei utilizar , mas não deu certo:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As ListObject
Dim updateCol As ListColumn
Dim updateCell As Range
Dim changedRow As ListRow
' Define a tabela e a coluna de atualização
Set tbl = Me.ListObjects("Pedidos_a_Faturar")
Set updateCol = tbl.ListColumns("ÚLTIMA ATUALIZAÇÃO")
' Verifica se a célula alterada está dentro da tabela
If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
Application.EnableEvents = False
' Percorre cada célula alterada
For Each updateCell In Target
' Se a célula alterada estiver em uma linha da tabela, atualize a coluna "ÚLTIMA ATUALIZAÇÃO"
Set changedRow = tbl.ListRows(updateCell.Row - tbl.HeaderRowRange.Row)
changedRow.Range(updateCol.Index).Value = Format(Now, "hh:mm:ss")
Next updateCell
Application.EnableEvents = True
End If
End Sub
Grato!!!