Celinhoud verwijderen indien de inhoud elders in de kolom al voor komt.

[Robert Smidt]

Beste Helpmij'ers,

Graag zie ik een oplossing tegemoet wanneer ik in kolom C een tekst in voer - die elders in kolom C al voorkomt - deze direct verwijderd. Het mag nl. niet gebeuren dat een tekst twee keer voorkomt in kolom C. Zie ook mijn voorbeeld.

Alvast heel hartelijk dank.

RobertBekijk bijlage Binnen bereik.xlsm

 

[gast0660]

Zoiets?

 

[Robert Smidt]

Philliep heel erg bedankt, ik denk dat jij er bijna bent. Het gaat fout wanneer ik willekeurig in kolom C ga staan waar al een grootboekrekening staat en op enter druk, dan verwijderd deze de grootboekrekening er onder (die er dus niet dubbel in staat). Volgens mij moet er een kleine aanpassing gedaan worden dat alleen "verwijderen" actief wordt wanneer er een dubbele grootboekrekening staat in de kolom staat.

 

[gast0660]

Beter zo?

 

[Robert Smidt]

De code werkt perfect, ik heb alle mogelijke tests gedaan en helemaal super.

Heel erg bedankt, wederom was mij dit nooit gelukt...:thumb:

 

[gast0660]

Dank voor de terugkoppeling:thumb:
Tot de volgende.

 

[VenA]

Misschien is goed om jouw eigen code even onder de loep te nemen

Welke logica zit er bijvoorbeeld in de eerste paar regels?

'P E R S O O N L I J K E  I N S T E L L I N G
'Versie 2.2
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[COLOR="#FF0000"]ActiveSheet.Unprotect[/COLOR]


'G R O O T B O E K R E K E N I N G E N
'Regel blokkeren als de vierde kolom (E) is gevuld
For Each cl In Range("b41:b" & Cells(Rows.Count, 2).End(xlUp).Row).Offset(, 4)
[COLOR="#FF0000"]ActiveSheet.Unprotect[/COLOR]
    If cl.Value <> 0 Then cl.Offset(, -4).Resize(, 4).Locked = True
Next cl

Het plaatsen van een bestandje met koppelingen naar externe bestanden is ook niet erg zinvol.

 

[HSV]

Die code zal het perfect doen voor één keer.

Ik had Ts de vorige keer al gemeld dat als er ergens midden in de code 'exit sub' staat de code zonder een aanpassing niet weer bij 'enableevents = true' langs komt.