Macro para copiar y pegar como valores
Publicado por Eduardo (2 intervenciones) el 29/08/2019 16:46:43
Estimada comunidad:
Tengo un libro en excel con muchas hojas con la cual trabajo todos los días, este archivo me sirve de plantilla a la cual agrego datos extraídos de otras fuentes (BD,web,etc) y al terminar solo me quedo con 3 a 4 hojas. Y para esto suelo ejecutar esta Macro para que las hojas que contienen formulas se queden como valores :
Entonces ahora lo que quiero hacer es mantener algunas hojas con formulas, mi pregunta seria...que debo modificar en la macro para poder hacer eso ??.
Quedo atento a sus comentarios.
Saludos.
Tengo un libro en excel con muchas hojas con la cual trabajo todos los días, este archivo me sirve de plantilla a la cual agrego datos extraídos de otras fuentes (BD,web,etc) y al terminar solo me quedo con 3 a 4 hojas. Y para esto suelo ejecutar esta Macro para que las hojas que contienen formulas se queden como valores :
1
2
3
4
5
6
7
8
9
10
Sub Saveasvalue()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheetswsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub
Entonces ahora lo que quiero hacer es mantener algunas hojas con formulas, mi pregunta seria...que debo modificar en la macro para poder hacer eso ??.
Quedo atento a sus comentarios.
Saludos.
Valora esta pregunta
0
