Absolute question

P

pgarcia

I have around 1000 lines of code and I know have need of changing my formula
to absoulte. Any easy way to do that with out having to change ever line by
hand?
Thanks

Is now:
=IF(ISERROR(INDEX('All Divisions'!B:B,'Quick Search'!$IJ17+1)),"",INDEX('All
Divisions'!B:B,'Quick Search'!$IJ17+1))

Need this:
=IF(ISERROR(INDEX('All Divisions'!$B:$B,'Quick
Search'!$IJ$17+1)),"",INDEX('All Divisions'!$B:$B,'Quick Search'!$IJ$17+1))
 
M

Max

Try the sub below, taken from this googled post**:
http://tinyurl.com/2e7sy9

Sub Absolute()
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then
Cell.Formula = _
Application.ConvertFormula(Cell.Formula, xlA1, xlA1, xlAbsolute)
End If
Next
End Sub


**Posting gives subs for other possible variations as well,
eg: Sub Relative(), Sub AbsoluteRow(), Sub AbsoluteCol()
 
P

pgarcia

Works great. Thanks

Max said:
Try the sub below, taken from this googled post**:
http://tinyurl.com/2e7sy9

Sub Absolute()
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then
Cell.Formula = _
Application.ConvertFormula(Cell.Formula, xlA1, xlA1, xlAbsolute)
End If
Next
End Sub


**Posting gives subs for other possible variations as well,
eg: Sub Relative(), Sub AbsoluteRow(), Sub AbsoluteCol()
Click to expand...
 
Top