Dag allemaal
Ik heb in excel een programmatje dat uitgevoerd wordt wanneer ik dubbel klik op een cel.
Als ik dubbel klik veranderd het lettertype en de letter in de cel.
Ik zou graag hebben dat dit enkel uitgevoerd wordt wanneer ik binnen een bepaald bereik klik (vast A15:F22)
Is het mogelijk om dit te voor elkaar te krijgen?
Hieronder alvast het programmatje zoals het nu werkt.
Alvast bednakt!
Ik heb in excel een programmatje dat uitgevoerd wordt wanneer ik dubbel klik op een cel.
Als ik dubbel klik veranderd het lettertype en de letter in de cel.
Ik zou graag hebben dat dit enkel uitgevoerd wordt wanneer ik binnen een bepaald bereik klik (vast A15:F22)
Is het mogelijk om dit te voor elkaar te krijgen?
Hieronder alvast het programmatje zoals het nu werkt.
Alvast bednakt!
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rng = ActiveCell.Address
If Range(Rng) = "c" Then
Range(Rng) = "R"
With Selection.Font
.Name = "Wingdings 2"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Exit Sub
End If
If Range(Rng) = "R" Then Range(Rng) = "c"
With Selection.Font
.Name = "Webdings"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End If
End Sub