How to keep timestamp for hyperlink clicked multiple times

[wardamneagle21]

I have a file where I have hyperlinks that once clicked records how many times they are clicked and a current timestamp. However once the hyperlink is clicked again the time and date update again which is great for the new record but I still need the record of the time and date when it was previously clicked. Is there a way (formula or vba) that I could use that once the hyperlink is clicked it sets the old time and date in stone and creates a new record in another cell of the new time?

Thanks for any help!

 

[NoSparks]

I have a file where I have hyperlinks that once clicked records how many times they are clicked and a current timestamp.

Can you give a couple examples of the hyperlinks and how and where you are doing this ?

 

[wardamneagle21]

Here is the VBA Screen and macros. Once the hyperlink is clicked it goes to the link then offsets the date and time, I put the copy and paste as to try to keep a running list of all the times its clicked but it always refreshes

Here is a picture of the file. Again hyperlink clicked counter beside it goes up and it dates and times it. but the last 5 columns is where i want it to repeat the number of times it was clicked like it does but instead of updating the time, keep the times for when it was clicked.

Thank you for any help!

Let me know if this is confusing in any way, and i will try to explain it further.

 

[wardamneagle21]

Disregard the second picture last column i had typed in those values, this is how it usually looks

 

[NoSparks]

Let me know if this is confusing in any way, and i will try to explain it further.

It is.
But here's my guess as to what I think you're trying to accomplish

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim HypCell As Range, rowNum As Long, colNum As Long
        
If Not Intersect(Target.Range.Cells, Range("I:I")) Is Nothing Then
    Set HypCell = ActiveCell
    
    With HypCell
        .Offset(, 1) = .Offset(, 1) + 1
        .Offset(, 2) = Date
        .Offset(, 3) = Time
        rowNum = .Row
    End With
    
    colNum = Cells(rowNum, Columns.Count).End(xlToLeft).Column
    Cells(rowNum, colNum + 2) = Date
    Cells(rowNum, colNum + 3) = Time
    
End If

End Sub

 

[wardamneagle21]

This worked PERFECTLY!!!!! thank you so much!

 

[NoSparks]

You're welcome, glad I could assist.
Thank you for the feedback.