By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes
listi.net
FixHTML UDF
This routine fixes a JIRA in a cell to a hyperlink
Function FixHTML(s) sVar = s
If instr(sVar,"Z-") > 0 or instr(sVar,"CRTRE-") > 0 or .... Then 'list of Jira prefixes sVar = "< a href=""https://Jira.com/issues2/browse/" & s & """>" & s "< /a>" End If
sVar = Replace(Replace(sVar, "<" , "<"), vbLF, "< br>") sVar = Replace(sVar, "<a ", "< a ") sVar = Replace(sVar, "</a", "< /a") FixHTML = sVar End Function