How to create VBA that performs COUNTIF/COUNTIFS?
I want a VBA for S2 to =COUNTIF(A:A,"<>")-1
and to be formatted as a number with no decimal

You need:

Thanks Debaser!
that worked great.

how to use it with more than one function

With Range("M2")
.Value2 = Application.CountIfs(Range("I:I"), "5",("C:C"),"OPEN"
.NumberFormat = "#,##0"
End With

The problem now is M2 = #VALUE!

You didn't repeat the Range call:

Thanks again. That worked great again.
I have one more J2 = A2.
i would like the value from A2 to populate J2

That's just:

Thanks for the quick reply. Worked great.
You are awesome

is this correct? I get an answer of 0
With Range("AE2")
.Value2 = Application.CountIfs(Range("N:N"), "4", Range("G:G"), "OPEN", Range("O:O"), ">0")
.NumberFormat = "#,##0"
End With

But with this in a cell I get an answer of 4
=COUNTIFS(G:G,"OPEN",N:N,"4",O:O,">0")

Can you post a workbook that shows the problem?

Here it is but not sure if it will help. It connects to a SQL database and pulls information that the VBA uses

I hope this one has the attachment

Attached Files

MMR - 13Jan2016 - Copy - Copy.zip (530.0 KB, 8 views)

There are no open items in that workbook so it's hard to disagree with the code.

Sorry for the delay but work got me humping. Thanks for everything.
i have another question. This code works great but when i click on the cell on the worksheet the formula bar shows the formula. and when i copy this cell to another sheet the formula copies instead of the value.

Range("AC3").Formula = ("=IFERROR(AD2/Y2,0)")
Range("AC3").Select
Selection.NumberFormat = "0%"

Well, yes it would - you put a formula in the cell. That's how Excel works. You either paste special - Values when you want to put the value somewhere else, or you convert the formula to a value after you input it.