what is the vba language to make hyperlink?

[Anton]

I can't seem to find the answer to this question. Could somebody help me with
this? I am using a macro in excel for data entry and I want one of the
entries to be hyperlink once it is added. and the address of the hyperlink is
DWG file of that entry. So let say I enter A100, I want it to be hyperlink to
A100.dwg.

Thank you

 

[Dave Peterson]

I would use a formula in an adjacent cell:

=hyperlink("File:////" & a1 & ".dwg","Click Me")

if I were entering A100 in cell A1.

 

[GTVT06]

I can't seem to find the answer to this question. Could somebody help me with
this? I am using a macro in excel for data entry and I want one of the
entries to be hyperlink once it is added. and the address of the hyperlinkis
DWG file of that entry. So let say I enter A100, I want it to be hyperlinkto
A100.dwg.  

Thank you

add this in your macro (assuming the value is in cell C1)

Dim i As String
i = Range("C1").Value
If Range("C1").Value <> 0 Then
Range("C1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
i & ".dwg", TextToDisplay:=i
End If

 

[Anton]

Thx for the answer, GTVT but I still can't do it. This is my programme
Private Sub CommandButton1_Click()
Dim LastRow As Object

Set LastRow = Sheet3.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
LastRow.Offset(1, 3).Value = TextBox4.Text
LastRow.Offset(1, 4).Value = TextBox5.Text
LastRow.Offset(1, 5).Value = TextBox6.Text
LastRow.Offset(1, 6).Value = TextBox7.Text
LastRow.Offset(1, 7).Value = TextBox8.Text
LastRow.Offset(1, 8).Value = TextBox9.Text
LastRow.Offset(1, 9).Value = TextBox10.Text
MsgBox "One entry added to Database"

End If

response = MsgBox("Do you want to add another entry?", _
vbYesNo)

If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""

TextBox1.SetFocus

Else
MsgBox "Thank you, God bless you"
Unload Me
End If

End Sub

Private Sub CommandButton2_Click()
MsgBox "Thank you, God bless you"
End
End Sub

basically it is just textbox for people to enter data and I want the entry
into textbox9 to be a hyperlink that links to ENTRY.dwg. let say the person
enters ANTON in textbox9 the entry will become hyperlink to the file
ANTON.dwg. Hope this helps to give a clearer picture.


Thanks lots!

 

[Anton]

Thx for the answer, Dave but I still can't do it. This is my programme
Private Sub CommandButton1_Click()
Dim LastRow As Object

Set LastRow = Sheet3.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
LastRow.Offset(1, 3).Value = TextBox4.Text
LastRow.Offset(1, 4).Value = TextBox5.Text
LastRow.Offset(1, 5).Value = TextBox6.Text
LastRow.Offset(1, 6).Value = TextBox7.Text
LastRow.Offset(1, 7).Value = TextBox8.Text
LastRow.Offset(1, 8).Value = TextBox9.Text
LastRow.Offset(1, 9).Value = TextBox10.Text
MsgBox "One entry added to Database"

End If

response = MsgBox("Do you want to add another entry?", _
vbYesNo)

If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""

TextBox1.SetFocus

Else
MsgBox "Thank you, God bless you"
Unload Me
End If

End Sub

Private Sub CommandButton2_Click()
MsgBox "Thank you, God bless you"
End
End Sub

basically it is just textbox for people to enter data and I want the entry
into textbox9 to be a hyperlink that links to ENTRY.dwg. let say the person
enters ANTON in textbox9 the entry will become hyperlink to the file
ANTON.dwg. Hope this helps to give a clearer picture.


Thanks lots!

 

[Dave Peterson]

If you want to use another cell to hold the hyperlink, then try my suggestion.
If you want the insert|Hyperlink version, then try GVTV06's suggestion.

 

[Dave Peterson]

I see you've started a new thead.

I'll bow out.

If you want to use another cell to hold the hyperlink, then try my suggestion.
If you want the insert|Hyperlink version, then try GVTV06's suggestion.