Copiar la información de una celda a otra. Macros para Principiantes

Vamos a ver en esta entrega un código que nos servirá para tomar la información de una celda y ubicarla en otra, como copiar y pegar texto. Vamos a utilizar el mismo archivo Excel con el que hemos estado trabajando en el mismo Módulo1:

Nos vamos a ubicar al final del Ejemplo5 luego de la línea End Sub que marca el final de dicha macro e insertamos el siguiente código:

Sub Ejemplo6()

'Esta macro copiara el texto de la celda A7 y lo pegara en la celda B7

Range("A7").Copy Destination:=Range(“B7”)

End Sub

Observemos que estamos en el mismo Módulo1 pero se trata de otra macro cuyo nombre es Ejemplo6 y se encuentra separada del Ejemplo5 por una línea negra.

  1. La primera línea Sub Ejemplo6(), indica el inicio y nombre de la macro Ejemplo6.
  2. La segunda línea Esta macro copiara el texto de la celda A7 y lo pegara en la celda B7, es un comentario informativo para identificar más fácil lo que realizará la macro. Observemos que al inicio de esta línea tiene una comilla sencilla y en el Editor VB se marcará en color verde toda la línea
  3. La tercera línea es el código con el cual copiará el contenido de la celda A7 Range("A7").Copy y lo pegará en la celda B7 Destination:=Range("B7")
  4. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Al ejecutar el resultado es:

Finalmente solo queda vincular la macro a cualquier objeto que podamos insertar en la hoja y listo.

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

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.