Crear reportes y guardarlos en otro archivo diferente al que contiene los datos

Espero te encuentres bien.

Que tal si sacas del archivo la Hoja.

Sub Macro3()
Sheets("ResultadoS").Select
Sheets("ResultadoS").Copy
End Sub

O bien puedes copiar estas dos lineas al final de tu macro.

hola Lucas gracias por responder, he agregado el código que me sugeriste y me crea un archivo con la hoja de "resultados" pero esa hoja es mi fuente de datos de ahi se crean reportes por cada registro que hay en la hoja resultados, y estos reportes se guardan en hojas nuevas ,tantas hojas como registros, mi necesidad es que estas hojas que se generan con la macros, se guarden en otro archivo, no en el archivo que contienen la hojas "resultados" ni la hoja "plantilla" .

Espero tu gentil respuesta Lucas.

Por lo que entiendo deberías sacar la hoja Plantillas entonces.

Sub Macro3()
Sheets("Plantillas").Select
Sheets("Plantillas"").Copy
End Sub

Atentamente.

Lucas.

<div id="wrc-float-icon" style="z-index: 2147483646; left: 15px; top: 15px; width: 42px; height: 42px; background-image: url('safari-extension://com.avast.wrc-6H4HRTU5E3/ad55d5c2/images/float/green-1.png'); position: fixed; display: none;"> </div>

si también lo he hecho, pero al final me crea un archivo solo con la hoja plantilla, me das tu correo para enviarte la macros y puedas ver como se ejecuta?.

mi correo: [email protected]

Te paso 5 macros para que pegues en tu libro. Saque aportes de otros expertos para poder lograrlo.

Sub PrimerPaso()
ActiveWorkbook.Sheets(1).Activate
ActiveWorkbook.Sheets.Add.Name = "Listado"
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> ActiveSheet.Name Then
Cells(Application.WorksheetFunction.CountA(ActiveSheet.Range("A:A")) + 1, 1) = Sheet.Name
End If
Next Sheet
End Sub
Sub SegundoPaso()
Sheets("Listado").Select
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Sheets("Listado").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B183"), Type:=xlFillDefault
Range("B1:B183").Select
End Sub
Sub CuartoPaso()
LibroBase = ActiveWorkbook.Name
Workbooks.Add
LibroReplicas = ActiveWorkbook.Name
HojasInicio = ActiveWorkbook.Sheets.Count
For i = 1 To Application.WorksheetFunction.CountA(Workbooks(LibroBase).Sheets("Listado").Range("A:A"))
For j = 1 To Workbooks(LibroBase).Sheets("Listado").Cells(i, 2)
Workbooks(LibroBase).Sheets("" & Workbooks(LibroBase).Sheets("Listado").Cells(i, 1) & "").Move After:=Workbooks(LibroReplicas).Sheets(Workbooks(LibroReplicas).Sheets.Count)
Next
Next
Application.DisplayAlerts = False
For i = 1 To HojasInicio
Workbooks(LibroReplicas).Sheets(i).Delete
Next
End Sub
Sub QuintoPaso()
Application.DisplayAlerts = False
Windows("Macro_crear_reportes.xlsm").Activate
Sheets("Listado").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Atentamente.

Lucas.

<div id="wrc-float-icon" style="z-index: 2147483646; left: 15px; top: 15px; width: 42px; height: 42px; background-image: url('safari-extension://com.avast.wrc-6H4HRTU5E3/8e8e724c/images/float/green-1.png'); position: fixed; display: none;"> </div>