Paste Special atop original sheet in Macro

M

MACRE0

There must be an easy way to copy the entire active sheet and paste i
atop itself. So far all I've been able to do is paste it to anothe
sheet with a specified range (don't wish to use a1:iv65536) or copy al
sheets with any range to a new sheet. I suppose I could modify them t
fit my needs, but I'd really appreciate some help here. Especiall
since it should be easier that the first two I mentioned. Thank you i
advance. -MACR
 
M

Mark

Why and for what reason? Most people would want to paste
values only or something or other. To just copy and paste
for no reason is stupid
 
M

MACRE0

What I am endeavoring to do is take a succinct line item report an
divvy it up by section, sum those sections, then value paste it ato
itself such that the sums will fall to the bottom and not lose thei
links (perhaps all I need to do is modify my sum macro to lock f4 thei
respective cells) following a sort. Then cutting that thus leaving th
sheet as was originally and taking those sums and apply them to
template in a new sheet. The macro would also serve to be stopped mi
way to view a preliminary section. Otherwise I would agree with you
such a paste has little use. It was far more disconcerting to me tha
I was unable to perform such a seemingly simple task coupled with th
fact excel does it nearly instantaneously by hand. I don't mean to b
testy, but are you able to write this 'stupid' macro
 
D

Dave Peterson

With Worksheets("sheet1").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
End With


or

with worksheets("sheet1").usedrange
.value = .value
end with
 
M

MACRE0

Thanks Dave,

Using your format I was able to make it non page specific with

With ActiveSheet.UsedRange
.Copy
.PasteSpecial PASTE:=xlPasteValues
End With


Now my program will work perfectly for future months. The boss i
going to love me! Thanks again
 
Top