vba code modification help is needed

W

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
 
Sort by date Sort by votes
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
You must log in or register to reply here.

Similar threads

R
  • Question Question
Could I ask for VBA (or python) code to create a new workbooks?
Replies
2
Views
159
Radoslaw Poprawski
R
M
  • Solved
Need help with returning selectable array
Replies
4
Views
112
mrblister
M
C
  • Question Question
Create a new row for every date in row and create multiple copies of data to new worksheet based on cell number value for each date in the row VBA
Replies
0
Views
203
Chris258
C
N
  • Question Question
VBA Transpose & Join Help
Replies
5
Views
407
Alex Blakenburg
A
K
  • Question Question
create fixtures but 2 vs 2
Replies
7
Views
277
kerm007
K

Share this page

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