¿Cómo crear un Botón de Comando para copiar y pegar datos en Excel?

Supongamos que necesita copiar con frecuencia un rango de celdas a otro lugar después de cambiar los datos, el método manual de copiar y pegar será complicado y llevará mucho tiempo. ¿Cómo hacer que esta tarea de copiar y pegar se ejecute automáticamente? Este artículo le mostrará cómo usar un botón de comando para copiar y pegar datos con un solo clic.

Crear un Botón de Comando para copiar y pegar datos con código VBA

Crear un Botón de Comando para copiar y pegar datos con código VBA

Por favor, siga los siguientes pasos para copiar y pegar datos automáticamente al hacer clic en un Botón de Comando.

1. Inserte un Botón de Comando haciendo clic en Desarrollador > Insertar > Botón de Comando (Control ActiveX). Ver captura de pantalla:

2. Dibuje un Botón de Comando en su hoja de cálculo y haga clic derecho sobre él. Seleccione Ver Código desde el menú contextual.

3. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, por favor reemplace el código original en la ventana de Código con el siguiente código VBA.

Código VBA: Usar Botón de Comando para copiar y pegar datos en Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Nota: En el código, CommandButton1 es el nombre de su Botón de Comando insertado. A1:C17 es el rango que necesita copiar, y J1:L17 es el rango de destino para pegar los datos. Por favor, cámbielos según sea necesario.

4. Presione las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones. Y desactive el Modo Diseño bajo la pestaña Desarrollador.

5. Ahora haga clic en el Botón de Comando, todos los datos en el rango A1:C17 se copiarán y pegarán en el rango J1:L17 sin el formato de celda.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo guardar y cerrar el libro de trabajo activo sin preguntar mediante un Botón de Comando en Excel?
• ¿Cómo mantener siempre flotante un Botón de Comando en la hoja de cálculo en Excel?
• ¿Cómo actualizar o insertar (actual) fecha y hora mediante un Botón de Comando en Excel?
• ¿Cómo usar un Botón de Comando para cambiar un valor de celda especificado en Excel?
• ¿Cómo usar un Botón de Comando para guardar la hoja de cálculo activa como archivo PDF en Excel?
• ¿Cómo insertar una nueva fila en blanco automáticamente mediante un Botón de Comando en Excel?