Cambios en múltiples hojas de cálculo.
Tengo en una carpeta de nombre CUADRANTES unas 100 hojas que quiero modificar de la siguiente manera:
- En el rango B9:M39sustituir todas las veces que aparezca PV y poner solo V
- En la celda C53 sustituir C52/9 por C52/10
1 respuesta
Prueba con esta macro, va a recorrer todas las hojas y hará los reemplazos que solicitas.
Sub reemplazar()
For Each hoja In Worksheets
With Sheets(hoja.Name)
.Range("b9:m39").Replace what:="PV", replacement:="V"
.Range("c53").Replace what:=9, replacement:=10
End With
Next hoja
End Sub
Lo primero,agradecerte el interés, muchas gracias. Pero no me funciona. Estoy pasando la macro en Excel 2019 con las hojas escritas en Excel 2003, pero hasta el lunes no puedo comprobar si ese es el problema, aunque otras macros en las mismas condiciones si que me funcionan. Esta se queda quieta cuando la ejecuto. Un saludo.
Esta macro interactúa de manera invisible con las demás hojas es decir hace el recorrido portodas las hojas y realiza los cambios sin salirse de la la primera hoja, esto la hace más eficiente, si lo quieres es ver el movimiento de las hojas entonces solo agrega este cambio (. Select)
Sub reemplazar()
For Each hoja In Worksheets
With Sheets(hoja.Name)
.select
.Range("b9:m39").Replace what:="PV", replacement:="V"
.Range("c53").Replace what:=9, replacement:=10
End With
Next hoja
End Sub
