Excel Criar comentário em um intervalo de células com fórmula dentro?

[Raul Mariano]

Oi pessoal,

 

Gostaria de criar um comentário com o resultado de uma formula (procv) em uma tabela que todos os valores são atualizados com formulas (sem nenhuma alteração manual).

 

Eu consegui fazer aparecer o comentário usando uma dica de um tópico que já estava marcado como resolvido, então por isso não perguntei no próprio tópico. Porém essa solução funciona se eu clicar e alterar alguma célula da planilha na mão, mas como está tudo automático não atualiza o comentário.

 

O código que estou utilizando é este:

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
  If Intersect(Target, Columns("H:H")) Is Nothing Then Exit Sub
    Dim k As Long, w As Variant
    k = Target.Row
      w = Cells(k, 8 )
       With Cells(k, 7)
        .ClearComments
        .AddComment w
        .Comment.Shape.TextFrame.AutoSize = True
       End With
End Sub

 

Desde já agradeço

 

Att

 

Raul Mariano 

[Visitante]

Veja se ajuda.

Coloque uma cópia do código abaixo em substituição ao código que você postou.

 

Considerei que na célula H3 há uma fórmula, então a cada vez que a planilha for recalculada o código abaixo irá atualizar o comentário da célula H7 com o valor da fórmula de H3.

 

Se você não conseguir, então disponibilize uma amostra do seu arquivo Excel e indique com exatidão na própria planilha em quais células você deseja atualizar os comentários e com quais valores.

 

Private Sub Worksheet_Calculate()
 Dim k As String
  k = Range("H3").Value
  With Range("H7")
   .ClearComments
   .AddComment k
  End With
End Sub

 

[Raul Mariano]

Osvaldo, bom dia 

 

Muito obrigado, deu certo, adicionei só um loop para que ele passasse por toda a coluna e adicionar os comentários onde necessário. 

 

Raul Mariano