If value is then copy

[Carolina Girl]

Can someone can help me??? I need a VBA code that will say…
if value of cell A2 is equal to “x†then copy G22 to worksheet “test2â€
if value of cell B2 is equal to “x†then copy G22 to worksheet “test3â€
etc...
if value of cell A3 is equal to “x†then copy G33 to worksheet “test2â€
if value of cell B3 is equal to “x†then copy G33to worksheet “test3â€
etc...
There has to be a faster way??? I have 6 items to check across and 350
down (more will be added. Please note row 2 may have an x in A2 and B2 but
row 3 may only have an x in B3..... Thank you in advance

 

[Don Guillett]

Have a look in the vba help index for select case and incorporate into a
for/each loop.
You don't say where in test2 to copy to

 

[Carolina Girl]

no have not looked but will... As for where in worksheet "test2" all 6
worksheets are set up with the same header row so it should past in the first
empty row starting on A2.
Thanks in advance....