countif not working

[John]

vba excel 07
Want to count all strings that are two characters long in a range. Using
countif(range, "??") but it doesn't work.

The strings are numbers so I think that might be screwing it up. Tried
countif(range,"<100") but that didn't work either.

John

 

[Per Jessen]

Hi John

Look at theese examples:

Sub CountIt()
'Numbers only
Set MyRange = Range("A1:A100")
MyCount = WorksheetFunction.CountIf(MyRange, "<100") _
- WorksheetFunction.CountIf(MyRange, "<10")
Debug.Print MyCount
End Sub

Sub CountIt2()
'Numbers and text count
Dim MyRange As Range
Set MyRange = Range("A1:A100")

For Each c In MyRange.Cells
If Len(c) = 2 Then MyCount = MyCount + 1
Next
Debug.Print MyCount
End Sub

Hopes this helps.
....
Per

 

[michdenis]

Hi,

Validation using the keys : CTRL + Maj + Enter

=Sum(if(len(Your_Range)=2;1))



"John" <[email protected]> a écrit dans le message de groupe de discussion :
(e-mail address removed)...
vba excel 07
Want to count all strings that are two characters long in a range. Using
countif(range, "??") but it doesn't work.

The strings are numbers so I think that might be screwing it up. Tried
countif(range,"<100") but that didn't work either.

John