Excel: Move o conteúdo da célula para comentar em uma determinada célula

0

Eu preciso converter o conteúdo de texto em uma célula em um comentário em outra célula (a da esquerda). Eu vi este post , e o código funciona bem, mas coloca o comentário em a mesma célula que o conteúdo de texto é.

Exemplo: Preciso que o texto na coluna B seja um comentário na coluna A.

    
por Nico Wegher 10.06.2015 / 17:57

1 resposta

1

Selecione as células que contêm os dados (no seu caso, as células na coluna B)

e execute esta macro curta:

Sub CommentMaker()
   Dim r As Range, v As String
   For Each r In Selection
      If r.Column <> 1 Then
         If r.Text <> "" Then
         v = r.Text
         With r.Offset(0, -1)
            .ClearComments
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=v
         End With
         End If
      End If
   Next r
End Sub

Observação: isso não removerá os dados originais!

    
por 10.06.2015 / 18:10