Transportar dados de uma célula de uma planilha para outra planilha junto com seus comentários.

Question

transportar dados de uma célula de uma planilha para outra planilha com comentários, porem de forma automática

ex.

plan1 célula a1 com comentário

plan2 célula a1 com o respectivo comentário

Answer 1

Caro Rafael

Obrigado pelo empenho, mas faltou de minha parte explicar melhor o meu trabalho.

Na realidade, como a planilha final é um consolidado dos doze meses do ano, eu tenho que acessar os dados a serem colados, partindo deste consolidado. o que foi possível através da sugestão do amigo Felipe Costa Gualberto com uma macro bastante simples, como segue:

Sub Exemplo()

Sheets("Plan1").Range("A1").Copy Destination:=Sheets("Plan2").Range("A1")

End Sub

e que com uma pequena adaptação para captar desde janeiro até dezembro ficou perfeita para o meu objetivo.

Meus sinceros agradecimentos aos dois.

Abraços e até o próximo encontro, e embora meus conhecimentos de excel e VBA sejam deveras limitados ficaria imensamente grato de poder, quem sabe um dia, colaborar também para a solução de problemas.

Pedrowsky

******@hotmail.com

Answer 2

Estimado Pedrowsky:

Suponha que, na planilha 1 está os dados e comentários, e quer copiá-los para a planilha 2. Para fazer isso, siga estes passos:

Passo 1: Selecione na planilha 1, o intervalo de células para copiar.

Passo 2: Copie os dados e comentários, pressionando a combinação de teclas para copiar ou selecione a opção para copiar na fita, ficha, menu ou barra de ferramentas.

Passo 3: Selecione na planilha 2, o lugar onde você deseja colar os dados e comentários. Simplesmente indicar a célula no canto superior esquerdo do intervalo.

Passo 4: Cole os dados, pressionando a combinação de teclas para colar ou selecionando a opção de colar na fita, ficha, menu ou barra de ferramentas.

Passo 5: Agora cole os comentários, sem alterar o intervalo de células selecionado na planilha 2, selecionando a opção de colar na fita, ficha, menu ou barra de ferramentas, e marcando a caixa de Comentários. Não há nenhum atalho para Colar especial.

Atte.

Rafael

Answer 3

Sub Exemplo()

Sheets("Plan1").Range("A1").Copy Destination:=Sheets("Plan2").Range("A1")

End Sub

Answer 4

Estimado RodrigoePedro:

            Os dados e comentários são dois objetos diferentes, por isso é necessário fazer uma única cópia, mas dois colados, indicando um colar especial e selecionar "Comentários".

            Se estás fazer um programa ou macro, o procedimento é o mesmo, requerem duas linhas de instruções, um colar dados, e colar comentários.

Atte.

Rafael

Answer 5

vai ter q usar vba. acesse o link. vlw!

http://social.msdn.microsoft.com/Forums/pt-br/vbapt/threads