Macro to count occurances of decimal value

[Excelnewbie001]

Looking for a macro that can count the occurrences of the decimal values in column O2-O20 and count and write them from highest to lowest in Q2-Q

20 .Any help much appreciated

https://files.fm/u/6k5ug2cq#/view/Count.jpg

P.S Your upload picture dont work on this website

 

[Excelnewbie001]

You're welcome

Hi Mick -your Macro works great but I neglect there is 1 thing thats stopping it to work perfect....for a weird reason it doesnt count decimals like 1.0, 2.0, 3.0 ,4.0 etc -any idea why ?


Your expert opinion much appreciated thank you MickG

 

[MickG]

Try removing the 2 lines in red .

For Each Dn In Rng
  [COLOR="#FF0000"]  If Not Int(Dn.Value) = Dn.Value Then
[/COLOR]        If Not Dic.Exists(CStr(Dn.Value)) Then
             Dic.Add CStr(Dn.Value), 1
        Else
            Dic(CStr(Dn.Value)) = Dic(CStr(Dn.Value)) + 1
        End If
   [COLOR="#FF0000"] End If
[/COLOR]Next

 

[Excelnewbie001]

Try removing the 2 lines in red .

For Each Dn In Rng
  [COLOR=#FF0000]  If Not Int(Dn.Value) = Dn.Value Then
[/COLOR]        If Not Dic.Exists(CStr(Dn.Value)) Then
             Dic.Add CStr(Dn.Value), 1
        Else
            Dic(CStr(Dn.Value)) = Dic(CStr(Dn.Value)) + 1
        End If
   [COLOR=#FF0000] End If
[/COLOR]Next

Thank you MickG

That did the trick many thanks its now working perfectly -Thanks MickG -Great coding !!!!!!!!!!!!!

 

[MickG]

You're welcome