Exportar en otra dirección la hoja excel
Una consulta necesito exportar la hoja excel a otro directorio pero SIN la macro...
Pero quisiera el mismo formato de la hoja que tengo, tal cual
2 Respuestas
A la correcta respuesta de Dante solo puedo aportar el siguiente detalle:
En lugar de colocar un botón en tu hoja (y que no aparezca en la copia) podrías ejecutar tu macro de otro modo:
1- Desde menú Macros (ver imagen)
2- Con atajo de teclado. Desde el menú Macros, seleccionandola, botón Opciones te permite ingresar un atajo
3- Desde otra macro llamándola con la instrucción:
Call tu_macro
Estos temas los tengo explicados en la sección Macros de mi sitio.
Sdos.
Elsa
El código que te puse exporta la hoja "ingresar" a un nuevo libro sin macros. Eso es lo que dice tu pregunta y eso hace la macro, no estoy entendiendo qué necesitas.
Simplemente pon la macro en un botón y te va exportar la hoja un nuevo libro, y el nuevo libro no tendrá macros.
Tendrá los botones en pantalla, pero esos botones no tendrá ninguna macro.
Sub Macro6()
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = ThisWorkbook.Path & "\"
arch = Sheets("Ingresar").Name
Sheets("Ingresar").Copy
ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Hoja guardada"
End Sub
Va la macro
Private Sub CommandButton4_Click()
'exportar a hoja
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set l1 = ThisWorkbook
Set h1 = ActiveSheet
ruta = ThisWorkbook.Path & "\"
arch = ActiveSheet.Name
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Copy
Set l2 = ActiveWorkbook
Set h2 = l2.Sheets(1)
f1 = CDate(ComboBox1.Value)
If ComboBox2.Value = "" Then
f2 = f1
Else
f2 = CDate(ComboBox2.Value)
End If
'
For i = u To 3 Step -1
If h2.Cells(i, "E") >= f1 And h2.Cells(i, "E") <= f2 Then
Else
h2.Rows(i).Delete
End If
Next
On Error Resume Next
h2.DrawingObjects("Button 1").Delete
On Error GoTo 0
l2.SaveAs Filename:=ruta & arch & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l2.Close
MsgBox "Hoja guardada"
End Subsal u dos