reemplazar en comentario

10/03/2006 - 21:12 por Moni | Informe spam

Necesito de su ayuda please, quiero remplazar una frase o palabra en un
comentario, pero esa frase se repite en 20 comentarios, por ejemplo tengo en
un comentario
fecha: 25-mayo-2000
modificado por: cambios en el sistema
participaron: el equipo de control
Lo que yo quiero realizar es modificar solo la fecha en ves de 25-mayo-2000
colocar 03-07-2005 y lo demás que quede igual, se puede con una macro lo que
pasa es que lo hago con una macro para remplazar pero solo me funciona cuando
esta en una celda no cuando esta dentro de un comentario.
Sub RemplazarPalabra()
Dim Palabra As String
Dim Hoja As Long
Palabra = Trim(InputBox("Introduzca la palabra a buscar: "))
For Hoja = 1 To Sheets.Count
Sheets(Hoja).Activate
Cells.Replace What:=Palabra, Replacement:="03-07-2005",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Hoja
End Sub
Gracias de antemano por su ayuda. : )

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

reemplazar en comentario

Leer las respuestas

#1 mandrake

11/03/2006 - 01:13 | Informe spam

oye quise hacer lo mismo que tu macro pero no me sale me da un error

Responder a este mensaje

#2 Héctor Miguel

11/03/2006 - 03:43 | Informe spam

hola, Moni !

... quiero remplazar una frase o palabra en un comentario, pero esa frase se repite en 20 comentarios, por ejemplo tengo
fecha: 25-mayo-2000
modificado por: cambios en el sistema
participaron: el equipo de control
... quiero... modificar solo la fecha en ves de 25-mayo-2000 colocar 03-07-2005 y lo demas que quede igual
... lo hago con una macro para remplazar pero solo me funciona cuando esta en una celda no cuando esta dentro de un comentario...

los metodos para buscar/reemplazar/... en celdas no funcionan para objetos shape [como los comentarios] :-(
prueba con algo +/- como lo siguiente:
Sub RemplazarPalabra()
Dim Hoja As Byte, Celda As Range, Anterior As String, Nuevo As String
Anterior = Trim(InputBox("Introduzca la palabra a buscar:"))
Nuevo = "03-07-2005"
For Hoja = 1 To Worksheets.Count
For Each Celda In Worksheets(Hoja).UsedRange
If Not Celda.Comment Is Nothing Then Celda.Comment.Text _
Application.Substitute(Celda.Comment.Text, Anterior, Nuevo)
Next
Next
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida