¿Cómo puedo unir estas dos macros?
Tengo la macro 1 que guarda un archivo con otro nombre en la misma ubicación:
Sub GuardaComo
Dim strnombre$
strnombre$ = InputBox("Ingrese el nombre del archivo")
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & strnombre$
End Sub
Y tengo la macro 2 que me guarda todos los datos de todas las hojas como valores:
Sub ConvertirEnValores()
'Updateby Extendoffice
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub
¿Cómo uno en una sola macro estas dos macros anteriores?
1 Respuesta
Prueba así:
Sub Prueba()
Call ConvertirEnValores
Call GuardaComo
End Sub
Sub ConvertirEnValores()
'Updateby Extendoffice
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub
Sub GuardaComo()
Dim strnombre$
strnombre$ = InputBox("Ingrese el nombre del archivo")
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & strnombre$
End Sub
Al copiar y pegar y correr me las detecta como macros separadas, alguna otra idea?
Tienes que borrar todo tu código y poner el nuevo.
O a qué te refieres con:
Me las detecta como macros separadas
Otra opción:
Sub Convertir_Valores_Guardar()
'Updateby Extendoffice
Dim wsh As Worksheet
Dim strnombre$
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
'
strnombre$ = InputBox("Ingrese el nombre del archivo")
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & strnombre$
End Sub
