Replace Formulas with Values
 

Hi

I have a formula in a certain cell and then use the AutoFill-fuction

Range("C6").FormulaR1C1 = "=R[-2]C+R1C6"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C900"),
Type:=xlFillDefault

Later I want to use the Values of Range("C6:C900")

How can I get the values?
Or:
Can I use the AutoFillfunction also for Range("C6").Value = ?? ?


Mazo

Replace Formulas with Values
 

try:

MSGBOX(RANGE("C6").Value) to display the value of a single cell in that
range. Vary the address according to your needs.
--
Gary's Student


"mazo" wrote:

Hi

I have a formula in a certain cell and then use the AutoFill-fuction

Range("C6").FormulaR1C1 = "=R[-2]C+R1C6"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C900"),
Type:=xlFillDefault

Later I want to use the Values of Range("C6:C900")

How can I get the values?
Or:
Can I use the AutoFillfunction also for Range("C6").Value = ?? ?


Mazo

Replace Formulas with Values
 

This should return every value for all the rows, if that's what you
need.

Sub TestMacro()
Range("C6").FormulaR1C1 = "=R[-2]C+R1C6"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C900"), Type:=xlFillDefault

Dim iMyCount As Integer
iMyCount = 0
Do
Debug.Print ActiveCell.Offset(iMyCount, 0).Value
iMyCount = iMyCount + 1
Loop Until iMyCount = 895
End Sub
-Hi

I have a formula in a certain cell and then use the AutoFill-fuction

Range("C6").FormulaR1C1 = "=R[-2]C+R1C6"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C900"),
Type:=xlFillDefault

Later I want to use the Values of Range("C6:C900")

How can I get the values?
Or:
Can I use the AutoFillfunction also for Range("C6").Value = ?? ?


Mazo
-


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=540682

Replace Formulas with Values
 

Hi Mazo,

You could try this:

With Range("C6:C900")
.FormulaR1C1 = "=R[-2]C+R1C6"
.Value = .Value
End With

Regards,
Garry