none
Inserir comentário em várias células RRS feed

  • Pergunta

  • Eu tenho o seguinte código:

        Range("C18").Select
         With Selection
           .AddComment
           .Comment.Visible = False
           .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
         End With
        Range("C19").Select
         With Selection
           .AddComment
           .Comment.Visible = False
           .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
         End With

    Ele insere comentários nas células C18 e C19.

    Só que eu tenho uma planilha com mais de 300 células que serão digitadas.

    Alguém pode me ajudar com o problema de inserir comentários em várias células?

    Agradeço bastante

    : )

    quinta-feira, 4 de novembro de 2010 13:06

Respostas

Todas as Respostas

  • Leandro,

    Mas como você sabe em quais linhas vão ter o comentário?

    São sempre as mesmas linhas? Se sim: qual o intervalo delas?

     

    Se não for sempre as mesmas, como você saberá?

     

    Alexandre

    quinta-feira, 4 de novembro de 2010 17:02
  • Alexandre,

     

    O intervalo é sempre o mesmo,  C18:L25.

    Valeu mesmo

    Leandro

    sexta-feira, 5 de novembro de 2010 12:03
  • Alexandre,

     

    O intervalo é sempre o mesmo,  C18:L25.

    Valeu mesmo

    Leandro

    sexta-feira, 5 de novembro de 2010 12:04
  • Alexandre,

     

    O intervalo é sempre o mesmo,  C18:L25.

    Valeu mesmo

    Leandro

    sexta-feira, 5 de novembro de 2010 12:04
  • Leandro,

    Tente o seguinte então:

      Dim celula
      For Each celula In Range("C18:L25")
       With celula
         .AddComment
         .Comment.Visible = False
         .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
       End With
      Next

    Alexandre

    sexta-feira, 5 de novembro de 2010 13:08
  • Leandro,

    Tente o seguinte então:

     

     Dim celula
    
     For Each celula In Range("C18:L25")
    
      With celula
    
       .AddComment
    
       .Comment.Visible = False
    
       .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
    
      End With
    
     Next

     

    Alexandre


    FUNCIONOU PERFEITAMENTE!

    MUITO OBRIGADO MESMO!

    Deus seja convosco!

    sexta-feira, 5 de novembro de 2010 13:53
  • Leandro,

    Tente o seguinte então:

     

     Dim celula
    
     For Each celula In Range("C18:L25")
    
      With celula
    
       .AddComment
    
       .Comment.Visible = False
    
       .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
    
      End With
    
     Next

     

    Alexandre


    FUNCIONOU PERFEITAMENTE!

    MUITO OBRIGADO MESMO!

    Deus seja convosco!

    sexta-feira, 5 de novembro de 2010 13:53
  • Leandro,

    Tente o seguinte então:

     

     Dim celula
    
     For Each celula In Range("C18:L25")
    
      With celula
    
       .AddComment
    
       .Comment.Visible = False
    
       .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
    
      End With
    
     Next

     

    Alexandre


    FUNCIONOU PERFEITAMENTE!

    MUITO OBRIGADO MESMO!

    Deus seja convosco!

    sexta-feira, 5 de novembro de 2010 13:53
  • Leandro,

    Tente o seguinte então:

     

     Dim celula
    
     For Each celula In Range("C18:L25")
    
      With celula
    
       .AddComment
    
       .Comment.Visible = False
    
       .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
    
      End With
    
     Next

     

    Alexandre


    FUNCIONOU PERFEITAMENTE!

    MUITO OBRIGADO MESMO!

    Deus seja convosco!

    sexta-feira, 5 de novembro de 2010 14:01
  • Leandro,

    Tente o seguinte então:

     

     Dim celula
    
     For Each celula In Range("C18:L25")
    
      With celula
    
       .AddComment
    
       .Comment.Visible = False
    
       .Comment.Text Text:="DRE-IP:" & Chr(10) & "Digite o número da Ordem de Serviço"
    
      End With
    
     Next

     

    Alexandre


    FUNCIONOU PERFEITAMENTE!

    MUITO OBRIGADO MESMO!

    Deus seja convosco!

    sexta-feira, 5 de novembro de 2010 14:01