Al presionar cancelar se detenga la macro

Buenas tardes.

Estoy varado en este dilema, tengo una rutina para copiar 2 hojas de un libro de 30 y se abra el dialogo de mover o copiar hojas a un nuevo libro y al aceptar se abre el dialogo de guardar como , después se exporta el archivo a PDF y por ultimo se cierra el libro nuevo creado,.......mi problema es que si le doy cancelar (por que me equivoque en algo) al dialogo de mover o copiar hojas, la macro sigue corriendo y me crea un caos, me borra vínculos etc..... Como puedo detener la rutina si le doy cancelar a ese dialogo??, es posible???

Esta es mi Rutina:

Sub ImprimeCot_10()
Application.ScreenUpdating = False
Sheets(Array("Forma10", "NP10")).Select
Sheets("Forma10").Activate
Application.Dialogs(xlDialogWorkbookCopy).Show
Sheets("Forma10").Select
Cells.Select
Range("A20").Activate
Selection.Copy
Cells.Select
Range("A20").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("NP10").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Forma10").Select
Range("A1").Select
Application.Dialogs(xlDialogSaveAs).Show
Salvar_PDF
ActiveWorkbook.Close
ActiveWorkbook.Activate
Sheets("Cotizacion10").Select
Range("C2").Select
Application.ScreenUpdating = True
End Sub

Ojala sea posible me ayuden, pues no puedo dar con la solución....

Gracias de antemano

1 Respuesta

Respuesta
1

Así quedaría tu macro

Sub ImprimeCot_10()
Application.ScreenUpdating = False
Sheets(Array("Forma10", "NP10")).Select
Sheets("Forma10").Activate
With Application.Dialogs(xlDialogWorkbookCopy)
    If .Show Then
        Sheets("Forma10").Select
        Cells.Select
        Range("A20").Activate
        Selection.Copy
        Cells.Select
        Range("A20").Activate
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("NP10").Select
        Cells.Select
        Application.CutCopyMode = False
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A1").Select
        Sheets("Forma10").Select
        Range("A1").Select
        With Application.Dialogs(xlDialogSaveAs)
            If .Show Then
                salvar_pdf
            End If
        End With
        ActiveWorkbook.Close
        ActiveWorkbook.Activate
        Sheets("Cotizacion10").Select
        Range("C2").Select
        Application.ScreenUpdating = True
    End If
End With
End Sub

No olvides finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Macro para copiar y pegar celdas de otro archivo

Fíjate que tengo una duda, estoy creando una macro para poder copiar y pegar ciertos registros de un archivo, el punto es, que tengo que cargar diferentes archivos diario y estoy teniendo complicaciones para definir eso, ya que la macro me graba el...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta