Ayuda con macro

[jgrivera]

hice una macro para modificar el contenido del texto que esta en un comentaro, el valor que quiero poner es sistituir cualquier numero por 0... mediante macro lo hice asi... pero quisiera aplicar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jgrivera]

podrian ayudarme con esta macro, lo que necesito es poner en los comentarios que se encuentren en el rango C34:AC65, el Texto "RT=0", sustituirlo por el que este. la macro que grave la hice segun...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[oruiz]

Espero sea lo que buscas,

Cordial saludo,

 

[jgrivera]

Gracias, Oruiz, revise el codigo de la macro al correrlo me da un error, trate de cambiar este codigo de la macro
Range("I13").AddComment
Range("I13").Comment.Visible = False...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Sub comentariosOcultar() 
Dim rng As Range 
Dim i As Long 
For i = 1 To Me.Range("C28:AC59").Cells.SpecialCells(xlCellTypeComments).Areas.Count...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jgrivera]

Gracias Gali por su ayuda, lo ejecute y me genera un error en la Me.range.. como lo puedo solucionar?
Saludos

 

[jairo gamarra fontalvo]

Prueba quitando los Me. que van delante del Range y ejecuta nuevamente la macro de Gali

 

[jgrivera]

Ya hice la prueba pero no me funciona, me ilimina y se situa en Me el error...

 

[jgrivera]

Anexo envio un archivo con el codigo de Gali, el codigo deberia de hacer el recorrido del rango indicado e insertar el contenido RT= 0 al ejecutarlo se ilumina en Me.
Me puede ayudar con esto...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Proba este
Sub comentariosOcultar()
Dim cmnt As Comment

On Error Resume Next
For Each cmnt In Sheets("Sheet1").Comments
If Not Intersect(Sheets("Sheet1").Range("C5:AC36"), cmnt.Parent) Is Nothing...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jgrivera]

buen dia Maestro Gali, me funciono perfectamente, muchas gracias. Saludos