Create New worksheets with conditional logic gives only the first worksheet

[capson]

I have the following data

Please Login or Register  to view this content.

I need to create a new sheet for only the first instance of 3, 5, 17 in the Parent Ids column

The 3 in the Parent Id column equals the 3 in the Id column which has a Title of "Relationships"

The 5 in the Parent Id column equals the 5 in the Id column which has a Title of "Interorganizational"

The 17 in the Parent Id column equals the 17 in the Id column which has a Title of "Services"

The list is dynamic so it is changing but the relationships remain the same

The following only gives me the first new tab "Relationships" then nothing else

Please Login or Register  to view this content.

Thanks

[nilem]

Hi capson,
try this

Please Login or Register  to view this content.

[karedog]

In addition to the very effective nilem's code, here is the explanation for your original code :

When you make statement like :
If Cells(i, 2) <> vbNullString Then --> this refer to activesheet!Cells(i,2)

if current activesheet is Sheet1 then this refer to Sheet1!Cells(i,2)
if current activesheet is Sheet2 then this refer to Sheet2!Cells(i,2)

Now, if you add a new sheet (using Worksheets.Add() method), the focus is changed to this new added sheet and it become the activesheet.

So when you first run the code,
If Cells(i, 2) <> vbNullString Then --> this refer to Codes!Cells(i,2)

but as soon as you add a new worksheet ("Relationships" sheet in this example), the focus changed to this sheet, and this "Relationships" become the activesheet.

Now, if you continue the loop :
If Cells(i, 2) <> vbNullString Then --> this refer to Relationships!Cells(i,2), not Codes!Cells(i,2) anymore


So you must make the code always to refer to sheet "Codes", like this :

Please Login or Register  to view this content.

[capson]

Thank nilem, the code worked perfectly

Thank you Karedog for your helpful explanation

[karedog]

You are welcome, glad I can help, and thanks too for the rep. points.


Regards