Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Please help to to derive a formula
I have the following formula
Dim res As Variant res = ActiveCell.Address With ActiveSheet lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row .Range(res & ":M" & lastrow).FormulaR1C1 = .Range(res).FormulaR1C1 End With Suppose the value of the res is "M$7". Please help to remove the hardcoding from the formula .Range(res & ":M" & lastrow).FormulaR1C1 = .Range(res).FormulaR1C1 I have to remove ":M" , and should be use the fist digit of the res. Please help With thanks Pol |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Please help to to derive a formula
Maybe...
Option Explicit Sub testme() Dim myCell As Range Dim LastRow As Long Set myCell = ActiveCell With ActiveSheet LastRow = .Cells(.Rows.Count, "G").End(xlUp).Row .Range(myCell, .Cells(LastRow, myCell.Column)).FormulaR1C1 _ = myCell.FormulaR1C1 End With End Sub pol wrote: I have the following formula Dim res As Variant res = ActiveCell.Address With ActiveSheet lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row .Range(res & ":M" & lastrow).FormulaR1C1 = .Range(res).FormulaR1C1 End With Suppose the value of the res is "M$7". Please help to remove the hardcoding from the formula .Range(res & ":M" & lastrow).FormulaR1C1 = .Range(res).FormulaR1C1 I have to remove ":M" , and should be use the fist digit of the res. Please help With thanks Pol -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Derive Average | Excel Worksheet Functions | |||
Formula to derive "Year-To_Date" | Excel Discussion (Misc queries) | |||
What formulae to derive? | Excel Worksheet Functions | |||
Need to derive combinations for 4 elements each with 3 possible va | Excel Worksheet Functions | |||
Using on one list derive from another | New Users to Excel |