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

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

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


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.