Odyrus
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
cheers!
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
cheers!