Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda para editar 3...
 
Notifications
Clear all

Ajuda para editar 3 linhas no VBA

 
2024 - VBA & Macros
Post Recente por Diogo Lian 10 anos atrás
5 Posts
2 Usuários
0 Reactions
952 Visualizações
RSS
 Diogo Lian
(@diogo-lian)
Posts: 0
New Member
Topic starter
 

Olá pessoal gostaria se alguém pudesse me ajudar porque não entendo muito de VBA .

Seguinte :

preciso colocar uma data e hora do PC automaticamente , assim , quando eu editar uma célula específica que é o nome da pessoa uma outra célula acrescenta automaticamente os dados da hora e data .

" escrever em uma unica célula , tipo ao digitar na célula A2 ele preencher só B5 com a data e hora"

Aqui o código que é escrito na aula em vídeo :

Private Sub WorKsheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Cells(Target.Row, 3).Value = Date & "" & Time
    End If
End Sub

Aqui a aula em vídeo mas só edita as coisas em colunas eu queria editar em uma determinada célula e preencher a outra com a hora e data !

https://www.youtube.com/watch?v=sE1yM0O ... kQ&index=2

 
Postado : 15/07/2014 6:01 pm
 Diogo Lian
(@diogo-lian)
Posts: 0
New Member
Topic starter
 

essas células A2 e B5 são apenas exemplos , eu gostaria de saber o que precisa ser editado pra fazer essa função

obrigado a quem puder ajudar .

 
Postado : 15/07/2014 6:04 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Tente este código.
Cole ele na plan que você vai usar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Range("B" & Target.Row).Value = Date & "-" & Time
End Sub

Na coluna A se você digitar qualquer palavra, vai aparecer data e hora na coluna B.

Tente e veja se é isso!!!

Att,

 
Postado : 15/07/2014 6:31 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se for em uma unica celula, poderia ser assim:

Private Sub WorKsheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Cells(5, 2).Value = Date & "" & Time
End If
End Sub
 
Postado : 15/07/2014 6:33 pm
 Diogo Lian
(@diogo-lian)
Posts: 0
New Member
Topic starter
 

Muito obrigado , resolveu o problema :D

 
Postado : 15/07/2014 9:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico