VBA Count of Range of Numbers (ie, 0-14) in a Column

[CatLadee]

Please help me update the code below so that the counts work on the ranges of numbers (arrows below) Thanks!

Sub Metrics()

Dim ws As Worksheet
Set ws = Worksheets("Master")
''
    Total = Application.WorksheetFunction.CountIf(ws.Range("i:i"), ">0")
    Zeroto14 = Application.WorksheetFunction.CountIf(ws.Range("i:i"), "0-14")   <---
    Fifteento29 = Application.WorksheetFunction.CountIf(ws.Range("i:i"), "15-29")   <---
    Thirtyplus = Application.WorksheetFunction.CountIf(ws.Range("i:i"), ">30")


    Range("a1").Select
    Sheets("Tool | Summary").Select
    Range("J6") = Total
    Range("J7") = Zeroto14
    Range("J8") = Fifteento29
    Range("J9") = Thirtyplus
'
'
'
'    Worksheets("Tool | Summary").Select
'    Range("A1").Select
End Sub

 

[DanteAmor]

Try this

Zeroto14 = Application.WorksheetFunction.CountIf[COLOR=#ff0000]s[/COLOR](ws.Range("i:i"), ">=0", ws.Range("i:i"), "<=14")
Fifteento29 = Application.WorksheetFunction.CountIf[COLOR=#ff0000]s[/COLOR](ws.Range("i:i"), ">=15", ws.Range("i:i"), "<=29")

 

[Fluff]

Try like

Zeroto14 = Application.CountIfs(ws.Range("i:i"), ">=0", ws.Range("i:i"), "<=14")

Beaten2it

 

[DanteAmor]

You can not win all the battles.

 

[Fluff]

Very true & all that counts is the OP gets some help

 

[DanteAmor]

that's right

 

[CatLadee]

This works perfectly! Thank you so much!

Try this

Zeroto14 = Application.WorksheetFunction.CountIf[COLOR=#ff0000]s[/COLOR](ws.Range("i:i"), ">=0", ws.Range("i:i"), "<=14")
Fifteento29 = Application.WorksheetFunction.CountIf[COLOR=#ff0000]s[/COLOR](ws.Range("i:i"), ">=15", ws.Range("i:i"), "<=29")

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.