ayuda. macro excel. que me compare y reemplace

[byzard]

Iniciado por chema

byzard
buenas soy chema te mando una macro que qreo te puede servir solo tienes que copiarla y crear un boton para accionarla ,


Sub busqueda()
On Error GoTo y
Dim Mensaje, Título, ValorPred, MiBUSCA, Mireemp
Mensaje = "PALABRA A BUSCAR"
Título = "BUSQUEDA"
MiBUSCA = InputBox(Mensaje, Título)
Mensaje = "PALABRA PARA REEMPLAZAR"
Título = "REEMPLAZAR"
Mireemp = InputBox(Mensaje, Título)
Do
Cells.Find(What:=MiBUSCA, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Replace What:=MiBUSCA, Replacement:=Mireemp, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Loop
y:
End Sub



espero que sea lo que buscas un saludo

es posible colocar un rango? por digamos que quiero reemplazar las celdas vacias por 0, pero si uno solamente onda una cosa de 4x4, este codigo recorre todo las celdas. se podria hacer que recorra de x a y, y de eso me haga el reemplazo.