Подсчитать количество по условию и вывести результат в виде простого сообщения

[Nox]

Необходимо посчитать количество рожденных после 2006 и вывести результат в виде простого сообщения.Необходимо реализовать с помощью макроса.Буду очень признателен за помощь.

[Asya]

Код: Выделить всё

Sub People2006Count()

Dim k As Integer
Dim i As Integer

k = 0
i = 2

    While Cells(i, 5) <> ""
          k = k + IIf(Cells(i, 1) >= DateSerial(2006, 1, 1), 1, 0)
          i = i + 1
    Wend

 MsgBox k

End Sub

А вообще-то макрос тут ни к чему

[SAS888]

Можно проще:

Код: Выделить всё

MsgBox Application.CountIf([E:E], ">=" & CDbl(#1/1/2006#))