vba Loop with lots of criteria

Hello people,

I have got following Worksheet.
(Master File)
KOmhIlF.png


I also have got a folder with Separate excel files
that could looks like the below:

1)
(Slave File)
Udzj35g.png


2)
(Slave File)
DzbaqnB.png

With my Code generates that following result:
6PvFr4V.png

The code does following:

Loop through all Cells for every row in the Master file.
for each cell open a Slave file Loop through all used cells in column in "H", If the cells are equal take the Cell same row Column "i"; paste it in the Master file to the same row as the first number but column "i"

Now I need to also create a Critera that checks for each Slave file there is IO numbers (Column "H") that doesn't exists in the Master file if there is number that doesn't exists then, Copy the IO number + the cell same row but Column "I" To the last unused row in the Master File.

So example:

Master File
[Column H][Column I]
IO1
IO2
IO3
IO4


Slave File 1:
[Column H][Column I]
IO1 10
IO2 20

Slave File 2:
[Column H][Column I]
IO3 30
IO4 40
IO5 50 ' this info does not exists in the Master file add it to a new row.

The final result should be like this:


Master File:
[Column H][Column I]

IO1 10
IO2 20
IO3 30
IO4 40
IO5 50 ' this is the new row



Here is my Code:

Please Login or Register  to view this content.

Could someone help me

Thank you in advance

Best Regards

Daniel

Please Login or Register  to view this content.

Change this...
x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

To this...
x = ActiveSheet.Range("H" & Rows.Count).End(xlUp).Row

Try this...
x = MasWbs.Range("H" & Rows.Count).End(xlUp).Row

This is the fix

Please Login or Register  to view this content.

You're welcome. Thanks for the feedback.