Cómo quitar el aviso gran cantidad de información en portapapeles en VBA

En las macros en las que se está copiando cierta cantidad importante de información, si en un momento dado queremos cerrar el archivo origen de esos datos, lo más probable es que aparezca el aviso siguiente:

Información en el portapapeles


Se ha puesto gran cantidad de información en el Portapapeles. ¿Desea que esta información quede disponible para pegarla en otro momento?


Información_Portapapeles

No habría ningún inconveniente en que nos alertara con este aviso si no estuvieramos ejecutando una macro, pero el problema es que este aviso pausa la macro hasta que no se pulse alguna de las 3 teclas disponibles.

No es necesario hacer una macro para quitar el aviso de gran cantidad de información en el portapapeles.


Por suerte, la solución está en el propio código de Visual Basic.

Solución para evitar el aviso

Para evitar el aviso de gran cantidad de información en portapapeles en VBA, se deben añadir una de las 2 líneas de más abajo en el editor de Visual Basic. Lo más conveniente sería añadir este código después de haber pegado esa cantidad de información.

Application.CutCopyMode = False

o

Workbooks("Libro 1.xlsx").Application.CutCopyMode = False

A partir de este momento, la macro habrá desactivado el aviso de se ha puesto gran cantidad de información en el portapapeles y evitará que se pause a mitad de ejecución.

1 comentario:

  1. hola, ayuda por favor. No me funciona el código para cerrar el cuadro de dialogo del portapapeles...

    PD: mi código es

    Sub extraerDatosOtrosLibro()
    Dim libroDatos As Workbook

    Set libroDatos = Workbooks.Open("C:\Users\dmcampos\Downloads\RE_recaud_caja_x_concepto.xlsm")
    libroDatos.Sheets(1).Range("A1:Q2050").Copy
    libroDatos.Close Savechanges:=False
    Range("B1").Select
    ActiveSheet.Paste
    Range("B1").Select


    End Sub

    ResponderEliminar

Otras entradas