UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

La administración ha hecho pruebas para subir archivos y no presenta problemas. Por favor verifiquen la forma en que lo están haciendo.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

igna


Hola buenas noches
estoy tratando de copiar y guardar las facturas que estan en el libro registro en un nuevo libro que tenga como nombre el numero de la factura almacenado en la celda k11 , pero al ejecutar la macro se cae en activesheet.paste y pide guardar libro y no se que hacer
esta es la macro

Sub Macro1()

    Range("c2:l59").Select
    Selection.Copy
    Workbooks.Add
    Worksheets("Hoja1").Range("C2").Select
    ActiveSheet.Paste Destination:=Worksheets("hoja1").Range("c2")  *****aqui me pide guardar libro, y no debe ser***
    Application.DisplayAlerts = False
    Range("C2:l59").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K11").Select
    Application.CutCopyMode = False
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = "Seleccione día"
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
    End With
    
    NombreArchivo = "d:\control\FACTURAS\"
    NArchivo = Format(Range("K11").Value, "")
    ActiveWorkbook.SaveAs NombreArchivo & NArchivo, , , , , , , , , , , False
    ActiveWindow.Close
End Sub

ojala me puedan ayudar

muchas gracias

Igtelo

avatar
Hola Igna.

Tu macro trabaja bien, si te da fallos ya no pegues código, sube archivo con la macro en el.

¿Para que la validación?


Saludos
Ignacio Téllez

igna


Hola Ignacio
muchas gracias por tu pronta respuesta, la verdad es que si te funciona bien la unica explicacion que me queda es que la utilice en versiones de excel distintas

te adjunto el archivo
la validacion es para que no existan errores nada mas,

muchas gracias

slds

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.