Help with the correct syntax on a Split function

[FZappa]

Hello all,

I've made the following macro:

Please Login or Register  to view this content.

and in the line with the split function, I get an error 1004 "Application defined or Object defined error"

I'm not 100% sure what I'm missing but it's my first time using this particular function, any pointers would be appreciated.
Thanks!

[nankw83]

I think the issue is not the split function but the range where you have FilaEquivalente = 0 then you used it in cells(0,1)

[FZappa]

Thank you, that certainly moved it forward. However, now for the line

Please Login or Register  to view this content.

Gives me an "object required" error.

Any idea how to reconcile the object with the string? Essentially I'm trying to separate any values in said range that are separated by commas and then seeing if one of those values match the one we're searching for with the function. I suppose CodInd.Value isn't the right way to write it, but I really have no idea how to do it in that case.

[nankw83]

How about this

Please Login or Register  to view this content.

[FZappa]

It gives me a type mismatch now. Would that solution go through multiple values if they're found in the same cell in any case?

[nankw83]

I am not really able to understand your function. If you could answer my below question I might be able to rewrite it or amend it … So in the function you will select let say cell A1 which is a string [for example the world Plane] and then select range("B1:B10") which also hold strings but in some cells have multiple words separated by a comma. And the world Plane appears in cell B3, what is the expected output of the function ? A message box ?

[nankw83]

If you could attach a small workbook with a sample & expected results would be much easier I guess than explaining

[CK76]

CodInd is variant and is element of Cods array.
To compare value of element...

Please Login or Register  to view this content.

You can test this by doing...

Please Login or Register  to view this content.

[FZappa]

Okay, I was over-complicating it then, thank you very much.

[protonLeah]

FilaEquivalente = 0

Cods = Split(Rango.Cells(FilaEquivalente, 1), ", ")

There is no row zero in Excel; therefore, error 1004