copy without formulas

  • Thread starter Thread starter pabs
  • Start date Start date
P

pabs

I have two excel files.
one is called MAster and the other Rider.

In RIder I will be doing lookup on the MAster file.
Once the rider page is complete (with all the lookups) I would like t
be able to simply keep the values generated from the lookups withou
the formulas.

the reason is that I would send the Rider file to an indivdual but
don't want to send the Master file.

I generate all my lookups using a Macro. Is it possible to dump to m
rider file only the values?????

I would then have to run my macro everytime I modify my Master file..

or can I have my Rider file with the lookup fomulas and run a macr
form there to generate another file with only the values???

thanks for any help

Pab
 
I would copy the page then past using paste special
values only.

range(what you want to copy).copy
range(where you want to paste).PasteSpecial _
Paste:=xlPasteValues

Hope that helps
Keith
www.kjtfs.com
 
If you generate your lookups with a macro why not have the macro convert to
values then?

c.formula =c.value
 
I'm not sure If I understand how to do that?

c.formula = c.value ???

could you give me a more detailed example?

thanks
 
here is the macro..


Sub test()

Dim counter As Integer

For counter = 0 To 40
Windows("Rider.xls").Activate
Cells(18 + counter * 5, 4).Select

ActiveCell.FormulaR1C1 = _
"=INDEX([Master.xls]defenition!R6C1:R80C5,
MATCH([Master.xls]Master!R[" & -1 * (10 + (counter * 5)) &
"]C[28],[Master.xls]defenition!R6C1:R80C1,),
MATCH(R12C4,[Master.xls]defenition!R6C1:R6C5,))"

Next counter

End Sub
 
Try adding this line where shown to change the formula you just created to a
value.
MATCH(R12C4,[Master.xls]defenition!R6C1:R6C5,))" activecell.formula=activecell.value
Next counter
Click to expand...


--
Don Guillett
SalesAid Software
(e-mail address removed)
pabs said:
here is the macro..


Sub test()

Dim counter As Integer

For counter = 0 To 40
Windows("Rider.xls").Activate
Cells(18 + counter * 5, 4).Select

ActiveCell.FormulaR1C1 = _
"=INDEX([Master.xls]defenition!R6C1:R80C5,
MATCH([Master.xls]Master!R[" & -1 * (10 + (counter * 5)) &
"]C[28],[Master.xls]defenition!R6C1:R80C1,),
MATCH(R12C4,[Master.xls]defenition!R6C1:R6C5,))"

Next counter

End Sub
Click to expand...
 
thanks Don!

life saver..works like a charm (of course you knew this :) )
I've been tweeking that macro all night,,,
I finally have the functionality down to what I want... the only thing
left was the Value stuff..

man...am I ever gald I found this forum...

thanks again!
 
Back
Top