copy named range & paste

J

J.W. Aldridge

Based on cell value in r2, when prompted, I want to...

if value in r2 = "mon", copy named range "monq" and paste values &
formats in r8.
if value in r2 = "tue", copy named range "tueq" and paste values &
formats in r8.
if value in r2 = "wed", copy named range "wedq" and paste values &
formats in r8.
if value in r2= "thu", copy named range "thuq" and paste values &
formats in r8.
if value in r2 = "fri", copy named range "friq" and paste values &
formats in r8.
if value in r2 = "sat", copy named range "satq" and paste values &
formats in r8.
if value in r2 = "sun", copy named range "sunq" and paste values &
formats in r8.

The ranges reflect a pivot table. I do not want the actual pivot
table, just the data - that's why I want to copy the values and
formats only.
 
P

Patrick Molloy

Range( Range("r2").Value & "q" ).Copy
Range("r8").PasteSpecial xlPasteAll
Range("r8").PasteSpecial xlValues
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Setup Cells Without Looping 18
Referencing A Workbook 2
Copy value from changing cells without VBA 1
Offset with variable 2
VBA - retrieve data on last create named range from previous inserted named range 0
Go to named range nominated by user 3
Copy, Paste and Print Cells from a Named Range 3
Sub to iterate thru combo box n copy paste n name ranges successively in a new sht 11

Top