Hyperlink issue on excel userform

[Maggie6360]

Hi guys

I have put together a basic reports userform, and have been tasked with including a hyperlink option to upload engineering reports.
I havefound a nice bit of code which I have adapted to suit my needs, but it only inserts the hyperlink in an Active cell.
Try as I might, I cat get it to insert the hyperlink into iRow, 8, which is the cell on the worksheet it would be required.

The hyperlink code I have been working in is below.

To find the relevant report-

Private Sub CommandButton1_Click()


Dim FileName As String

FileName = Application.GetOpenFilename()
TextBox1.Value = FileName
TextBox1.SetFocus

End Sub

Then to add the hyperlink-

Private Sub CommandButton2_Click()
'OK - ADD HYPERLINK TO ACTIVE CELL

With ActiveCell
If Not .Hyperlinks Is Nothing Then
.Hyperlinks.Add Anchor:=ActiveCell, Address:=TextBox1.Text
End If
End With

End Sub

Any help much appreciated

Maggie

[danwagnerco]

It's easy to get confused by

Please Login or Register  to view this content.

because it seems "magical", but it is actually just a Range!

To insert your hyperlink to a different destination, you can define that destination like I do below with the variable rngTargetCell.

Please Login or Register  to view this content.

[Maggie6360]

Hi,thanks for your help, but having played around with it, still can't get a way to add it to correct row on worksheet.

My code uses the iRow method to insert data to a fresh line, so not sure how to get the hyperlink to insert into the correct cell with all the other new data on the same row.

Code for the form as it runs without hyperlinks attached:

[danwagnerco]

Cool -- so

Please Login or Register  to view this content.

is an Integer that represents the last-occupied row in the Data sheet. (This is a very common VBA pattern, by the way -- determining the last-occupied row on a Worksheet is a cornerstone of VBA programming.)

This should add links as needed:

Please Login or Register  to view this content.

[Maggie6360]

I cant thank you enough-I tested the bit of code you sent, and it all works perfectly! Ive only been using VB a month or so, but the help I get off here rom people who dont criticize my efforts makes it all worth while.
Again, many thanks for your help today.

Maggie