Error al contar las celdas vacías de un rango variable
Publicado por cactus (16 intervenciones) el 16/03/2017 12:24:33
Buenos días,
Tengo una macro para que cuente las celdas blancas de una tabla. Si el número de celdas blancas es mayor que cero, entonces debe saltar un mensaje diciendo que faltan datos por cubrir.
La tabla es una tabla variable en cuanto al número de columnas, que depende del valor introducido en la celda J6. Dicha tabla comienza en la celda M10 y terminaría en la columna indicada por la var1 y la fila 21.
Si todas las celdas de la tabla están cubiertas, se activa otra macro llamada ResultadosConducción.
He realizado la siguiente macro, pero debe tener algún fallo, ya que, aunque no haya ninguna celda sin cubrir, siempre salta el MsgBox de que faltan datos:
¿Alguna idea del error?
Muchas gracias
Tengo una macro para que cuente las celdas blancas de una tabla. Si el número de celdas blancas es mayor que cero, entonces debe saltar un mensaje diciendo que faltan datos por cubrir.
La tabla es una tabla variable en cuanto al número de columnas, que depende del valor introducido en la celda J6. Dicha tabla comienza en la celda M10 y terminaría en la columna indicada por la var1 y la fila 21.
Si todas las celdas de la tabla están cubiertas, se activa otra macro llamada ResultadosConducción.
He realizado la siguiente macro, pero debe tener algún fallo, ya que, aunque no haya ninguna celda sin cubrir, siempre salta el MsgBox de que faltan datos:
1
2
3
4
5
6
7
8
9
10
Dim var1 As Integer
var1 = WorksheetFunction.Sum(Val(12), [J6])
Dim var2 As Integer
var2 = WorksheetFunction.CountBlank(Range(Cells(10, 13), Cells(21, var1)))
If var2 > 0 ThenMsgBox "Faltan datos por cubrir", vbOKOnly, "ERROR"
Else
Call ResultadosConduccion
End If
End Sub
¿Alguna idea del error?
Muchas gracias
Valora esta pregunta
0