Count IF Help

[Xineq]

Hello MrExcel

I'm atm trying to make a VBA Code that works the same way as CountIf in excel. The Countif i'm useing in excel goes like this =CountIf(B2:B100;2 - Not good) (this goes for all the prioritys 1 - 3). I was hoping you could help me make this to VBA Code, and will be able to look like this.

Priority	Amount
1 - Really bad	1
2 - Not good	2
3 - OK	2
SUM	5

<tbody>
</tbody>

This is a outtake from my excel

A	B	C	D	E	F	G	H
Case	Priority	Title	Title-Long	Status	Project	Type	Tags
1355512	3 - OK	Title1	TitleName 1	Active <tbody> </tbody>	2014-3 <tbody> </tbody>	Bug	Blank
4215211	2 - Not good	Title2	<tbody> </tbody>	Active <tbody> </tbody>	2014-3 <tbody> </tbody>	Bug	blank <tbody> </tbody>
4213451	1 - Really bad	Title4	<tbody> </tbody>	Active <tbody> </tbody>	2014-3 <tbody> </tbody>	inquiry	blank <tbody> </tbody>
4142341	2 - Not good	Title10	<tbody> </tbody>	Active <tbody> </tbody>	2014-5 <tbody> </tbody>	inquiry	Tag 3
1456621	3 - OK	Title 6	<tbody> </tbody>	Active <tbody> </tbody>	2014-4 <tbody> </tbody>	Bug	Tag 5

<tbody>
</tbody>

 

[Michael M]

What cell range is the list of result text in ?

Priority	
1 - Really bad
2 - Not good
3 - OK
SUM

What Excel version are you using ?
Have you considered a Pivot Table....no formula required !!!

 

[Xineq]

I'm using Excel 2010.
i have tried Pivot tables, but i'm not really happy with the results.
The Cell range will be J2:K6 i think (i hope that is what you are asking for)

 

[Special-K99]

in K3
=COUNTIF(B$2:B$100,J3)
and copy down