Identificar el número de Filas y Columnas de un rango de Excel

Para finalizar con la aplicación de la variable tipo Object, podemos identificar cuantas Filas y cuantas Columnas componen el rango definido en la variable.

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

Dim Celdas As Range

Set Celdas = Range("L2:N5")

MsgBox "Filas en el rango: " & Celdas.Rows.Count & vbCrLf _

& "Columnas en el Rango: " & Celdas.Columns.Count

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 ContarFilasyColumnas(), indica el inicio de la macro.
  2. En la segunda línea estamos creando una Variable de tipo 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 presenta un mensaje, el número de Filas (Rows) que componen el rango con la propiedad Count del rango Celdas y se adiciona al mensaje un mensaje indicando el número de columnas (Columns) que también componen el mismo rango.
  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 presenta el siguiente mensaje:

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.