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. : )

Preguntas similare

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
Respuesta 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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida