Here's some code that you can try out to edit the formulas, check out the attached example, when you click new formula, Column E formulas will change to the indirect formulas.
Sub FigureItOut()
Dim ws As Worksheet
Dim r1 As Range, r2 As Range, s As String
Dim x, p As String, fla As String
Dim Rws As Long, Rng As Range, c As Range
Set ws = Worksheets("Value genetrator")
Set r1 = ws.Range("B:B")
Set r2 = ws.Range("E:E")
Application.ScreenUpdating = 0
r1.AutoFilter Field:=1, Criteria1:="<>"
r2.Replace What:="=Sheet", Replacement:="""", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ws.AutoFilterMode = 0
r2.AutoFilter Field:=1, Criteria1:="=*""*", _
Operator:=xlAnd
Rws = Cells(Rows.Count, "E").End(xlUp).Row
Set Rng = Range(Cells(2, 5), Cells(Rws, 5))
For Each c In Rng.SpecialCells(xlCellTypeVisible)
x = InStr(c, "!")
s = Mid(c, x + 1, Len(c))
p = """=INDIRECT(""'""&A11&""'!""&"""
fla = p & s & """)"
c = fla
Next c
r2.Replace What:="""=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ws.AutoFilterMode = 0
End Sub
Can you not use this forums upload to attach pics instead of using a 3rd party uploader??
Bookmarks