calling Subroutine is not working properly

**kiran527** · 11-04-2012, 08:05 AM

i have wrriten a macro for calling a subroutine.

eg:

Please Login or Register  to view this content.

when i call Perilthree_CountOSUS subroutine from different location or another subroutine i am getting result as zero in h18 location where as when i run the subroutine individually i got the correct result.

can anybody let me know where the problem is...
i was really doesn't know why it is producing different results when calling differently..

Its very urgent....

**AlphaFrog** · 11-04-2012, 08:32 AM

One possibility is if OSUS Extract is filtered for something else in a different column, that filter is not cleared before filtering column F =3

Maybe try something like this to clear any previous filters.

Please Login or Register  to view this content.

**kiran527** · 11-04-2012, 08:47 AM

Thanks a lot dude.. its working great...
i have a another question

when i tried to run this code i should get the unique values count but i am getting count of duplicates +1, here i already put
Sheets("Output sheet").Range("h18").Value = UniqueValues.Count - 1
for decreasing the count by 1 for spaces
why i am getting another count as an extra. what it is considering in its count other than the spaces.

Originally Posted by AlphaFrog

One possibility is if OSUS Extract is filtered for something else in a different column, that filter is not cleared before filtering column F =3

Maybe try something like this to clear any previous filters.

Please Login or Register  to view this content.

**AlphaFrog** · 11-04-2012, 09:03 AM

Hard to say without seeing or knowing the nature of your data.

What is in column J?
Is the data derived from formulas or are they constants?

**kiran527** · 11-04-2012, 09:08 AM

in J column i have numbers which are manually entered and they looks like
27411221
27411221
27416404
27416404
27416405
27416405
27416471

these are not derived from any formulas

**AlphaFrog** · 11-04-2012, 09:19 AM

If a value in column J has a trailing space, it will not be considered the same as one without; e.g
"27416471" <> "27416471 "

Maybe try trimming the values (this is a total guess)
UniqueValues.Add cl.Value, Trim(CStr(cl.Value)) ' add the unique item

**arlu1201** · 11-04-2012, 10:02 AM

Kiran527,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.

**kiran527** · 11-05-2012, 01:24 AM

Hey Thats cool.... its working great...

Thanks a lot dude........

Originally Posted by AlphaFrog

If a value in column J has a trailing space, it will not be considered the same as one without; e.g
"27416471" <> "27416471 "

Maybe try trimming the values (this is a total guess)
UniqueValues.Add cl.Value, Trim(CStr(cl.Value)) ' add the unique item