Filtering array

[AlexanderBB]

Dim diff%()
Dim Result%()

Diff is conditionally filled with 1
But retrieving them gives Type Mismatch error

Result = Filter(diff%, 1)
or
Result = Filter(diff%, "1")
What an I doing wrong?

 

[StephenCrump]

The VBA Filter function expects a String array.

You have declared diff and Result as Integer.

If you need further assistance, it would help if you posted the rest of the relevant code.

 

[AlexanderBB]

I changed from integer to string.
Assume it's not possible to filter an integer array?

 

[StephenCrump]

Assume it's not possible to filter an integer array?

What are you trying to do? What does your array look like before and after the filtering?

 

[AlexanderBB]

It was an integer array filled with 0's by default, and 1 conditionally.
I wanted a count of how many 1's. Filter would give me the Ubound value.
But I have it working now after changing the datatype.

 

[Peter_SSs]

It is not answering your question about filtering the array (that has been answered) but in the particular circumstances you describe, you could leave the Diff array as Integer and use this to get the number of 1s

Application.Sum(diff%)

 

[AlexanderBB]

Thanks. Always good to ask as so many new things to learn.

 

[StephenCrump]

... or, if your code is looping through the array to populate the 1's, you could set up a counter variable, adding 1 to the tally every time a 1 is set.

 

[Trebor76]

Hi Peter,

Sorry to hijack the post but can I ask why this errors out (Type mismatch):

Application.WorksheetFunction.CountIf(diff, 1)

Thanks,

Robert

 

[StephenCrump]

Countif expects a Range