Inserção de Comentário em uma Célula

Boa tarde!

Tenho um planilha onde há vários comentários em uma determinada coluna. Necessito transferir os comentários para uma outra célula que se encontra dentro de outra planilha no mesmo arquivo de forma automática. Tentei de várias formas mas sem êxito. Meu Excel é o 2010 Plus. Tentei vários códigos, mas ele não consegui fazer a leitura.

Exemplo:

Coluna P4:P200 da planilha mês possui comentários, mas não são todas as planilhas. Gostaria que esses comentários fossem para a planilha consolidado na coluna H2:H198.

Obrigada,

Juliana

Boa tarde!!

Tente..

Código:

Sub AleVBA_1033()
    ActiveSheet.Range("P4:P200").Copy
    Worksheets("Plan2").Range("P4").PasteSpecial xlPasteComments
End Sub

Att

alexandrevba escreveu:

Boa tarde!!

Tente..

Código:

Sub AleVBA_1033()
    ActiveSheet.Range("P4:P200").Copy
    Worksheets("Plan2").Range("P4").PasteSpecial xlPasteComments
End Sub

Att

Alexandre,

Eu preciso que o comentário fique dentro de uma célula e não simplesmente copiar a célula com o comentário.
Obrigada, mas infelizmente não é o que preciso.

Juliana

Boa tarde!

Citação :

Coluna P4:P200 da planilha mês possui comentários, mas não são todas as planilhas. Gostaria que esses comentários fossem para a planilha consolidado na coluna H2:H198.

No teste que eu fiz, a macro copia somente o comentário e inseri dentro de cada célula.


Att