Pegar solo fórmulas con macro

Otra de las opciones más utilizadas del pegado especial es pegar solo las Fórmulas, y para aplicarla, partiremos de casi la misma tabla que se obtuvo de la entrega anterior donde se encuentra la misma estructura pero con diferentes datos para la Empresa 1 y sin los cálculos de Total y Promedio:

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 PegarSoloFormulas()

Worksheets("Hoja1").Range("B6:B7").Copy

Range("E6").Select

Selection.PasteSpecial Paste:=xlPasteFormulas

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 PegarSoloFormulas(), 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. En este caso el rango de celdas a copiar será solo donde se encuentran los cálculos de Total y Promedio
  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 se realizará pegado especial; luego se utiliza el Método Paste con el signo igual (=) y el valor xlPasteFormulas que corresponde a la característica de pegar solo Fórmulas de la información contenida en el portapapeles.
  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 las fórmulas de la tabla en la celda E6:

Descargar archivo.

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

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.