vba code modification help is needed

watermix

New Member
Joined
May 10, 2016
Messages
33
Hi everyone,

I need some help with code modification to make sure that 2 tables on the left with different values would be filled independently based on the data from the tables on the right:

[TABLE="width: 768"]
<colgroup><col width="64" span="12" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl72, width: 64"]num[/TD]
[TD="class: xl72, width: 64"]a[/TD]
[TD="class: xl72, width: 64"]b[/TD]
[TD="class: xl72, width: 64"]c[/TD]
[TD="class: xl72, width: 64"]d[/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[TD="class: xl72, width: 64"]num[/TD]
[TD="class: xl72, width: 64"]a[/TD]
[TD="class: xl72, width: 64"]b[/TD]
[TD="class: xl72, width: 64"]c[/TD]
[TD="class: xl72, width: 64"]d[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1506[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1507[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1507[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1509[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1508[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1510[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1509[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1511[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1510[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1601[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1511[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1602[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl69, width: 64"]1512[/TD]
[TD="class: xl69, width: 64"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1603[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1601[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1604[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1602[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl68, align: right"]1605[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]1[/TD]
[TD="class: xl68, align: right"]3[/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1603[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1604[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl68, align: right"]1605[/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD="class: xl68"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl72"]num[/TD]
[TD="class: xl72"]a[/TD]
[TD="class: xl72"]b[/TD]
[TD="class: xl72"]c[/TD]
[TD="class: xl72"]d[/TD]
[TD][/TD]
[TD][/TD]
[TD="class: xl72"]num[/TD]
[TD="class: xl72"]a[/TD]
[TD="class: xl72"]b[/TD]
[TD="class: xl72"]c[/TD]
[TD="class: xl72"]d[/TD]
[/TR]
[TR]
[TD="class: xl71"]1506[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]1511[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1507[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]1601[/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="class: xl71"]1508[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]1603[/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1509[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]1605[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1510[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1511[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1512[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1601[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1602[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1603[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1604[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="class: xl71"]1605[/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD="class: xl70"] [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I got a code that would do it if I have only one table on the left that needed to be filled with the data from the right table:

LR = Cells(Rows.Count, 8).End(xlUp).Row
For Count = LR To 2 Step -1
Z = Columns(1).Find(Cells(Count, 8), LookIn:=xlFormulas, Lookat:=xlWhole).Row


Range("H" & Count & ":A" & Count).Copy Destination:=Range("A" & Z)

Could anyone modify this part that the code would do it for both tables separably?
Thank you
 
Are the two destination/recipient tables on different sheets? If so you could simply duplicate the code to copy to those sheets independently. Something like

Range("H" & Count & ":A" & Count).Copy Destination:=sheet1.Range("A" & Z)
Range("H" & Count & ":A" & Count).Copy Destination:=sheet2.Range("A" & Z)
 
Upvote 0

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top