VBA - Conta celle vuote ma con formula

[t***@gmail.com]

Ho un problema.
In un foglio ho un range di 3 celle (B1,B2,B3) che hanno al loro interno una formula del tipo:

=se(A1="SI";"OK";"")
=se(A2="SI";"OK";"")
=se(A3="SI";"OK";"")

Mettiamo adesso che:

A1="SI"
A2="SI"
A3="FORSE"

Nelle caselle B1,B2,B3 si avranno quindi questi valori:

B1 -> "OK"
B2 -> "OK"
B3 -> ""

In B3 vedo la casella VUOTA, ma in effetti non lo è (dato che c'è sotto una formula)

Adesso entro in VBA.
Vorrei contare le celle che non sono "vuote" (nel mio caso N=2 perchè in B3, anche se c'è sotto una formula...a video la cella è VUOTA)

Ho provato con la formula:

.Cells.Count

Ma mi restituisce sempre 3 (poichè,penso, reputa la B3 non vuota)

Come faccio?

Grazie

[c***@virgilio.it]

Post by t***@gmail.com
Ho un problema.
=se(A1="SI";"OK";"")
=se(A2="SI";"OK";"")
=se(A3="SI";"OK";"")
A1="SI"
A2="SI"
A3="FORSE"
B1 -> "OK"
B2 -> "OK"
B3 -> ""
In B3 vedo la casella VUOTA, ma in effetti non lo è (dato che c'è sotto una formula)
Adesso entro in VBA.
Vorrei contare le celle che non sono "vuote" (nel mio caso N=2 perchè in B3, anche se c'è sotto una formula...a video la cella è VUOTA)
.Cells.Count
Ma mi restituisce sempre 3 (poichè,penso, reputa la B3 non vuota)
Come faccio?
Grazie

Prova con questa
---
Sub Conta_Vuote()
MsgBox WorksheetFunction.CountBlank(Range("B1:B3"))
End Sub
---