il fatto che le letture siano molte rende ancora meno logico l' utilizzo di un popup in un foglio elettronico che ha nei filtri la corretta soluzione al problema

ma se proprio popup deve essere... che popup sia, anche se una routine for... next per una ricerca tra le celle in excel è tutto meno che veloce.

inserire adesso() in A1 è inutile:


for x = 17 to 1000

y = trim(str(x))

dato = ActiveSheet.Range("k" + "y")).Value

if dato = "" then exit for

if dato = "no" then

If adesso() > ActiveSheet.Range("L" + "y").Value Then
MsgBox ("occhio alla riga " + "y" +"!!!!")
End If

end if

next x

bye