Macro Abrir comentário ao selecionar celula c/ setas teclado

lab.lcf · 24 de outubro de 2012

Olá pessoal

Precisava de um macro para o comentário de uma célula aparecer automaticamente quando ela for selecionada com as setas do teclado, ja que isso só acontece quando o cursor do mouse está em cima de uma célula com comentário.

Obrigado pela atenção

Leandro

jeffsilveira · 24 de outubro de 2012

Leandro, tudo bem?

Use a macro abaixo, faz o que você precisa:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Comment Is Nothing Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Exit Sub
End If

ActiveCell.Comment.Visible = True

End Sub

Sabe como inseri-la?

Com sua planilha aberta dê clique direito sobre a aba em questão e escolha 'exibir código'.

Uma nova janela em branco (do VBA) vai abrir. Cole esse código na janela e aperte Alt Q para voltar ao excel. Voilà!

Se seu excel for superior a 2007, lembre-se de salvar o arquivo no formato 'xlsm', senão as macros não serão salvas.

Abraços.

lab.lcf · 24 de outubro de 2012

Puts cara, acho que tem alguma coisa errada, colei o código em uma modulo novo, salvei o arquivo habilitado para macro e nada, será que o código está certo ? abraço

Patropi · 24 de outubro de 2012

Boa tarde lab

você é que esta fazendo errado.

Preste atenção no que o Jeff postou:

Sabe como inseri-la?
Com sua planilha aberta dê clique direito sobre a aba em questão e escolha 'exibir código'.

Uma nova janela em branco (do VBA) vai abrir. Cole esse código na janela e aperte Alt Q para voltar ao excel

Portanto, não é para colar num módulo novo e sim num módulo da planilha.

Um abraço.

jeffsilveira · 24 de outubro de 2012

Aêêê Patropi, valeu a ajuda!

Em tempo, se quiser que rode em todas as abas da planilha, ao invés do código da planilha, cole a macro abaixo no código de Esta Pasta de Trabalho (clique 2x sobre ele na lista à esquerda do VBA):

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Comment Is Nothing Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Exit Sub
End If
ActiveCell.Comment.Visible = True
End Sub

lab.lcf · 27 de outubro de 2012

Valeu jeffsilveira e Patropi, tava fazendo errado aqui mesmo. Só mais uma coisa, eu percebi que quando eu seleciono células com comentarios seguidos com as setas ele ta mantendo o comentario anterior ativado. Da pra desativar o comentário anterior também?

jeffsilveira · 29 de outubro de 2012

Verdade, não tinha pensado nisso.

Substitua o código por esse:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveCell.Comment Is Nothing Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Exit Sub
Else
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
ActiveCell.Comment.Visible = True
End If

End Sub

PARA COLAR O CÓDIGO NO LUGAR CORRETO:

Com a planilha aberta dê Alt F11 para abrir o VBA;

No menu à esquerda dê clique duplo sobre EstaPasta_de_trabalho;

Na janela em branco que surgir cole o código;

Dê Alt Q para voltar ao excel;

Salve o arquivo em xlsm, ou seja, com as macros habilitadas.