Desplazar celda activa en cualquier dirección

Vamos a ver en este capítulo la aplicación de las cuatro entregas pasadas donde vamos a utilizar el desplazamiento en todas las dirección. Recordemos el código que utilizaremos en las siguientes entregas y que nos servirá para realizar cualquier tipo de desplazamiento:

ActiveCell.Offset(Filas, Columnas).Select

Esta instrucción lo que hace es partir desde la celda activa (ActiveCell) de donde utiliza la propiedad de desplazamiento (Offset). Para indicar en qué dirección y la cantidad de celdas se debe utilizar los argumentos Filas y Columnas que tenemos entre paréntesis de la siguiente manera:

  • Si el valor en Filas en positivo lo que estamos indicando es que el desplazamiento es hacia abajo ()
  • Si el valor en Filas en negativo lo que estamos indicando es que el desplazamiento es hacia arriba. ()
  • Si el valor en Filas en igual a cero (0) lo que estamos indicando es que no se realizará un desplazamiento en las Filas.
  • Si el valor en Columnas en positivo lo que estamos indicando es que el desplazamiento es hacia la derecha. ()
  • Si el valor en Columnas en negativo lo que estamos indicando es que el desplazamiento es hacia la izquierda. ().
  • Si el valor en Columnas en igual a cero (0) lo que estamos indicando es que no se realizará un desplazamiento en las Columnas.

Abrimos el editor de Visual Basic (Alt + F11) y damos doble clic sobre la Hoja1 en el explorador de proyectos para activar el espacio de edición de macros en el editor:

Nos vamos a ubicar en el espacio de edición de macros y copiamos el siguiente código:

Sub DesplazarCeldaActivaHaciaAbajo()

'Esta macro utiliza la propiedad de desplazamiento de la celda Activa para desplazarse hacia abajo

ActiveCell.Offset(1, 0).Select

End Sub

Este es el código que ya vimos para el desplazamiento hacia abajo, ahora solo lo debemos vincular a la flecha que tenemos en la hoja de Excel:

Ahora volvamos al editor de Visual Basic para pegar el siguiente código debajo del código anterior:

Sub DesplazarCeldaActivaHaciaArriba()

'Esta macro utiliza la propiedad de desplazamiento de la celda Activa para desplazarse hacia Arriba

ActiveCell.Offset(-1, 0).Select

End Sub

Pasamos a la hoja de Excel y en la flecha asignamos esta macro:

Ahora vamos a pegar el siguiente código en el editor de Visual Basic, se trata del código para desplazar la celda activa hacia la derecha:

Sub DesplazarCeldaActivaHacialaDerecha()

'Esta macro utiliza la propiedad de desplazamiento de la celda Activa para desplazarse hacia la Derecha

ActiveCell.Offset(0, 1).Select

End Sub

Vinculamos en la hoja de Excel en la flecha respectiva esta nueva macro:

Y por último pegamos el siguiente código en la parte inferior del Editor de Visual Basic

Sub DesplazarCeldaActivaHacialaIzquierda()

'Esta macro utiliza la propiedad de desplazamiento de la celda Activa para desplazarse hacia la Derecha

ActiveCell.Offset(0, -1).Se lect

End Sub

Ahora solo queda vincular esta ultima macro a la ultima flecha que queda en la hoja de excel y probar dando clic en cualquier flecha.

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.