Solved

macro to copy special paste on ranges of data

Posted on 2014-01-09
1
261 Views
Last Modified: 2014-01-09
Hi Expert's

Need. A macro to copy and Special paste all (need to retain cell background shading currently applied) into th3 following range sheet abc

range...
1.c99:af111 and ak99:bb111
2. C115:af125 and ak115:bb125
0
Comment
Question by:route217
1 Comment
 
LVL 27

Accepted Solution

by:
MacroShadow earned 500 total points
ID: 39767656
Sheets("abc").Range("c99:af111").Copy
Sheets("abc").Range("C115:af125").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("abc").Range("ak99:bb111").Copy
Sheets("abc").Range("ak115:bb125").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Open in new window

0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question