Buenas Tardes, mi consulta es la siguiente ,tengo una secuencia en macros para que realize una copia de una hoja en otro libro y la guarde en una determinada ruta, este me funciona perfectamente con el boton de Formulario, pero al realizar este mismo macros en un boton Activex me lanza un error de compilacion.
Por favor su ayuda , no puedo subir el archivo porque es demasiado pesado , este es el macros...
Buenas Tardes, mi consulta es la siguiente ,tengo una secuencia en macros para que realize una copia de una hoja en otro libro y la guarde en una determinada ruta, este me funciona perfectamente con el boton de Formulario, pero al realizar este mismo macros en un boton Activex me lanza un error de compilacion.
Por favor su ayuda , no puedo subir el archivo porque es demasiado pesado , este es el macros...
Sub Macro1()
Application.ScreenUpdating = False
Range("D8").Select
Selection.Copy
Sheets("Liquidacion").Select
Range("F11").Select
ActiveSheet.Paste
Sheets("Detalle").Select
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liquidacion").Select
Range("F12").Select
ActiveSheet.Paste
Sheets("Detalle").Select
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liquidacion").Select
Range("H19").Select
ActiveSheet.Paste
Sheets("Detalle").Select
Range("G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liquidacion").Select
Range("H20").Select
ActiveSheet.Paste
Sheets("Detalle").Select
Range("H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liquidacion").Select
Range("F15").Select
ActiveSheet.Paste
Range("I11:I15").Select
Application.CutCopyMode = False
Selection.Copy
Range("F11:F15").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("H22").Select
Selection.Copy
Range("H19:H20").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("H22").Select
Sheets("Detalle").Select
Sheets("Liquidacion").Select
Columns("A:L").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Columns("A:L").Select
ActiveSheet.Paste
Range("F29").Select
NombreArchivo = "C:\Users\Roberto\Nueva\" <<----- Cuando me sale el error esta parte me marca
NArchivo = Range("F11")
ActiveWorkbook.SaveAS NombreArchivo & NArchivo, , , , , , , , , , , False
ActiveWindow.Close
Sheets("Detalle").Select
Range("B7").Select
End Sub