VBA: Rij kopiëren inclusief hyperlink

[snb]

Ik had het niet over voorwaardelijke opmaak.
Kijk eens wat beter in het lint van Excel.

    With ActiveWorkbook.Styles("Hyperlink").Font
        .Name = "Tahoma"
        .Size = 8
    End With

Zoek ook nog eens even in de hulpbestanden van de VBEditor het begrip 'Target' op.

Vermijd nl. selection en activate in VBA.

 

[timpio]

Oké bedankt. Ga ik doen.

Heb het aangepast en werkt idd prima

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
        
  If Not Intersect(Target, Range("B3:B1500")) Is Nothing Then ActiveSheet.Hyperlinks.Add Selection, Application.GetOpenFilename, , , "Link"
  
    With ActiveWorkbook.Styles("Hyperlink").Font
        .Name = "Calibri"
        .Size = 9
        .Underline = xlUnderlineStyleNone
    End With  
End Sub

 

[snb]

Dit is voldoende:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
        
  If Not Intersect([COLOR="#FF0000"]Target[/COLOR], Range("B3:B1500")) Is Nothing Then ActiveSheet.Hyperlinks.Add [COLOR="#FF0000"]Target[/COLOR], Application.GetOpenFilename, , , "Link"
End Sub

Het is niet zinvol bij iedere dubbelklik basisinstellingen te wijzigen, doe dat alleen als je het bestand opent..

Private Sub workbook_open()
  With ActiveWorkbook.Styles("Hyperlink").Font
        .Name = "Calibri"
        .Size = 9
        .Underline = xlUnderlineStyleNone
    End With  
End Sub