Anónimo
Código para una macro
Para un trabajo, debo desarrollar una macro que busque y cambie un dato, el cual está repetido varias veces en una tabla. La idea es que una vez lo encuentre lo cambie por uno que yo le indique. Gracias por su ayuda.
1 Respuesta
Respuesta de Luis Mondelo
1
Primero selecciona el rango con el que vas a trabajar y después ejecuta esta macro:
Sub busca_y_reemplaza()
quebusco = InputBox("¿que buscamos?")
por = InputBox("¿por qué valor lo cambiamos?")
For Each celda In Selection
If celda.Value = quebusco Then celda.Value = por
Next
End Sub
No olvides finalizar y puntuar la consulta.
Sub busca_y_reemplaza()
quebusco = InputBox("¿que buscamos?")
por = InputBox("¿por qué valor lo cambiamos?")
For Each celda In Selection
If celda.Value = quebusco Then celda.Value = por
Next
End Sub
No olvides finalizar y puntuar la consulta.