Tenho várias células onde foram inseridos comentários, gostaria de extrair o texto contido no comentário e transferi-los para uma célula.
Oi Leandro,
Uma forma de fazer isso é criando sua própria Fórmula.
1 - Digite ALT + F11.
2 - No menu Inserir, selecione Módulo.
3 - Dentro do Módulo1 cole o código abaixo:
Public Function Comentario(rng)
Texto = Range(rng).Comment.Text
Comentario = Texto
End Function
Feito isso é só ir em qualquer célula e digitar sua nova fórmula "=Comentario("A1")", ou A2, B5, AE32... Tanto faz.
Só tem 2 restrições.
1 - A referência de célula precisa ser digitada entre aspas como no exemplo =Comentario("A1").
2 - A fórmula só aceita uma única célula.
***
Não deixe de nos visitar: http://www.top-excel.com/
Falcon
[email protected]
Se quiser tirar alguma dúvida pode tentar lá no forum de excel:
http://www.socialbits.com.br/forums/31/microsoft-e...
editar comentário, selecionar o texto, copiar e colar na célula. É bem simples, pq eu fiz antes de responder.
A resposta do falcon está excelente.
além do formato entre aspas, vc pode chamar a função assim
=comentario( a1:a1 )
Copyright © 2024 QUIZLIB.COM - All rights reserved.
Answers & Comments
Verified answer
Oi Leandro,
Uma forma de fazer isso é criando sua própria Fórmula.
1 - Digite ALT + F11.
2 - No menu Inserir, selecione Módulo.
3 - Dentro do Módulo1 cole o código abaixo:
Public Function Comentario(rng)
Texto = Range(rng).Comment.Text
Comentario = Texto
End Function
Feito isso é só ir em qualquer célula e digitar sua nova fórmula "=Comentario("A1")", ou A2, B5, AE32... Tanto faz.
Só tem 2 restrições.
1 - A referência de célula precisa ser digitada entre aspas como no exemplo =Comentario("A1").
2 - A fórmula só aceita uma única célula.
***
Não deixe de nos visitar: http://www.top-excel.com/
Falcon
[email protected]
Se quiser tirar alguma dúvida pode tentar lá no forum de excel:
http://www.socialbits.com.br/forums/31/microsoft-e...
editar comentário, selecionar o texto, copiar e colar na célula. É bem simples, pq eu fiz antes de responder.
A resposta do falcon está excelente.
além do formato entre aspas, vc pode chamar a função assim
=comentario( a1:a1 )