¿Cómo copiar automáticamente una celda al portapapeles con un solo clic en Excel?

Normalmente, cuando se copia una celda al portapapeles, primero debes seleccionar la celda y luego presionar las teclas Ctrl + C para copiarla. ¿Cómo copiar automáticamente una celda simplemente haciendo clic sobre ella sin usar los atajos de teclado? El método en este artículo puede ayudarte.

Copiar automáticamente una celda al portapapeles con un clic usando código VBA

Copiar automáticamente una celda al portapapeles con un clic usando código VBA

El siguiente código VBA puede ayudarte a copiar una celda al portapapeles simplemente haciendo clic en ella en Excel. Por favor, sigue los siguientes pasos.

1. Abre la hoja de cálculo donde deseas que las celdas se copien automáticamente al portapapeles, haz clic derecho en la pestaña de la hoja y luego selecciona Ver código desde el menú contextual. Ver captura de pantalla:

2. En la ventana de Microsoft Visual Basic para Aplicaciones que se abre, por favor, copia el código VBA en la ventana de Código.

Código VBA: Copiar automáticamente una celda al portapapeles con un clic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
        Target.Copy
    End If
End Sub

Nota: En el código, A1:A9 son las celdas que se copiarán automáticamente al portapapeles. Cambia esto según sea necesario.

3. Presiona las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Al hacer clic en cualquier celda del rango A1:A9, la celda se copiará automáticamente al portapapeles como se muestra en la siguiente captura de pantalla.

Luego, puedes seleccionar una celda de destino y presionar la tecla Enter para pegar el contenido copiado.

Artículos relacionados:

• ¿Cómo copiar datos de celdas con altura de fila y ancho de columna en Excel?
• ¿Cómo copiar y pegar automáticamente una celda en la hoja actual o de una hoja a otra en Excel?
• ¿Cómo deshabilitar las funciones de cortar, copiar y pegar en Excel?
• ¿Cómo copiar solo los bordes de un rango seleccionado en Excel?