Loop through table and add rows

Hi,

Stuck on getting VBA to do something! I have a form with some values that need to be added to a table. On clicking the command button I need it to first add a new row into table procStep using the values in the form. Then, I need to loop through all the cells in the Product Name column of that table and check some conditions, if the conditions are met then add a new row to a different table called resTable.

I'm using the code below.

Please Login or Register  to view this content.

What's happening is that it is adding the new row to procStep table with the form values ok, but then it's just adding one blank row to the resTable table when there should be 4 rows that meet the conditions given.

Apologies if the code's a bit messy, VBA is not my forte!!

Any help would be appreciated though

Yes, it's set as resTabFull.ListRows.Add. I thought that would add a new row onto the table for each cell that met the conditions? Must be where I'm going wrong but I'm stuck as to how to increment?

Ah ok, I think I understand. So, I've changed it to the below but now it's adding a new row to procStep with the correct values but then it just adds 20 blank rows to the resTable! (There are 20 rows in the procStep table so something isn't working right with the If statement?)

Please Login or Register  to view this content.

Actually I realise the Set resRow line should be after the IF Then part. But it won't add any rows in, more than likely because of the If statement. I'll double check it all but can't understand why it isn't working

Jeez, finally getting somewhere! Thanks for the help

I'm having an issue now with the part of the If statement that says If cell.Offset(0,1) = materialCode.Value The cell it's looking at on the sheet is a number format and it's comparing it to a text box value on the form. Doesn't seem to like it! So brings up a false for every row. If I remove that condition the macro works as it should, but unfortunately I really need that condition!

Ah! So simple! Love it

All working now, thanks for your help!