copy font...not formatting

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello

My knowledge is limited so i am seeking the help of a more intelligent person who can play with the code below so that it copies the values in the cells and not formulas, formatting, etc.....just the text and numbers????

Thanks all!

Sub CopyData(
Dim wsFedex As Workshee
Dim wsSummary As Workshee

Set wsFedex = Worksheets("FEDEX calculator"
Set wsSummary = Worksheets("summary"

With wsFede
wsSummary.Rows(19).Inser
.Range("A19:E19").Copy Destination:=wsSummary.Cells(19, "A"
.Range("H19:J19").Copy Destination:=wsSummary.Cells(19, "F"
End Wit

End Su
 
To my knowledge you cannot copy-paste special to a destination in one go, so
try this

With wsFedex
wsSummary.Rows(19).Insert
.Range("A19:E19").Copy
wsSummary.cells(19,"A").PasteSpecial Paste:=xlPasteValues
.Range("H19:J19").Copy
wsSummary.cells(19,"F").PasteSpecial Paste:=xlPasteValues
End With

Cheers
Nigel


Geoff said:
Hello,

My knowledge is limited so i am seeking the help of a more intelligent
Click to expand...
person who can play with the code below so that it copies the values in the
cells and not formulas, formatting, etc.....just the text and numbers????
 
Thanks so much...exact!!!

Can you amend, possibly with an offset. I am using a sum function an
it is moving the range down???

Cheers!!!!
 
The ranges shown are absolute so what offset are you trying to apply ?
Sounds like you might need to change the destination range to row 20 ?

Cheers
Nigel
 
Back
Top