excel - Replace Numerical Reference of a formula VBA? -


for = 1 5     changeto = cstr(sheet15.cells(1, i).formula)     newindustry = getfirstword(worksheets("industry insert template").range("c1"))     'grab index position of comma , exclamation mark     intchangeto = instr(changeto, ",")     finalchangeto = instr(changeto, "!")     'extract worksheet substring     finalindustry = mid(changeto, intchangeto + 1, finalchangeto - intchangeto - 1)      if finalindustry <> "'multiples & eps'" , finalindustry <> "technicals"         finalformula = replace(changeto, finalindustry, newindustry)         cells(1, i).formula = finalformula     end if next 

currently macro adjust worksheet name.
want adjust numerical reference.

for example:

=vlookup($b1,industrials!$ca$41:$gg$41,c$8) 

i want able change cells 41 in vlookup reflect correct row.
how go through cells , change formula reflect this?

use replace:

example :

cells (1, i).formula = replace(cells (1, i).formula, oldrow, newrow) 

if value of i related row number, can use in place of old row etc.


Comments

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

c# - MSAA finds controls UI Automation doesn't -

wordpress - .htaccess: RewriteRule: bad flag delimiters -