Target, range leeg maken

[wieter]

De onderstaande code is fout.
Hoe krijg ik ze werkend?

If Intersect(target, Range("J3:J33")) Is Nothing Then GoTo Einde
If (target.Value) = "SL" Then
 [COLOR="#FF0000"]Range("N"& target.Row:"U"& target.Row).ClearContents[/COLOR]
Als de waarde van de targetcel = "SL" dan
op die rij de cellen van( N tot U). leeg maken
End If

 

[Cobbe]

Doe eens de test met deze versie:

Range("N" & target.Row & ":U" & target.Row).ClearContents

 

[wieter]

Bedankt voor de reactie Cobbe.
De regel is nu niet meer rood, maar de cellen worden niet leeg gemaakt.
Grtn

 

[Cobbe]

Dat zou nochtans moeten gebeuren.
Maar wel enkel op de rij waarin ook in kolom J "SL" staat.
Maar het ligt er ook aan bij welke gebeurtenis dit moet gewist worden, enkel bij het aanwijzen van de cel gebeurt dat niet.

 

[wieter]

Het moet gebeuren bij een Change-event in kolom J
In kolom J staan wel formules.

 

[Cobbe]

Dan kan je het zo eens testen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J3:J33")) Is Nothing Then GoTo einde
For Each cl In Range("J3:J33")
 If cl = "SL" Then
   Range("N" & cl.Row & ":U" & cl.Row).ClearContents
 End If
 Next
einde:
End Sub

 

[wieter]

Sorry Cobbe, werkt nog niet.
Moet nu weg met vrouw, ik probeer morgen verder

 

[edmoor]

@Cobbe:
Even muggeziften over het GoTo gebruik, met alle respect

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("J3:J33")) Is Nothing Then
    For Each cl In Range("J3:J33")
      If cl = "SL" Then
        Range("N" & cl.Row & ":U" & cl.Row).ClearContents
      End If
    Next
  End If
End Sub

 

[Cobbe]

Ja klopt maar die goto zat/zit er nog in doordat ik dit gebruik om na een error naar bv:Oeps te springen om de Foutafhandeling te starten.
Want als je die EnableEvents gebruikt en je dwingt die niet op True bij een fout krijg je zeker miserie.

 

[edmoor]

Het zij je vergeven

 

[wieter]

Bedankt Cobbe,
Na een avondje uit, en de nodige herstelperiode deze voormiddag, is het me dan toch gelukt het werkend te krijgen.
Grtn

 

[Warme bakkertje]

Range("N" & cl.Row).Resize(,8).ClearContents