Paste multiple copy

[Thelfer]

I want to copy a mulitiple selection and paste it on second row.
Copy: I press ctrl and select A1 and C1 and press ctrl+c to copy
Paste: Select A2 and paste. cell A2 is correct, but value in B2 i not correct.

________A___B___C
Row 1:__10__90__12
Row 2:__10__12____

How can I paste value of cell A1 and C1 into cell A2 and A3 without changing B2 (using VBA)?

________A___B___C
Row 1:__10__90__12
Row 2:__10______12

Other:
_ = blank

 

[BLaCKouT]

Did you say you do want to use VBA?

Range("A2").Value = Range("A1").Value
Range("C2").Value = Range("C1").Value

...should do it for those specific cells.
Since it references the cells directly, no copy/pasting is required, and it leaves your clipboard intact (not essential, but handy and more efficient).

Hope that helps, let me know if I've misunderstood though!

 

[Thelfer]

My problem is a little bit bigger and I was hoping to get some hints how to solve this paste problem.

The thing is that I have around 70 collumns and I will mark only 50 of them using selection macro based on color of cell (format). Each collumn has 12 rows and some columns will not be marked because they have another color and I don't want to change the data in these colomns.

Once I marked all columns I want to paste values one row down. Let say that I want to leave collumn B and F witout change.

Before:
________A___B___C___D___E___F___G....
Row 1:__10__90__12__10__11__64__68...
Row 2:__11__12__15__11__11__65__68...
Row 2:__13__16__11__10__10__61__68...
.
.
.

After:
________A___B___C___D___E___F___G....
Row 1:__10__90__12__10__11__64__68...
Row 2:__10__12__12__10__11__65__68...
Row 2:__11__16__15__11__11__61__68...
.
.
.

1:st row is the same, second row got first rows value (except for column B and F).
Third row got values from row two (except for column B and F).

 

[Thelfer]

Think I found another way of doing the same thing. Solution is to copy all 70 columns inlcuding the 12 rows and paste special formulas one row bellow.

If you have another solution, please let me now.
Thanks