Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy font...not formatting
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy font...not formatting
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" wrote in message ... 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 Worksheet Dim wsSummary As Worksheet Set wsFedex = Worksheets("FEDEX calculator") Set wsSummary = Worksheets("summary") With wsFedex wsSummary.Rows(19).Insert .Range("A19:E19").Copy Destination:=wsSummary.Cells(19, "A") .Range("H19:J19").Copy Destination:=wsSummary.Cells(19, "F") End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy font...not formatting
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!!!! -- Message posted from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy font...not formatting
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 " wrote in message ... Thanks so much...exact!!! Can you amend, possibly with an offset. I am using a sum function and it is moving the range down??? Cheers!!!!! --- Message posted from http://www.ExcelForum.com/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy font...not formatting
destination 20....worked like a charm.
Cheers!!!!!! -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Font Formatting | Excel Discussion (Misc queries) | |||
Formatting font | Excel Discussion (Misc queries) | |||
Formatting font in a list box | Excel Discussion (Misc queries) | |||
Carrying over font formatting | Excel Discussion (Misc queries) | |||
How copy format, font, color and border without copy/paste? | Excel Programming |