Macro copiar en nueva hoja y abrir "Guardar como"
Es un gusto saludarlos nuevamente.
Necesito un código que seleccione las hojas "OK_1" y "OK_2" (de un mismo libro) y los copie en un nuevo libro y se abra "Guardar como".
Tengo este código pero sólo guarda 1 hoja.
Por favor su ayuda!
Muchas gracias!
' Aca se va a abrir la venta Guardar Como
Application.DisplayAlerts = False
Sheets("OK_1").Copy
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
If .Show Then
march = .SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=march, FileFormat:=xlExcel8
Else
ActiveWorkbook.Close False
End If
End With
End Sub
1 respuesta
Gracias Marcrodos, la solución era más fácil de lo que pensaba, acá dejo la macro que selecciona varias hojas y abre ventana guardar como:
Application.DisplayAlerts = False
Sheets(Array("OK_1", "OK_2")).Copy
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
If .Show Then
march = .SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=march, FileFormat:=xlExcel8
Else
ActiveWorkbook.Close False
End If
End With
End Sub
