Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos! Quisiera me ayudaran por favor con la ejecución de una macro . Me funciona perfecta pero necesito saber como hago para que solo me guarde la hoja que necesito, en si, la hoja 10 pero me guarda los nuevos libros con todas las hojas.
Sub control2558()
Application.ScreenUpdating = False
Dim I As Integer
I = 4
While Hoja10.Cells(I, 102) <> ""
Hoja10.Cells(6, 82) = Hoja10.Cells(I, 102)
Hoja10.Select
Dim NombreArchivo, RutaArchivo As String
NombreArchivo = "Hoja Control " & Hoja10.Cells(I, 102)
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".xlsm"
ActiveWorkbook.SaveAs Filename:=RutaArchivo
Hoja10.Select
' ActiveSheet.PrintOut Copies:=1, Collate:=False
I = I + 1
Wend
MsgBox ("Proceso generado con éxito")
Application.ScreenUpdating = True
End Sub
Así muestra el Visual Basic el modulo:
Gracias
Editado el por linacg96