Error in this macros when there are no records

Hello guys , i have the next problem in this macro . I will explain what this macro does first. On sheet 202 you should cycle through the codes in column C, checking that the same code has been incorporated in column D of sheet 1502. In case any code is not found on sheet 1502, the macro should check if found in the column of sheet 1503. If it is not found in this sheet, you should put a value on the sheet "Macros".

Please Login or Register  to view this content.

the error that it presents is error 13 the types do not match. in this line ReDim y(1 To UBound(x, 1), 1 To 1)

please help me

Regards

Originally Posted by NerakSeven

Please Login or Register  to view this content.

the error that it presents is error 13 the types do not match. in this line ReDim y(1 To UBound(x, 1), 1 To 1)

[Untested] Maybe making the changes I show in red above will solve the problem.