Valores de pegado de VBA

Valores de pegado de Excel VBA

¡Copiar y pegar no es el mejor trabajo del mundo! Pero copiar y pegar con una opción especial requiere algún tipo de conocimiento en VBA. Este no es el proceso sencillo como copiar y pegar. Uno de los métodos especiales de pegado importantes es "Pegar valores" en VBA.

¿Cómo pegar valores en Excel usando VBA?

Puede descargar esta plantilla de Excel de valor de pegado de VBA aquí - Plantilla de Excel de valor de pegado de VBA

Ejemplo n. ° 1: uso de Pegado especial

Para ver un ejemplo, mire la imagen de la hoja de trabajo a continuación.

En la celda B6, hemos aplicado la fórmula para calcular los valores de ventas totales de las celdas B2 a B5. Ahora, si copio y pego la celda B6 a C6, no obtendré el valor de 22,761 pero obtendré la fórmula correspondiente.

Para realizar lo mismo en VBA necesitamos conocimientos de codificación. Le mostraremos cómo pegar valores usando VBA. Siga los pasos siguientes.

Paso 1: copia la celda B6.

Para copiar la celda B6 use el código como Rango ("B6"). Copiar

Paso 2: seleccione la celda de destino. En este caso celda C6.

Como puede ver después de la copia, pregunta "Destino". Esto no es más que dónde desea pegar, así que seleccione el "Destino" como Rango ("C6")

Código:

 Sub Paste_Values ​​() Rango ("B6"). Copiar rango ("C6") End Sub 
Paso 3: ejecutar el código

Ejecute este código y obtendremos la copia B6 en C6.

Aquí solo tenemos la fórmula.

Paso 4: realice un método especial de pegado.

Para realizar el método especial de pegado, veamos la siguiente sintaxis del método especial de pegado.

En el método especial de pegar, tenemos varios métodos. Según la operación que estamos haciendo, debemos seleccionar el tipo en consecuencia.

Para entender, dividamos el código en dos líneas.

El primero es copiar la celda B6.

Ahora, en la siguiente línea, escriba la celda de destino como Rango ("C6")

Ahora para acceder a Pegar Método Especial, ponga un punto y comience a escribir la letra “P”.

En la variedad de opciones anterior, seleccione el método "Pegado especial".

Después de seleccionar el método, presione la tecla de espacio para ver los distintos métodos especiales de pegado.

En esta variedad de opciones, seleccione "xlPasteValues".

Después de seleccionar la opción, presione la tecla de tabulación para seleccionar automáticamente.

Código:

 Sub Paste_Values ​​() Rango ("B6"). Copiar rango ("C6"). PasteSpecial xlPasteValues ​​End Sub 

Paso 5: Ejecute el código

Ahora ejecute el código, deberíamos obtener solo el valor de la celda B6 en la celda C6.

Si observa la hoja de trabajo después de ejecutar el código, todavía está en modo de copia.

Esto desactivará el modo de copia cortada después de que se ejecute el método especial de pegado.

Ejemplo n. ° 2 - Pegado especial con bucles

Pegar especial es fácil, pero en términos de usarlo como parte de un código grande, se requiere un nivel avanzado de habilidades de codificación.

Para ver un ejemplo, mire la imagen de abajo.

En la imagen de arriba de la hoja de trabajo en la columna "F" tenemos la columna total, es decir, en las celdas F2, F5, F8, F11 y F14.

Ahora mi requisito es copiar cada celda total de la celda respectiva y pegar en la columna "H" con las celdas respectivas.

Usando el siguiente código, con bucles VBA, podemos hacer esto.

Código:

 Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6) .Copy Cells (j, 8) .PasteSpecial xlPasteValues ​​j = j + 3 Next k End Sub 

Este código con opción especial de pegar realizará la tarea de copiar cada celda total y pegar en la columna “H” con las celdas respectivas.

Ejemplo n. ° 3: copiar de una hoja de trabajo a otra

To paste values from one worksheet to another, we need to mention both the worksheet names. Below is an example of that.

 Sub Paste_Values2() Worksheets("Sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A15").PasteSpecial xlPasteValues End Sub