View Full Version : Copy & Concatenate

05-19-2011, 06:17 AM
Hello all,

I'm trying to revise some code someone on this board was kind enough to help me with.

The original intent was to copy data into a rollup sheet. For a single range it works spectacularly. When I try to modify it to copy 2 ranges to one cell (basically concatenate) I'm not having any luck.

Appreciate any feedback.

Here's the code I'm not having luck modifying:

For Each wks In ThisWorkbook.Worksheets If Not (wks.Name = "Rollup" Or wks.Name = "Sheet1" Or wks.Name = "Sheet2") Then ThisWorkbook.Worksheets("Summary").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value _ = wks.Range("K49" & "K50").Value

05-20-2011, 10:21 AM
Hi Odyrus,

I believe this is in duplicate to: http://www.vbaexpress.com/forum/showthread.php?t=37362