Ingresar información en una de las columnas del rango definido en Excel

Si se puede ingresar información en una de las Filas del rango definido como variable de tipo Object, también es posible ingresar información en una de sus columnas.

Primero ingresamos al editor VBA, puede ser con la combinación de teclas Alt + F11 y desde el explorador de proyectos damos doble clic en el objeto Hoja1 que es donde realizaremos la macro y en el espacio del editor de códigos copiamos y pegamos:

Sub PracticaObjectpara IngresarInformacionenuna Columna()

Dim Celdas As Range

Set Celdas = Range("D2:F5")

Celdas.Columns(3) = InputBox("Indica la información a grabar en las celdas")

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 Practica ObjectparaIngresar InformacionenunaColumna(), indica el inicio de la macro.
  2. En la segunda línea estamos creando una Variable de tipo Objeto Range.
  3. En la tercera línea se asigna con la instrucción Set, el rango de celdas que componen a la variable Celdas indicando con el signo igual (=) el rango.
  4. En la siguiente línea se utiliza el objeto Celdas del cual tomamos la Columna (Columns) 3 del rango, no de la hoja Excel, para ingresar la información que se indique en la instrucción InputBox
  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, se solicitará la información a grabar en el rango definido en la macro:

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., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.