You are now having the same result I was having when we first started,
everything was being wiped from the sheet. I made the changes from values to
text you suggested and I did not have that problem anymore (as well as I
added the precision in the optionscalculation tab). You and Dave's
expertise really, really, really got me over my hump. Thank you very much!!!!

Kind regards,

D.Parker

"Gord Dibben" wrote:

All that does for me is wipe everything from the sheet but if you're happy, go
for it.

Gord

On Wed, 10 Oct 2007 20:03:00 -0700, D.Parker
wrote:

David and Gord:

I manipulated the code to look for a interger value as opposed to the .0
values the following way---

from:
If Not wks.Cells(i, 1).Value Like "*.0" Then

to
If Not wks.Cells(i, 1).Value Like Int(wks.Cells(i, 1).Value) Then

And it worked perfectly, now I just have duplicate rows of
0,0,1,1,2,2....n,n that I will be working on.

Thank you for all of your time, talent and expertise. I really learned alot
with these new functions.

Kind regards,

D.Parker

"Gord Dibben" wrote:

Correction

=A1-INT(A1)=0.05


Gord

On Wed, 10 Oct 2007 15:02:33 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

I'm baaaack.

Try this method.

Assuming data cells are column A

In B1 enter and drag/copy down. =A1-INT(A1)0.05

Will give TRUE or FALSE.

1.023 will be false.

1.2345 or 1.067 will be TRUE

Filter out the TRUE's and format what's left to 1 DP

If this gives you what you want, we can deal with weeding out the duplicates.


Gord