Modificar macro copia hojas

Hola, necesito que la macro me guarde la hoja en una ubicación que pueda modificar

la macro es esta:

Application.ScreenUpdating=False

Application.DisplayAlerts=False

Set l1 = ThisWorkbook

nh = ActiveSheet.Name

folio = I1.ActiveSheet.Range("I1")

Set I2 = Workbook.Add

I2.Sheets(1).Name =nh

For Each h In I2.Sheets

If h.Name<>nh Then h.Delete

Next

I1.Sheets(nh).Cells.Copy I2.Sheets(nh).Range("A1")

I2.SaveAs I1.Patch & "\" & folio

I2.Close

I2.Sheets(nh).Range("I1") = i1.Sheets(nh).Range("I1") + 1

End Sub

1 respuesta

Respuesta
1

¿Y dónde lo quieres modificar? ¿En una línea de código de la macro?

Si es así, en donde dice ruta = escribe tu ruta en donde quieres que se guarde la hoja

Sub copiarhoja()
'Por.DAM
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = "C:\Documents and Settings\DAMOR\Mis documentos\docs"
Set l1 = ThisWorkbook
    nh = ActiveSheet.Name
    folio = l1.ActiveSheet.Range("I1")
Set l2 = Workbooks.Add
    l2.Sheets(1).Name = nh
    For Each h In l2.Sheets
        If h.Name <> nh Then h.Delete
    Next
l1.Sheets(nh).Cells.Copy l2.Sheets(nh).Range("A1")
l2.SaveAs ruta & "\" & folio
l2.Close
l1.Sheets(nh).Range("I1") = l1.Sheets(nh).Range("I1") + 1
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas