Cel leegmaken als naastgelegen cel wordt gevuld

[anton44]

Ik zoek een oplossing om een cel leeg te maken als de naastliggende cel die leeg was gevuld wordt.

 

[HSV]

Bv.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
 If Target.Row > 6 And Target > 0 Then Target.Offset(, -1).ClearContents
 End If
End Sub

Edit: ik zat te twijfelen of de vraagstelling wel gelijk was forum-bestand, maar toch.

 

[anton44]

Hi Harrie, blijkbaar houdt jij de aanwas van het forum accuraat in de gaten gezien je reactiesnelheid :thumb:
Ook deze vraag van mij is erg snel en goed opgelost.
Met hartelijke dank.

 

[anton44]

Door een paar regeltjes aan code toe te voegen wordt het nog leuker

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(5)) Is Nothing Then 'bewaakt kolom 5
   If Target.Row > 6 And Target > 0 Then Target.Offset(, -1).ClearContents 'actie vanaf rij 7 en bij input in kolom 5, wissen van cel(-1) in dezelfde rij
 End If
   If Not Intersect(Target, Columns(4)) Is Nothing Then 'bewaakt kolom 4
   If Target.Row > 6 And Target > 0 Then Target.Offset(, 1).ClearContents 'actie vanaf rij 7 en bij input in kolom 4, wissen van cel(+1) in dezelfde rij
 End If
End Sub

 

[HSV]

Om het nog leuker te maken.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Union(Columns(4), Columns(5))) Is Nothing Then 'bewaakt beide
   If Target.Row > 6 And Target > 0 Then IIf(Target.Column = 5, Target.Offset(, -1), Target.Offset(, 1)).ClearContents
 End If
End Sub

Om de code geen twee keer te laten lopen na een wijziging.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Union(Columns(4), Columns(5))) Is Nothing Then 'bewaakt beide
    [COLOR=#0000ff] application.enableevents = false[/COLOR]
   If Target.Row > 6 And Target > 0 Then IIf(Target.Column = 5, Target.Offset(, -1), Target.Offset(, 1)).ClearContents
     [COLOR=#0000ff]application.enableevents = true[/COLOR]
 End If
End Sub

 

[anton44]

Die Harry ..... :thumb:
En ik dacht het gevonden te hebben met mijn beperkte kennis
Bedankt voor de optimalisatie.