Create a Hyperlink

[rollin]

Hi All,

I am trying to create a hyperlink on the first column of a report, after the report is generated.

for the address, I need to read values from the content of other fields in the report as in


This is part of the hyperlink code, I am using

For i to LastRow
Str = “http://” & range(“URLAddress”).value & “ph=” & cell_that_contains_phoneNo & “st=” & cell_that_contains_starttimevalue & “et=” & cell_that_contains_endtimevalue

Range("A” & i").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address=Str, TextToDisplay:="HLink"
Next i

How do I read the ph, st and et values?
cell_that_contains_phoneNo - 9th field
cell_that_contains_starttimevalue - 2nd field
cell_that_contains_endtimevalue - 3rd field.


Also, I am creating this hyperlink after the report is generated. The above code takes a while to create hyperlink, if the number of rows are large. Is there a better code which creates the links faster?

Thanks,

Rollin

[Richard Buttrey]

Are you fully qualifying the cells with the ph, st, & et values with the sheet name as well?

Upload the workbook for more definitive advice.

[rollin]

Hi Richard,

Yes, I am fully qualifying the cells with the ph, st, & et values with the sheet name.

I am not sure of the code to read values off multiple cells.

Also, this code will be a part of the initial code for the report, which is too large to post and I am not sure of the size.

[Richard Buttrey]

We don't need an all singing all dancing workbook with zillions of rows, cut it down in size and just send one that has the relevant bits.

[rollin]

Hi Richard,

I have attached the excel sheet, which I have posted the format sheet. I use this code after my initial report is created.
Currently, I manually created a hyperlink for testing purposes.

I need to insert a column in before col B and name it "Hlink". Also, I need to have this column as hyperlinked and the text called "CONNECT"

for the address, I need to read values from the content of other fields in the report as in


This is part of the hyperlink code, I am using

For i to LastRow
Str = “http://" & range(“URLAddress”).value &"sc=" testing & "ph=" & cell_that_contains_phoneNo & "st=" & cell_that_contains_starttimevalue & "et=" & cell_that_contains_endtimevalue

Range("A” & i").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address=Str, TextToDisplay:="CONNECT"
Next i

How do I read the sc, ph, st and et values?
sc: cell that contains service type (if the value is GUIDE, then sc = testing)
ph :cell_that_contains_phoneNo - 6th field
st:cell_that_contains_starttimevalue - 2nd field
et:cell_that_contains_endtimevalue - 3rd field.

Also, I am creating this hyperlink after the report is generated.

Thanks,

Rollin

[rollin]

Hi All,

Any help on this?