LBound/UBound Intersect together

[janulikb]

Hi guys.

How can I make this code working? It should take cell from rng2, go through first row in rng1, compare it and if it doesn't find match, paste this cell in somewhere (destination is irrelevant).

Please Login or Register  to view this content.

Thanks

[jindon]

L/Ubound function is for vba arrays. not for Ranges.....

This is only my guess

Please Login or Register  to view this content.

[protonLeah]

I'm not sure what you are doing. Does this help in the right direction?

Please Login or Register  to view this content.

---

Some Notes

Set FirstRow = rng2.Rows(1)
Set FRow = rng1.Rows(1)

These lines set the variables to the first cell of each range.

Since they are one cell ranges and not arrays, For j = LBound(FirstRow) To UBound(FirstRow) will error out because UBound/LBound return the first and last indices of arrays
(this looks like you are trying to step trough a range of cells with your loop)

variable j: is a number but Intersect(j, FRow) requires range parameters, testing to see if the address of the one is contained in the other

Selection.Copy: Since you don't select anything with your code, Selection is whichever cell on the sheet just happened to be selected if the code had run (it won't). Nor will it ever change via your code.

Else: You don't carry out any process when the If returns a False, therefore you don't need the Else line.

[janulikb]

jindon: Thanks, but doesn't help
protonLeah: I'm trying to compare two tables (only their headings) and find the difference. => trying to merge these tables, so I must find which headings aren't use in first table (hope you understand )

so I try overwrite your code with this:

Please Login or Register  to view this content.

But the result: Run-time error '13': Type Mismatch.
I know that For Each FirstRow In FirstRow might not be the right solution, but I don't want to define sheet as BaseRange/TestRange. Both tables are on the same sheet.
You didn't define TestRow/BaseRow, so I guess they don't have to be, am I right?

[jindon]

My guess was close... but couldn't read what yuou are trying to do from your original code...

Please Login or Register  to view this content.

But it still doesn't make sence to me.
What do you mean by "rying to merge these tables", anyway?

[janulikb]

I rewrite it with this:

Please Login or Register  to view this content.

but the same error occures in this line If r.Value <> c.Value Then

[jindon]

1) Only the case I can think of is that there are Error value in the cell(s).

There shouldn't be .Paste
2) Destination:=Range("A1").End(xlToRight).Offset(0, 2).Paste

Really hard to understand from your code....

[janulikb]

I don't know if this help, but here is an example:

test.jpg

[jindon]

You should have posted that in the first place.

Please Login or Register  to view this content.

Or maybe

Please Login or Register  to view this content.

[janulikb]

Graaaacias. Finally it's working