[Γενικά] Μέτρηση κενών κελιών υπό όρους;

[Thanosp]

Καλησπέρα
Η μακροεντολή δίνει τιμές εφόσον η τελευταία τιμή είναι μία αν είναι δύο ή περισσότερες συνεχόμενες δίνει τιμή μηδέν.
Sub Test1()
Dim tel As long, arx As long
if Cells(Rows.Count, 1)<>"" then
tel=Rows.Count
else
tel = Cells(Rows.Count, 1).End(xlUp).Row
endif
If tel > 1 Then
Do
tel = tel - 1
Loop Until Cells(tel, 1) = "" Or tel = 1
arx = tel
Do
tel = tel - 1
Loop Until Cells(tel, 1) <> "" Or tel = 1
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 2, 1) = arx - tel
End If
End Sub
μία λύση και για τις δύο περιπτώσεις είναι ο παραπάνω κώδικας.
Θανάσης