Uso de los objetos rango y celda. Segunda parte

Para esta segunda parte vamos a utilizar los mismos objetos Rango y Celda pero además de ingresar información en una celda, vamos a tomar la información de una celda y ubicarla en otra. Vamos a ubicar los códigos de los ejemplos a continuación en el mismo módulo que trabajamos en la entrega pasada:

Ejemplo 3: Tomar información del Objeto Rango (Range) A4 e ingresarlo en el objeto Rango B4

Sub Ejemplo3ObjetoRango()

'Objeto Rango (Range) para tomar la información del Rango A4  e ingresarlos en el Objeto Rango B4

Range("B4") = Range(“A4”)

MsgBox “Se copio la información del Rango A4 en el Rango B4.

End Sub

  1. La primera línea Sub Ejemplo3ObjetoRango (), indica el inicio de la macro (Sub) y nombre de la macro Ejemplo3ObjetoRango. Los paréntesis que aparecen al final de esta línea los coloca Excel automáticamente luego de escribir el nombre y dar Enter.
  1. La segunda línea por tener una comilla sencilla al principio se toma como un comentario informativo para identificar más fácil lo que realizará la macro y por tanto no tendrá ningún efecto en macro.
  1. En la tercera línea es donde utilizamos el Objeto rango (Range) el cual necesita el nombre o la dirección del rango que se va a utilizar, en este caso se trata de la celda B4; una vez indicado correctamente la celda B4 con el Objeto Range, se procede a definir qué información queremos que contenga dicha celda con el uso del signo = y la aplicación nuevamente del Objeto Rango A4 con lo que estamos indicando que tome la información de este rango y la lleve al rango B4.
  1. NOTA: Todo texto en la programación de VBA debe ir entre comillas así que para los números no es necesario las comillas.
  1. La cuarta línea es un código para generar un mensaje informando que se copio el texto.
  1. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Al ejecutar el código el resultado es:

Ejemplo 4: Tomar información del Objeto Celda (Cells) A4 e ingresarlo en el objeto Celda (cells) B4

Sub Ejemplo4ObjetoCelda()

'Objeto Celda (Cells) para tomar la información de la Celda A4  e ingresarlos en el Objeto Celda B4

Cells(4,2) = Cells(4,1)

MsgBox “Se copio la información de la Celda A4 en la celda B4.

End Sub

Im

  1. La primera línea Sub Ejemplo4ObjetoCelda (), indica el inicio de la macro (Sub) y nombre de la macro Ejemplo4ObjetoCelda. Los paréntesis que aparecen al final de esta línea los coloca Excel automáticamente luego de escribir el nombre y dar Enter.
  1. La segunda línea es comentario informativo.
  1. En la tercera línea es donde utilizamos el Objeto Celda (Cells) el cual opera indicando dos valores entre paréntesis; el primer número corresponde a la Fila y el segundo número corresponde a la columna. De esta manera, para indicar la celda B4 con el uso del objeto Celda se aplica Cells(4,2), es decir, Fila 4 y Columna 2 (B4) y finalmente con el signo = y nuevamente la aplicación del Objeto Cells indicamos la dirección donde se encuentra el texto que queremos tomar, es decir en la celda A4 que con el uso del Objeto Cells sería Cells(4,1).
  1. La cuarta línea es un código para generar un mensaje informando que se copió el texto.

 

  1. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Al ejecutar el código el resultado es:

Como vemos, con ambos Objetos (Range y Cells) podemos obtener el mismo resultado.

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.