en un rango saber si hay celdas vacías

Hola,

con las siguientes fórmulas puedes saber cuantas celdas hay en blanco y
cuantas no dentro de la columna A

NoBlancos = Application.WorksheetFunction.Count(Range("A:A"))
blancos = Application.WorksheetFunction.CountBlank(Range("A1:A" & Range("A"
& Rows.Count).End(xlUp).Row))

Para saber cuales son, mira la siguiente opción, es probable que se puedan
mejorar/optimizar los procesos en función de las necesidades.

Un saludo,
Juan

Inicio código

Sub CeldasBlanco()
Dim blancos As Long
Dim NoBlancos As Long
Dim i As Long
Dim fila As Long

NoBlancos = Application.WorksheetFunction.Count(Range("A:A"))
blancos = Application.WorksheetFunction.CountBlank(Range("A1:A" & Range("A"
& Rows.Count).End(xlUp).Row))

fila = 1
Do While i < NoBlancos
If Range("A" & fila) = "" Then
Debug.Print Range("A" & fila).Address
Else
i = i + 1
End If
fila = fila + 1
Loop

End Sub

Fin código


"chiri" escribió

1º Como puedo saber mediante código si en un rango hay celdas vacías

Con esto tengo suficiente pero por ir más allá

2º podría saber cuales están vacías.

gracias