Abra a planilha que postei como exemplo;
Digite alt + F11;
Click sobre o Modulo1 e copie todos códigos que estão lá;
Abra a sua planilha, digite alt + F11;
Click em inserir, click em Módulo e cole os códigos;
Nestas linhas:
resposta = MsgBox("Deseja inserir um comentario na célula ativa?", vbYesNo, "Doni")
.AddComment Text:="Doni" & ":" & vbLf & vlr_Comentario
("Digite o texto aqui :", "Inserir / Editar célula comentário ", Default:="Doni", Type:=2)
.AddComment Text:="Doni" & ":" & vbLf & vlr_Comentario
Onde está escrito "Doni" altere para seu nome, a menos que vc queira que meu nome apareça toda vez que vc criar um cometário. rsrsrrsrsrsrsrs;
Crie dois botões de comando e atribua as Macros a eles.
Qualquer coisa da um grito ai!
Boa Sorte!
Doni
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/03/2013 9:01 am