Como cambiar el mismo texto en multiples comentarios

19/07/2004 - 23:27 por Luis Alexander Lòpez | Informe spam
Saludos:

Bueno compañeros, yo no pido mucho y casi siempre aprendo de lo que
preguntan los demas bueno llego el momento de preguntar ya que no lo puedo
conocer todo sino fuese millonario jejeje ok al grano:

Tengo un libro con 3 hojas
cada hoja tiene x cantidad de comentarios (variables para cada hoja es decir
en una pueden ser 2 como en otra 8 y en la tercera 5).
Ahora bien tengo el texto: "Luis Alexander López" (es el usuario y en
negrita seguida de dos Puntos)
Quiero sustituirlo por "Unidad de Avionica:" <por ejemplo

Ahora bien lo que deseo es.

Sustituir "Luis Alexander López:" por "Unidad de Avionica": en toda la hoja
al menos se como cambiar de hoja pero no doy la manera de cambiar esto.
lo haria manual pero son muchos libros de diferentes formatos pero con estos
comentarios.

Muchisimo sabria agradecer su ayuda.


Gracias de antemano.

Luis Alexander López
Caracas-Venezuela

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
20/07/2004 - 09:20 | Informe spam
Prueba con el siguiente código:


Sub ModificarTodosLosComentariosDelLibro()
Dim wksH As Worksheet
Dim cmtC As Comment

For Each wksH In Worksheets
For Each cmtC In wksH.Comments
cmtC.Text Text:=Replace(cmtC.Text, "Luis Alexander López", "Unidad de Aviónica")
Next cmtC
Next wksH

Set cmtC = Nothing
Set wksH = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Alexander Lòpez" escribió en el mensaje news:Oqvt$
Saludos:

Bueno compañeros, yo no pido mucho y casi siempre aprendo de lo que
preguntan los demas bueno llego el momento de preguntar ya que no lo puedo
conocer todo sino fuese millonario jejeje ok al grano:

Tengo un libro con 3 hojas
cada hoja tiene x cantidad de comentarios (variables para cada hoja es decir
en una pueden ser 2 como en otra 8 y en la tercera 5).
Ahora bien tengo el texto: "Luis Alexander López" (es el usuario y en
negrita seguida de dos Puntos)
Quiero sustituirlo por "Unidad de Avionica:" <por ejemplo

Ahora bien lo que deseo es.

Sustituir "Luis Alexander López:" por "Unidad de Avionica": en toda la hoja
al menos se como cambiar de hoja pero no doy la manera de cambiar esto.
lo haria manual pero son muchos libros de diferentes formatos pero con estos
comentarios.

Muchisimo sabria agradecer su ayuda.


Gracias de antemano.

Luis Alexander López
Caracas-Venezuela


Respuesta Responder a este mensaje
#2 Luis Alexander Lòpez
20/07/2004 - 20:46 | Informe spam
Saludos

Bueno Fernando distes en el clavo, exactamente me funciono bien, muchas
gracias.

Atentamente.
Luis A. López S.


"Fernando Arroyo" escribió en el mensaje
news:
Prueba con el siguiente código:


Sub ModificarTodosLosComentariosDelLibro()
Dim wksH As Worksheet
Dim cmtC As Comment

For Each wksH In Worksheets
For Each cmtC In wksH.Comments
cmtC.Text Text:=Replace(cmtC.Text, "Luis Alexander López",
"Unidad de Aviónica")
Next cmtC
Next wksH

Set cmtC = Nothing
Set wksH = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Alexander Lòpez" escribió en el mensaje
news:Oqvt$
Saludos:

Bueno compañeros, yo no pido mucho y casi siempre aprendo de lo que
preguntan los demas bueno llego el momento de preguntar ya que no lo puedo
conocer todo sino fuese millonario jejeje ok al grano:

Tengo un libro con 3 hojas
cada hoja tiene x cantidad de comentarios (variables para cada hoja es


decir
en una pueden ser 2 como en otra 8 y en la tercera 5).
Ahora bien tengo el texto: "Luis Alexander López" (es el usuario y en
negrita seguida de dos Puntos)
Quiero sustituirlo por "Unidad de Avionica:" <por ejemplo

Ahora bien lo que deseo es.

Sustituir "Luis Alexander López:" por "Unidad de Avionica": en toda la


hoja
al menos se como cambiar de hoja pero no doy la manera de cambiar esto.
lo haria manual pero son muchos libros de diferentes formatos pero con


estos
comentarios.

Muchisimo sabria agradecer su ayuda.


Gracias de antemano.

Luis Alexander López
Caracas-Venezuela


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida