Guardar Hoja de libro (Remitos) sin borrar el anterior

[gustavom]

hola amigos, tengo un pequeño problema, con ayuda he logrado crear esta macro, que imprime y guarda en pdf, el problema esta en que si me olvido de cambiar el numero de remito me lo guarda arriba del anterior perdiendo el remito viejo. "tendria que notificarme que el numero de remito ya fue usado".

espero que me puedan ayudar, gracias!!

Dejo el codigo y el excel.

Sub Print_save()

'

' Print_save Macro

'



'

    Range("D2:L56").Select

    Range("L2").Activate

    ActiveWindow.SmallScroll Down:=-21

    Range("O35").Select

    ActiveWindow.SmallScroll Down:=-15

    Range("C2:L56").Select

    Range("L2").Activate

    Selection.PrintOut Copies:=1

    Range("L3").Select

    nombre = Range("L3").Value

    Range("C2:L56").Select

    ChDir "C:\Copias Remitos\"

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Copias Remitos\" & nombre & ".pdf", _

        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

        :=False, OpenAfterPublish:=True

End Sub





[/CODE]

Print_save.rar

[tese1969]

Buenas, gustavom.....

Después de tu línea......

nombre = Range("L3").Value

[/CODE]

Incluye esto.....

[CODE]
With Application.FileSearch
.LookIn = "C:\Copias Remitos\"
.Filename = nombre & ".pdf"
If .Execute() > 0 Then
MsgBox "Se ha detectado en la ruta un archivo denominado igual que el valor de la casilla L3"
Exit Sub
End If
End With
[/CODE]

Lo que hace es, una vez recogido el nombre, comprobar si ya existe ese archivo y en caso de estar,

te avisa con un mensaje y te manda fuera de la macro para que puedas modificar el valor de referencia.

Prueba y me cuentas,

Un saludo,

Tese