Automatich bepaalde cellen inhoud wissen

[patjel]

Hallo,

Als ik gegevens verwijder in Cel P17 zouden in Cel V 17 & Cel W 17 de waarden in deze Cel moeten gewist worden.
Als Cel Q18 wordt gewist zou er in Cel W17 geen gegevens meer mogen staan.
Wie kan mij bij deze helpen. VB:zie bijlage
Bedankt Bij voorbaat.

Groeten Patje

 

[Timshel]

Geldt dit voor de hele kolom P en Q?
Er zit al een Worksheet_Change-event in het werkblad die de tijd invoegt in kolom W bij wijzigingen in kolom P en Q. Moet deze functionaliteit behouden blijven?

Als beide vragen met ja worden beantwoord, vervang dan de bestaande routine door deze:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Union(Range("P2:Q1000"), Range("X2:X1000"))) Is Nothing Then
        Select Case Target.Column
            Case 16
                If Target = "" Then Target.Offset(, 6).Resize(, 2) = "" Else Target.Offset(, 6) = Time
            Case 17
                Target.Offset(, 6) = IIf(Target = "", "", Time)
        End Select
    End If
End Sub

 

[patjel]

Bedankt voor uw reactie op mijn vraag.

Timchel,

Bedankt voor uw reactie heb dit toegepast en werkt Perfect

Groeten Patje


Gaat goed als ik mijn selectie wil doortrekken (Naam) gaat dit niet, kan dit verholpen worden.
Alvast bedankt.
Groeten Patje