Looking to Pay Someone for Help with Excel VBA Script

S

sandra

On an Excel worksheet, I need to populate a few hundred cells wit
hyperlinks. Each hyperlink must end with the name of the particula
cell. I am looking for someone to pay, in order for me to accomplis
this. [email protected].

Thanks,
Sandr
 
S

Simon Lloyd

Sandra, definitely no need to pay someone for this!, ca you elaborate o
which cells the hyperlink should get its name from

sandra;425785 said:
On an Excel worksheet, I need to populate a few hundred cells with th
same hyperlinks, except each hyperlink must end with the name of th
particular cell. So far, I only have this code for cell b13 that i
named 0090105

With Worksheets (1
.Hyperlinks.Add Anchor:=("b13"),
Address:="http://home.lablue.com/Applications/Plan_View/PV_Report.asp?wid=0090105"

ScreenTip:="0090105",
TextToDisplay:="0090105

I know that I could just insert the hyperlinks manually one by one
although I always have to do this on hundreds of projects, so I reall
need some type of a macro to automate this process. Please help

Thanks
Sandra Fitzgeral
Click to expand...

--
Simon Lloy

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com
 
S

sandra

Simon said:
ca you elaborate on which cells the hyperlink should get its name from?
Click to expand...

Simon,

It is all cells in column A that the hyperlink should get it's nam
from.
I am sending the attachment for clarification, so that you can see ho
rows 3 through 82 already have the required links, which I populate
manually.

Thank you. Your help is greatly appreciated.

-Sandr

+-------------------------------------------------------------------
|Filename: Copy of Origination Analysis_TEST3.xls
|Download: http://www.thecodecage.com/forumz/attachment.php?attachmentid=189
+-------------------------------------------------------------------
 
S

Simon Lloyd

Hi Sandra, i don't know what the other code is in your workbook, but
here's some code that will work fine if you already have some hyperlink
adjust the range to start at the first non hyperlinked cell, i have als
written a little bit to prevent the titles being made in to hyperlink

Code
-------------------
Sub hyperlinks_add(
Dim Rng As Range, MyCell As Rang
Set Rng = Sheets("oWorksheet").Range("A1:A" & Sheets("oWorksheet").Range("A" & Rows.Count).End(xlUp).Row) 'change A1 for A whateve
For Each MyCell In Rn
If IsNumeric(MyCell) The
With Worksheets("oWorksheet"
.Hyperlinks.Add Anchor:=MyCell,
Address:="http://home.lablue.com/Applications/Plan_View/PV_Report.asp?wid=" & MyCell.Value,
ScreenTip:=MyCell.Value,
TextToDisplay:=MyCell.Valu
End Wit
End I
Next MyCel
End Su
-------------------
sandra;427468 said:
Simon

It is all cells in column A that the hyperlink should get it's nam
from
I am sending the attachment for clarification, so that you can see ho
rows 3 through 82 already have the required links, which I populate
manually.

Thank you. Your help is greatly appreciated

-Sandr
Click to expand...

--
Simon Lloy

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com
 
P

Patrick Molloy

is this resolved? Unfortunately I can't access any site where I must sign
up first.
 
Top