Hallo,
enige tijd geleden heb ik op dit forum dankzij Timshel dit stukje code doorgekregen. Waarvoor mijn dank!! Ik had nu een vraag om dit evt. verder uit te breiden indien dit mogelijk is...
Wanneer ik dubbelklik op kolom E (vanaf E2) verschijnt de datum. Kan er bij een volgende dubbelklik op diezelfde cel, deze datum dan gekopieerd worden naar blad F141 cel B24? Indien dit niet mogelijk is, kan dit dan via een ander trucje?
Alvast bedankt ,
Tim
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:C500,E2:F500")) Is Nothing Then Exit Sub
Cancel = True
Select Case Target.Column
Case 1, 5
Target = Date
Case 2, 3
Sheets("F141").Range("B10").Offset(Target.Column - 2) = Target.Value
Case 6
Sheets("F141").Range("E10") = Target.Value
End Select
End Sub
enige tijd geleden heb ik op dit forum dankzij Timshel dit stukje code doorgekregen. Waarvoor mijn dank!! Ik had nu een vraag om dit evt. verder uit te breiden indien dit mogelijk is...
Wanneer ik dubbelklik op kolom E (vanaf E2) verschijnt de datum. Kan er bij een volgende dubbelklik op diezelfde cel, deze datum dan gekopieerd worden naar blad F141 cel B24? Indien dit niet mogelijk is, kan dit dan via een ander trucje?
Alvast bedankt ,
Tim
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:C500,E2:F500")) Is Nothing Then Exit Sub
Cancel = True
Select Case Target.Column
Case 1, 5
Target = Date
Case 2, 3
Sheets("F141").Range("B10").Offset(Target.Column - 2) = Target.Value
Case 6
Sheets("F141").Range("E10") = Target.Value
End Select
End Sub