Converting from Relative to Absolute

To those concerned
The following macro is more flexible and the one I use.

Sub ConverFormulaReferences()
'Updateby20140603
'Extended Office
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
Dim xTitleId As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & vbLf _
& "Row absolute = 2" & vbLf _
& "Column absolute = 3" & vbLf _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

A big thanks to Extended Office

You're my go to whenever Excel stumps me. I am most grateful, by far, for this tip! I know little about Macros, but followed all of the related instructions and updated more than 400 formulas in under a minute. I cannot thank you enough!

you just saved me about an hour of work, thanks so much!

Thank you.

I am a intermediate excel user. I found this tip fantastic as i avoided converting from Relative to Absolute by manually using F4 in each cell.

Prabir Mittra
Malaysia

Dear all,
I've coded
myCell.Value = Application.ConvertFormula(myCell.Formula, xlA1, xlA1, xlAbsolute)
and it goes wrong, but
myCell.Value = Application.ConvertFormula(myCell.Formula, xlR1C1, xlA1, xlAbsolute)
works well.
Please change the second parameter of your method-call.

By the way: A general switch of R1C1 to A1-style or vice versa is not a solution for me.
I've implemented a SQL-Mechanism (by ADO) for Worksheets in combination of udf's.
Example: SELECT Name, '=udfTrim(RC[-1])' as Formula1 FROM ...
and these relative formulas has to be converted "on the fly" to absolutes.
And it works fine !

best regards !

Efren,
In B4 you need =sum(A1:A3)-B5

Sir Good Day, How can I automatically Sum Up the total values of a Column to the next column by not making prompt the summation formula, with that formula I may just copy to the rest of the rows to do the same task. To be clear let say I encoded Column A from Cell 2 to 3 wit Amounts of 5,10 and 6 Respectively, I want it to be copied the sum of 21 automatically to Column B at Cell4, and once put a value in column B at Cell5 the Total of 21 will be lessened by the value I put in Cell5. Thanks and Good Day

Hello,

Your macro did not work.

However when I added:

Dim c As Variant

to it, problem solved.

Audrey mentions ASAP Utilities - seems as though that is an add on that one must purchase!

There is a much simpler way to change a range of cells without running a macro. Select the range you'd like to change, Go to ASAP Utilities and select "Change formula reference style". Here you can select which parts or all of the formulas to change to absolute referencing. :)