Counta with an undefined range

[gheyman]

I need to count the number of nonblanks in column O for numerious sheets/tabs. My problem is: the number of rows could change in each one of the tabs so I dont know what the range will be.

I am looking to put code into each sheet that will calculate on deactivate. I need the formula to count the number of nonblanks in column O and put that anser in Cell T3.

Is this possible?

 

[Aladin Akyurek]

I need to count the number of nonblanks in column O for numerious sheets/tabs. My problem is: the number of rows could change in each one of the tabs so I dont know what the range will be.

I am looking to put code into each sheet that will calculate on deactivate. I need the formula to count the number of nonblanks in column O and put that anser in Cell T3.

Is this possible?

COUNTIF(O:O,"?*")

counts all text values of length > 0.

If column O also house numeric values...

COUNT(O:O)+COUNTIF(O:O,"?*")

 

[cstimart]

Try this in the Worksheet Object...

Private Sub Workbook_Deactivate()
Dim i As Integer

For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("T3") = Application.CountA(.Range("O:O"))
    End With
Next i

End Sub