• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kopiëren dor dubbelklik deel 2

Status
Niet open voor verdere reacties.

Stukke

Gebruiker
Lid geworden
19 nov 2012
Berichten
21
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
 
Kleine aanpassing nodig.
Code:
    Select Case Target.Column
        Case 1
            Target = Date
        Case 5
            If IsDate(Target.Value) Then
                Sheets("F141").Range("B24") = Target.Value
            Else
                Target = Date
            End If
        Case 2, 3
            Sheets("F141").Range("B10").Offset(Target.Column - 2) = Target.Value
        Case 6
            Sheets("F141").Range("E10") = Target.Value
    End Select
Voglende keer trouwens je code opmaken met de CODE tag ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan