hora automática na planilha atualizável

Question

Boa tarde!

Alguém pode me **** ajudinha ?

Tenho uma planilha "PEDIDOS A FATURAR" que atualiza sózinha ( com os dados que vem do sistema TOTVS PROTHEUS ). Preciso de um código em VBA ou EXCEL para retornar a data e horário automaticamente na coluna "ÚLTIMA ATUALIZAÇÃO" ( que inseri para saber qual pedido entrou )... Obs.: os dados entram automaticamente após cada atualização e não são digitados manualmente

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você também poderia compartilhar a pasta de trabalho de origem com alguns dados fictícios? Se você deseja obter o último valor de atualização, isso pode ser feito com a fórmula.

Answer 2

Obrigado pelo retorno...

Preciso de um código em VBA  ou EXCEL para retornar a data e horário automaticamente na coluna "ÚLTIMA ATUALIZAÇÃO"

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!!!

Answer 3

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia compartilhar mais detalhes sobre o que deseja que a macro faça e onde está a fonte de dados?

Answer 4

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia compartilhar um arquivo de teste com alguns dados fictícios para testar a macro?

Para compartilhar arquivos, você pode carregá-lo no OneDrive ou em qualquer outra unidade de nuvem e postar o link aqui.

*Certifique-se de ter removido todas as informações confidenciais ou privadas do arquivo de amostra antes de fazer o upload.

Bom dia !!

Obrigado pela rápida resposta...

Segue o link da planilha no One drive
Pedidos

Answer 5

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia compartilhar um arquivo de teste com alguns dados fictícios para testar a macro?

Para compartilhar arquivos, você pode carregá-lo no OneDrive ou em qualquer outra unidade de nuvem e postar o link aqui.

*Certifique-se de ter removido todas as informações confidenciais ou privadas do arquivo de amostra antes de fazer o upload.