yorey

Espero haber interpretado tu pregunta y que esto solucione tu problema. Sub compara() ActiveSheet.Range("a1").Activate ' se Activa la celda a comparar If IsEmpty(ActiveCell) Then Range("b1").Value = "Vacia" Else Range("b1").Value = "No Vacia" End If...

Esta es la fórmula que debes colocar en I23. Disculpa la demora... =SI(I16=0;"No hubo";SUMAR.SI(G1:G18;"<>0")/I16)