I want to copy a few columns from one sheet and paste them into anothe
one. This should be done by a macro.

Now the first column doesn't contain any values until down to the 10t
row. I want to copy the selected columns and paste them in the othe
sheet in the columns where the 10th row matches the 10th row of wha
I'm copying.

How do I say 'Look up the value from the 10th row of the first colum
you want to copy, find it somewhere in the other sheet, go to the to
of the column you found it in, and paste everything there?

Easiest thing for me to do would be to record a macro, but I'm not sur
how to include that process of finding the right column.

Hope that somebody can help!
Thanks!
LAR

--
Message posted from http://www.ExcelForum.com

Dim cell as Range, rng as Range
Dim rng1 as Range, vVal as Variant
for each cell in Selection.columns
vVal = cells(10,cell.column)
set rng = worksheets("Sheet2").rows(10).Cells
set rng1 = rng.find(vVal)
if not rng1 is nothing then
cell.EntireColumn.Copy _
Destination:=rng1.EntireColumn
end if
Next

--
Regards,
Tom Ogilvy

"exceleration " wrote in
message ...
I want to copy a few columns from one sheet and paste them into another
one. This should be done by a macro.

Now the first column doesn't contain any values until down to the 10th
row. I want to copy the selected columns and paste them in the other
sheet in the columns where the 10th row matches the 10th row of what
I'm copying.

How do I say 'Look up the value from the 10th row of the first column
you want to copy, find it somewhere in the other sheet, go to the top
of the column you found it in, and paste everything there?

Easiest thing for me to do would be to record a macro, but I'm not sure
how to include that process of finding the right column.

Hope that somebody can help!
Thanks!
LARS


---
Message posted from http://www.ExcelForum.com/