counting cells with formulas

[beatrice25]

Hi,
I have a forecasting sheet and get asked to run totals off it so I need to differentiate between a cell that has a formula in it (i.e a forecast date e.g e21+7) and a cell that has an actual date entered into it e.g 23/1/08.

The bottom line is I need to count entries in a column that are real dates that have been entered and ignore the ones that have forecast dates.

Any help much appreciated

B

[VBA Noob]

Maybe a simple macro. Press Alt + F11 > insert Module > paste in the below > close VB editor. Then use the formula below. Change range as required

Function CntFormula(Rng As Range)
    Dim Cnt As Long
    For Each c In Rng
        If c.HasFormula Then
            Cnt = Cnt + 1
        End If
    Next c
    CntFormula = Cnt
End Function

=CntFormula(A1:A8)

VBA Noob