copy named range & paste

  • Thread starter Thread starter J.W. Aldridge
  • Start date Start date
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.
 
Range( Range("r2").Value & "q" ).Copy
Range("r8").PasteSpecial xlPasteAll
Range("r8").PasteSpecial xlValues
 
Back
Top