Pegar solo Valores con macros

Otra de las acciones más realizadas al trabajar con Excel, es la aplicación del Pegado Especial con el cual se puede seleccionar cuál de las características que contiene la información copiada al portapapeles se desea pegar.

Método PasteSpecial: Con la aplicación de este Método se ejecuta la acción de pegado con la posibilidad de indicar la característica a pegar de la información contenida en el portapapeles.

Para el siguiente ejemplo, trabajaremos con la siguiente información:

Es una información sencilla de resultados por Zona de la Empresa 1; en el ejemplo a continuación, partiremos de la misma tabla de la entrega anterior pero esta vez para pegar solo los valores, es decir, nada de formato ni fórmulas.

Lo primero es ingresar al editor de Visual Basic, puede ser con la combinación de teclas Alt + F11 y desde el explorador de proyectos, es necesario dar doble clic sobre la hoja donde se requiere crear la macro que para nuestro ejercicio se ubicará en la Hoja1:

Ingresamos el siguiente código:

Sub PegarSoloValores()

Worksheets("Hoja1").Range("B1:C7").Copy

Range("E1").Select

Selection.PasteSpecial Paste:=xlPasteValues

End Sub

Queda de la siguiente manera en el editor VBA:

Veamos lo que significan cada una de las líneas:

  1. La primera línea Sub PegarSoloValores(), indica el inicio de la macro.
  2. En la segunda línea se utiliza primero el Objeto Worksheets indicando entre paréntesis el nombre de la hoja donde se encuentra la información a Copiar y luego se utiliza el Objeto Range para establecer el rango de celdas de la información a copiar estableciendo el Método Copy que ya vimos en entregas anteriores.
  3. En la siguiente línea se utiliza el Método Select que ya vimos en entregas pasadas para ubicar la celda activa en E1.
  4. En la siguiente línea se aplica el Método PasteSpecial para indicar que solo se deben pegar los valores; también se utiliza el Método Paste con el signo igual (=) y el valor xlPasteValues que corresponde a la característica de solo valores.
  5. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Para ejecutar la macro, lo ideal es insertar una autoforma en la Hoja1 y luego asignar la macro que acabamos de crear (clic derecho sobre la Autoforma y seleccionar la opción Asignar macro:

Finalmente seleccionar la macro que se acaba de crear:

Y al dar clic sobre el la autoforma, la macro pegará solo la información de la tabla en la celda E1:

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

Una opinión
  1. Bethuel Mares dice:

    Muchísimas gracias.
    Me sirvió demasiado. Me sacaste de un apuro, te debo una, compañero.

    Ayer cumplió un año el artículo hehe. Sigue adelante.

    Saludos.

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.