Find replace hyperion Values

R

ruskyjwilson

I need to run a macro which will find all hyperion links and replace
with values...I tried copying one from another workbook but it wont
run...any suggestions?
 
C

Chad

You could use something like this:

sub newmacroforyou()

lineerror = "no"

Do
Do While lineerror = "no"
On Error GoTo lineerror:

Cells.Find(What:="www", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Value = "new values"
Selection.Hyperlinks(1).Delete
Loop
Loop Until lineerror = "yes"

If lineerror = "yes" Then
lineerror: MsgBox "Find and replace compelte."
End If

end sub

Hope this helps!
-Chad
 
R

ruskyjwilson

I need to run a macro which will find all hyperion links and replace
with values...I tried copying one from another workbook but it wont
run...any suggestions?
Click to expand...

Ah sorry I meant Hyperion links as in the financial database....so
each link begins "=hsgetvalue"

Will your suggetsion still apply if I tweak it?

Thanks Chad!
 
C

Chad

sure, just replace "www" in the find criteria with "=hsgetvalue" and it will
work the same way. have fun!

-Chad
 
Top