Excel planilha vba comentario insere conteudo do comentario na celula

Qua, 26 de Janeiro de 2011 06:05 Expedito Marcondes
Imprimir

 O Site das Macros excel vba
 Essa macro do Aplicativo Microsoft Excel VBA (Visual Basic Application) , insere o contéudo do comentário na célula, onde esta o comentário.

Option Explicit
 
 
Sub Salvar_comentario_na_celula()
    Dim vCelula As Excel.Range
    Dim vComentario As String
    Dim vContador As Integer
 
    With Sheets("Plan1")
 
        On Error Resume Next
 
        For Each vCelula In .UsedRange.Cells
            vComentario = ""
            vComentario = vCelula.Comment.Text
            If vComentario <> "" Then
                vContador = InStr(vComentario, ":")
                If vContador > 0 Then
                   vComentario = Right(vComentario, Len(vComentario) - vContador - 1)
                End If
                vCelula = vComentario
            End If
        Next
       
        On Error GoTo 0
    End With
   
End Sub

Sub limpar_teste()
[H6,G17].Value = ""
End Sub




Aprenda tudo sobre o  Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel



  Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba comentario insere texto comentario na celula_I (19.72 kB)

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:18