Copy & Paste + VLookup?

Hello,

I am trying to do a simple copy paste exercise. I am trying to copy data from columns B, C & D to columns H onwards based on whether the data in Column A matches Column G in order to create a mail merge file. Not gotten very far. Help would be appreciated!


Here's what I've tried so far...


Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+Shift+N
'
For x = 2 To 406
If Cells(x, 1) = Cells(x, 7) Then
Range(Cells(x, 2), Cells(x, 4)).Select
Selection.Copy
Cells(x, 7).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(1).Select


End If

End If

Try this

Please Login or Register  to view this content.

If I'm understanding you correctly, you could do this with a formula. Use the formula below in H2. Array-confirm it with Ctrl + Shift + Enter instead of the regular Enter:

=IFERROR(INDEX($B$2:$D$39,SMALL(IF($A$2:$A$39=$G2,ROW($A$2:$A$39)),CEILING(COLUMN(A:A)/3,1))-1,MOD(COLUMN(A:A)+2,3)+1),"")

Fill down through H4, then fill right through BE2:BE4. When you adjust it for your regular data, just change the range to fit or exceed your data in column A.

See the attachment if you get stuck.

Thanks a lot Cantosh! Working great!