Valores de pegado de Excel VBA
¡Copiar y pegar no es el mejor trabajo del mundo! Pero copiar y pegar con opciones especiales requiere algún tipo de conocimiento en VBA. Este no es el proceso sencillo como el simple 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?
Ejemplo n. ° 1: uso de Pegado especial
Por 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 en 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: ejecuta el código
Ejecute este código, 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 solamente.
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.
Por ejemplo, mire la imagen de abajo.
En la imagen de arriba de la hoja de trabajo en la columna "F", tenemos una 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
Para pegar valores de una hoja de trabajo a otra, debemos mencionar ambos nombres de la hoja de trabajo. A continuación se muestra un ejemplo de eso.
Sub Paste_Values2 () Worksheets ("Sheet1"). Range ("A1"). Copy Worksheets ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
