Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Comentário com Hora...
 
Notifications
Clear all

Comentário com Hora Atual!

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,105 Visualizações
RSS
 fafsleite
(@fafsleite)
Posts: 0
New Member
Topic starter
 

Prezados,

Tem alguma função em VBA que consigo criar um comentário em uma célula, e dentro desse comentário já colocar a hora?

Consegui fazer manualmente, clicando em Shift + F2 (cria comentário), depois Control + Shift + ; (ponto e vírgula).

Ao clicar na célula, em qualquer célula, já criar esse comentário com hora.

Fico no aguardo da ajuda de vocês!

Atenciosamente,
Flávio Leite®.

 
Postado : 05/11/2015 1:27 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se ajuda

Sub AleVBA_18014()
    ActiveCell.AddComment ("Teste" & Now())
End Sub

Para mais leia:
http://www.contextures.com/xlcomments03.html

Att

 
Postado : 05/11/2015 2:26 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Para executar via duplo click tente

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, ActiveCell) Is Nothing Then
        ActiveCell.AddComment ("Teste" & Now())
    End If
End Sub

Esse código deve ser posto dentro do módulo de planilha!

Att

 
Postado : 05/11/2015 2:36 pm
 fafsleite
(@fafsleite)
Posts: 0
New Member
Topic starter
 

Prezado Alexandre,

Obrigado pela resposta, mas com esse código não consegui fazer nada.

Tive que adequar com a fórmula do amigo, abaixo.

Mesmo assim, agradeço imensamente.

Flávio Leite®.

Boa tarde!!

Veja se ajuda

Sub AleVBA_18014()
    ActiveCell.AddComment ("Teste" & Now())
End Sub

Para mais leia:
http://www.contextures.com/xlcomments03.html

Att

 
Postado : 05/11/2015 7:59 pm
 fafsleite
(@fafsleite)
Posts: 0
New Member
Topic starter
 

Prezado Alexandre,

Desse jeito ficou show de bola.
Apenas só mais uma ajuda.
Se eu clico na célula duas vezes, preenche corretamente, porém se voltar nessa mesma célula ela dá erro, ou seja, não conseguiria atualizar o comentário.

Desde já agradeço.

Flávio Leite®.

Boa tarde!!

Para executar via duplo click tente

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, ActiveCell) Is Nothing Then
        ActiveCell.AddComment ("Teste" & Now())
    End If
End Sub

Esse código deve ser posto dentro do módulo de planilha!

Att

 
Postado : 05/11/2015 8:01 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente assim :

Fonte : http://www.vb-helper.com/howto_vba_excel_comments.html 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim rng As Range
   Set rng = ActiveCell
   
   If rng.Comment Is Nothing Then rng.AddComment
        rng.Comment.Text "Teste " & Format(Now)
    
End Sub

[]s

 
Postado : 05/11/2015 9:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico