Macro para reemplazar un dato en todas las celdas
Cómo hago una macro para reemplazar un dato que tengo en la celda A1 por un nuevo dato que tengo en la celda A2, por ejemplo tengo "Los ingresos disminuyeron", quiero cambiar la palabra ingresos por recursos, pero que la palabra de la celda A1 no cambie, solamente las que están en toda la hoja.
Gracias expertos
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, la celda A1 conservará su valor, solamente se reemplazarán las demás celdas.
Sub Reemplazar()
'Por.Dante Amor
anterior = Range("A1")
nuevo = Range("A2")
Cells.Replace What:=anterior, Replacement:=nuevo, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1") = anterior
End SubSaludos.Dante Amor
