Visual Basic Exibir comentário com valor da célula no Excel

[Mauricio Vidor]

Bom dia, estou tentando usar o código abaixo conforme indicação do membro osvaldomp e não estou tendo sucesso com o retorno da informação, gostaria de verificar se o conteúdo da célula possui algum formato em especial.

Sub IsereComent()

   Dim oCel As Range

   For Each oCel In

Selection

   With oCel

   .ClearComments

   .AddComment

   .Comment.Text

Text:=.Text

   End With

   Next oCel

End Sub

[Basole]

Nao entendi muito bem que tipo de formato.

De qualquer forma veja se é isso...

 

 

Sub IsereComentFormat()

   Dim oCel As Range

   For Each oCel In Selection

   With oCel

   .ClearComments

   .AddComment

   .Comment.Text Text:=oCel.DisplayFormat.NumberFormat

   End With

   Next oCel

End Sub

 

[Mauricio Vidor]

3 horas atrás, Basole disse:

Nao entendi muito bem que tipo de formato.

De qualquer forma veja se é isso...

 

 

Sub IsereComentFormat()

   Dim oCel As Range

   For Each oCel In Selection

   With oCel

   .ClearComments

   .AddComment

   .Comment.Text Text:=oCel.DisplayFormat.NumberFormat

   End With

   Next oCel

End Sub

 

Pelo que havia entendido, seria gerado um comentário com o valor da célula que este comentário esta vinculado porém não é este o resultado da compilação da programação.

[Basole]

5 horas atrás, Mauricio Vidor disse:

gostaria de verificar se o conteúdo da célula possui algum formato em especial.

 

Foi isso que entendi, que você citou

 

Se não for isso se expresse melhor, por favor

 

[Mauricio Vidor]

6 minutos atrás, Basole disse:

 

Foi isso que entendi, que você citou

 

Se não for isso se expresse melhor, por favor

 

Estou enviando imagem para demonstrar o retorno quando compilado o comando.

Gostaria que no comentário aparecesse o valor digitado na célula .

[Basole]

Substitui está linha 

 

.Comment.Text Text:=oCel.DisplayFormat.NumberFormat

Por está:

.Comment.Text Text:=oCel.value

 

 

[Mauricio Vidor]

27 minutos atrás, Basole disse:

Substitui está linha 

 

.Comment.Text Text:=oCel.DisplayFormat.NumberFormat

Por está:

.Comment.Text Text:=oCel.value

 

 

aparece erro 400

 

[Basole]

Segue a correção

Sub IsereComent()

   Dim oCel As Range

   For Each oCel In Selection

   With oCel

   .ClearComments

   .AddComment

   .Comment.Text Text:=.Text

   End With

   Next oCel

End Sub