Excel Worksheet_change with 2 functions to insert date and hyperlink window


Joined
Jul 17, 2017
Messages
1
Reaction score
0
Hello,

I am using a worksheet_change sub to monitor data entries and put a date in column "K"
No i want to add to that routine that if a cell in column H is input by the user as "yes" the gui to insert a hyperlink into that cell opens.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row = 1 Then Exit Sub   'don't touch if 1st row
   If Target.Column = 1 Then Exit Sub 'don't touch with macro if target is column A
   If IsEmpty(Target) Then Exit Sub  'allow deletion of cell content in entire row
   If Not IsEmpty(Cells(Target.Row, 11)) Then Exit Sub 'ignore if already has a value
   Cells(Target.Row, 11) = Now   '--Column should be preformatted
End Sub

can anyone help me adding "Application.Dialogs(xlDialogInsertHyperlink).Show" to this?

Many thanks
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top