Goedenavond,
Ik heb een bestandje met in een werkmap de volgende VBA code.
Ik wil in deze code toevoegen dat bij dubbelklikken op de cellen AS27t/m AS999, de tekst die in de betreffende cel staat wordt doorgehaalt.
ik heb dit stukje kunnen vinden, maar hoe voeg ik deze toe aan de bovenstaande code?
'Strikethroughtext Macro
Range ("AS27:AS999")
Selection.Font.Strikethrough = True
End Sub
Kan iemand mij hierbij helpen,
Alvast bedankt
MVG adile
Ik heb een bestandje met in een werkmap de volgende VBA code.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("H12:Q21"), Range("AX2:AX4"))) Is Nothing Then
Target.Value = Time
If Target.Column = 8 Then Target.Offset(, 12) = Target.Offset(, 12).Value
End If
Cancel = True
End Sub
Ik wil in deze code toevoegen dat bij dubbelklikken op de cellen AS27t/m AS999, de tekst die in de betreffende cel staat wordt doorgehaalt.
ik heb dit stukje kunnen vinden, maar hoe voeg ik deze toe aan de bovenstaande code?
'Strikethroughtext Macro
Range ("AS27:AS999")
Selection.Font.Strikethrough = True
End Sub
Kan iemand mij hierbij helpen,
Alvast bedankt
MVG adile