summing by colour

Assistant would be appreciated
Iam trying to sum fields by Colour and use a function , the function gives the correct result providing the number are whole numbers, if they are for example 1.5 and 1.5 the result is 4 when I require it to be 3. I have formatted the fields to Currency 2 places . What am I missing ?

Please Login or Register  to view this content.

Regards Ypma

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Change your Dim statement for the cSum variable from Long (which can only hold integer values) to Double (which can hold floating point numbers).

As an aside, you should consider changing your other variable to Long instead of Integer. There is no real benefit on a modern computer to declaring a variable as an Integer.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

It is a canned response. I guess 8 years is not really relatively new.