Pegar solo formato con macros

Para continuar con la aplicación del Método PasteSpecial vamos a partir del resultado de la entrega anterior donde se pegaron solo los valores de una tabla y la idea en esta entrega es copiar el formato de la tabla original sobre los datos “simples” que tenemos:

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

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

Range("E1").Select

Selection.PasteSpecial Paste:=xlPasteFormats

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 PegarSoloFormato(), 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 se realizará un pegado especial; luego se utiliza el Método Paste con el signo igual (=) y el valor xlPasteFormats que corresponde a la característica de solo el formato 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 el formato de la tabla en la celda E1:

Descargar archivo de trabajo.

Contenido relacionado:
Compartirlo
Gerencie.com en su correo.

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


Déjenos su opinión

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

Información legal aplicable para Colombia.