Notifications
Clear all

Gravar hora e data

5 Posts
2 Usuários
0 Reactions
1,238 Visualizações
(@suenne)
Posts: 50
Trusted Member
Topic starter
 

Boa tarde,

criei uma planilha para entrada de dados, gostaria de criar uma fórmula para preencher data e hora automático na coluna B, assim que eu fazer a leitura de um código de barras na coluna A.

É possível? Como devo fazer?

Obrigada.

 
Postado : 28/04/2015 11:43 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

poderia usar a função AGORA().

E quando fizer essa leitura, atualizaria o horário e cola valores....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/04/2015 11:58 am
(@suenne)
Posts: 50
Trusted Member
Topic starter
 

Pelo que entendi aqui essa função agora atualiza sempre que há qualquer alteração na planilha né?

Não tem alguma outra que dê pra usar sem que necessite colar valores?

Porque minha entrada de dados será grande....

 
Postado : 28/04/2015 12:30 pm
(@suenne)
Posts: 50
Trusted Member
Topic starter
 

Bom dia,

consegui resolver com a seguinte macro:

Private Sub Worksheet_Change(ByVal Alvo As Range)

Dim limite_maximo As Integer

limite_maximo = 100 ' altere aqui para limitar a última linha

' faz nada se mais de uma célula modificada ou se deu delete

If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub

If Alvo.Column = 1 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then

' o if acima garante que a célula modificada está dentro a2:a100

'

' desliga captura do evento change

Application.EnableEvents = False

' muda a célula C da linha correspondente

Alvo.Offset(0, 2).Value = Date()

' religa a captura de eventos

Application.EnableEvents = True

End If

End Sub

 
Postado : 30/04/2015 7:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Suenne

Obrigado pelo retorno,pois assim, se outro usuário tiver a mesma dúvida, terá a solução.
[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/04/2015 7:42 am