copy font...not formatting

[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

 

[Nigel]

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

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????

 

[gavmer]

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!!!!

 

[Nigel]

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

 

[gavmer]

destination 20....worked like a charm.

Cheers!!!!!!