Solved

macro to copy special paste on ranges of data

Posted on 2014-01-09
1
256 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 26

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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Drop Down List with Unique/Distinct Values (enhancing the Combo-Box with a few steps and a little code) David miller (dlmille) Intro Have you ever created a data validation list from a database field or spreadsheet column (e.g., Zip Codes or Co…
Dealing with unintended Excel Active-X resizing quirks (VBA code simulates "self correction") David Miller (dlmille) Intro Not everyone is a fan of Active-X controls in spreadsheets (as opposed to the UserForm approach, the older Form controls …
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

706 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now