Solved

Copy range and paste only formats

Posted on 2014-03-15
12
239 Views
Last Modified: 2014-06-23
Hi,

I use this...

        activesheet.Range("D180:I219").Value = activesheet.Range("master").Value

to cut and paste values without using clipboard, is there a way to use very similiar but just copy and paste the format of the cells and none of its data?
0
Comment
Question by:DemonForce
  • 4
  • 4
  • 3
  • +1
12 Comments
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 39931382
Not similar but the

copy
Pastespecial

combination can do this.
0
 

Author Comment

by:DemonForce
ID: 39931389
Yeah used that, but is there a faster way?
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 39931394
What formatting are you trying to copy over?
0
Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

 

Author Comment

by:DemonForce
ID: 39931400
Borders...

Basically the sheet has a nice layout, but copy and paste or ctrl-c etc in the wrong place messes the sheet up, so I use a design sheet to recopy the layout back to the original so any mesed up stuff gets put straight back.
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39931406
ActiveSheet.Range("master").Copy
ActiveSheet.Range("D180").PasteSpecial Paste:=xlPasteFormats
will paste the formats only.

ActiveSheet.Range("D180").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
Will paste formulas and Format Numbers

ActiveSheet.Range("D180").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Will paste Values and Number Formats.

gowflow
0
 

Author Comment

by:DemonForce
ID: 39931411
Yeah, I tried those before but even with switch off screnupdating and events I get flicker
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39931449
your comment is to my post ?
gowflow
0
 

Author Comment

by:DemonForce
ID: 39931467
gowflow, yes I have tried that and it works, but not fast enough
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 39931469
Actually borders are a slow process and I do not see any way out of it.
0
 
LVL 29

Expert Comment

by:gowflow
ID: 39931521
can you post  sample of what you want to copy, maybe you have something that intervene with this.
gowflow
0
 
LVL 33

Expert Comment

by:Norie
ID: 39931588
Why not copy the design sheet?
0
 
LVL 29

Accepted Solution

by:
gowflow earned 500 total points
ID: 39936464
Looking at this question again and seeing the different input and specially your comment:


Yeah, I tried those before but even with switch off screnupdating and events I get flicker

lead me to believe that this instruction:
activesheet.Range("D180:I219").Value = activesheet.Range("master").Value

could be lying in a worksheet change event that is being called recursively reason why your screen is flickering.

Can you confirm this ?

and to make it speedier I would suggest something like

Sub ABC

With Application
   .EnableEvents = false
   .DisplayAlerts = False
   .ScreenUpdating  = False
End With

....
your code
activesheet.Range("D180:I219").Value = activesheet.Range("master").Value

or any Copy Paste
.....

With Application
   .EnableEvents = True
   .DisplayAlerts = True
   .ScreenUpdating  = True
End With

End Sub

Open in new window


Also wyse to note that even if you have this kind of structure and the copy paste is affecting cells that have formulas and you have code in the Worksheet_Calculate event all this can contribute to slow/flickering and all this.

To sum it up, with the very little info you provided these are the wide range of issues that we can possibly think of. For sure it would be much better and more beneficial to you and time saving if you can provide more specifics on where the code lies and what are you encountering exactly and what type of data your are trying to copy/paste.

gowflow
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.

815 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

8 Experts available now in Live!

Get 1:1 Help Now