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

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