VBA Application.CutCopyMode = Falso – ¿Qué es?

VBA Application.CutCopyMode = False

Si ha grabado macros al copiar y pegar, probablemente haya visto la siguiente línea de código:

Application.CutCopyMode = False

Esta línea de código «borra» el portapapeles*. Si ha copiado una celda de Excel, al ejecutar esta línea de código se eliminará la animación alrededor de la celda copiada: CutCopyMode es una propiedad a nivel de aplicación que indica si un programa de Microsoft Office (por ejemplo, Excel) está en modo de corte o de copia. Mientras está en modo de copia (o corte), Excel tiene algo almacenado en su portapapeles que puede ser pegado. No conozco ningún momento en el que se necesite establecer Application.CutCopyMode a True

Evitar CutCopyMode = False

Por lo general, puede evitar la necesidad de establecer Application CutCopyMode = False utilizando las mejores prácticas de VBA Copy+Paste. Como ejemplo, la siguiente línea de código copia y pega una celda en una sola línea, eliminando la necesidad de establecer CutCopyMode a False:

Sub CopiaYPegaEnUnaLinea()
    Range("a1").Copy Range("b1")
End Sub

Obtener el estado de Application.CutCopyMode

Ocasionalmente, puede querer obtener el estado de Application.CutCopyMode. Potencialmente para evitar errores al intentar Pegar cuando no hay nada en el portapapeles. Para obtener el estado utilice el siguiente código:

Sub ObtenerEstadoDe_CutCopyMode()
    Select Case Application.CutCopyMode
        Case Is = xlCopy
            MsgBox "Modo Copiar"
        Case Is = xlCut
            MsgBox "Modo Cortar"
        Case Is = False
            MsgBox "No está en modo copiar o cortar"
    End Select
End Sub

*Application.CutCopyMode sólo borrará el portapapeles de la aplicación de Microsoft Office (por ejemplo, Excel). No borrará el portapapeles de Window. Haga clic en el enlace para obtener más información sobre cómo borrar el portapapeles de Windows utilizando VBA.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!