Ejercicios con la Propiedad Count de VBA

🔴 Practica con diferentes ejercicios usando la propiedad Count en VBA para macros en Excel. Curso VBA para Macros. Ejemplo con la propiedad Count.

La Propiedad Count de VBA

Esta Propiedad nos permite contar la cantidad de libros, hojas, celdas, celdas vacías, celdas con datos, total de filas, total de columnas de un libro de Excel.

Ejercicio 1: Contar Libros de Excel Abiertos

Contaremos cuantos libros de Excel tenemos abiertos usando la colección Workbooks.Count ejecutando este código veremos cuantos libros abiertos de Excel están abiertos.

Sub PropiedadCount()
MsgBox Workbooks.Count
End Sub

Ejercicio 2: Contar Hojas de Excel

Contaremos cuantas hojas de Excel tenemos en el documento abierto usando la colección Worksheets.Count ejecutando este código veremos cuantos hojas de Excel tenemos en el documento.

Sub PropiedadCount()
MsgBox Worksheets.Count
End Sub

Ejercicio 3: Contar celdas

Contaremos cuantas celdas existen en un determinado rango usando la Propiedad Count y Range. Primero posicionamos nuestro rango y luego escribimos el siguiente código:

Sub PropiedadCount()
MsgBox Range(“B3:C7”)Count
End Sub

Ejercicio 4: Contar total de filas de una hoja de Excel

Para saber el número exacto de filas de una hoja de Excel usaremos la Propiedad Rows.Count :

Sub PropiedadCount()
MsgBox Rows.Count
End Sub

Ejercicio 5: Contar total de columnas de una hoja de Excel

Para saber el número exacto de columnas de una hoja de Excel usaremos la Propiedad Columns.Count :

Sub PropiedadCount()
MsgBox Columns.Count
End Sub

Ejercicio 6: Contar filas que contienen datos numéricos

Para contar filas que contienen números en un determinado rango debemos especificar la posición con Range y utilizaremos la siguiente fórmula:

Sub PropiedadCount()
Range(“B2”).Formula = “=Count(B3:B10)”
End Sub

Ejercicio 7: Contar celdas vacías o en blanco con el método SpecialCells

Para poder contar las celdas que están en blanco debemos especificar el rango, luego abrimos el método SpecialCells elegimos la opción de tipo en blanco y ponemos finalmente la Propiedad Count, veamos el ejemplo:

Sub PropiedadCount()
MsgBox Range(“B2:B9”).SpecialCells(xlCellTypeBlanks).Count
End Sub

Ejercicio 8: Contar celdas con datos

Para poder saber cual es el número de celdas con datos podemos restar a nuestro el rango que contiene el método SpecialCells, así este código nos brindará exactamente el número de celdas con datos.

Sub PropiedadCount()
MsgBox Range(“B2:B9”).Count - Range(“B2:B9”).SpecialCells(xlCellTypeBlanks).Count
End Sub

Te invitamos a ver los siguientes artículos relacionados

Crear la siguiente Base de datos con botones; Registrar, Limpiar, Actualizar, eliminar y buscar registros. 
Ventana Inspección, inmediato, locales
Herramienta Depuración de una macro
Trabajando con comentarios
Usando el bucle FOR NEXT
Usando el bucle While
Uso del bucle UNTIL
Uso del Bucle For Each Next
Instrucciones Whit end Whith
Función y Método InputBox