Justfabulous
Gebruiker
- Lid geworden
- 30 okt 2010
- Berichten
- 100
Hoi, de code die je nu stuurd werkt niet op het wissen van P. Ik had deze formule en die werkte ok.
Over kolom R zal ik zo antwoord geven.
Greetz
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O3:O5000")) Is Nothing Then
For Each c In [O3:O5000]
If c > 0 Then
c.Offset(, 1).ClearContents
c.Offset(, 2) = c.Offset(, 2).Value
End If
Next
End If
Application.EnableEvents = False
For Each c In [Q3:Q5000]
If c = "X" Then c.Offset(, -3) = c
Next
If Not Intersect(Target, [P3:P5000]) Is Nothing Then
If InStr("Xx", LCase(Target)) > 0 Then Target.Offset(, -12).ClearContents
If Not Intersect(Target, Range("O3:O5000")) Is Nothing Then
For Each c In [O3:O5000]
If c > 0 Then
c.Offset(, -11).ClearContents
c.Offset(, -1) = c.Offset(, 2).Value
End If
Next
End If
End If
Application.EnableEvents = True
End Sub
Over kolom R zal ik zo antwoord geven.
Greetz