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 de Dante Amor
1
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.
