Contar el número de celdas en blanco en un rango seleccionado
(Se usa la propiedad Application.WorksheetFunction.CountBlank(Selection)para
llamar desde Visual Basic funciones Excel)
Sub ContarCeldasBlanco()
'Cuenta el número de celdas en blanco en un rango dado
Dim n As Integer
n = Application.WorksheetFunction.CountBlank(Selection)
MsgBox n & " celdas en blanco"
End Sub
Tabla mostrando el resultado obtenido con el procedimiento
Contar el número de celdas que contienen datos
(Cuenta las celdas no vacías en un rango dado)
Sub ContarCeldas()
'Cuenta el número de celdas que contienen datos (números o etiquetas)
Dim n As Integer
n = Application.WorksheetFunction.CountA(Selection)
MsgBox n & " celdas que contienen datos"
End Sub
| 
