Dubbele gegevens wissen in een lijst

Question

Ik heb een lijst (A4 tot C500 ) met volgnummer in kolom A, naam kolom B en datum in kolom C.

Als ik nu gegevens invul in B500 (naam) ,dan zou ik deze wil controleren in de lijst of deze naam er al ergens tussenstaat door op een knop te klikken met een macro.

Als deze dan al in de lijst staat, dan zouden beide namen moeten gewist worden ,alsook de gegevens naast zijn naam (Kolom A En C )

Bv. Ik vul in B500 de naam Jozef, en deze staat als in de lijst op plaats B45 , dan zouden de gegevens moeten gewist worden in A45,B45,C45 ,alsook B500 als ik op een knop/symbool met een macro klik.

Is dit mogelijk?

Alvast bedankt!

Answer 1

Hallo

Bedankt voor de feedback.

Het spijt me, helaas heb ik geen verdere probleemoplossing te bieden.

Er zijn veel deskundige gebruikers actief op het forum en ik hoop dat iemand anders meer inzicht kan bieden in uw probleem.

Vriendelijke groeten Shakiru

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.

Answer 2

I

ik heb deze code geprobeerd ,maar ik krijg dit te zien.

Zo werk het blijkbaar niet .

Bedankt voor de hulp alvast Skakiru :-)

Answer 3

Hoi Stavros76!

Bedankt voor uw feedback

Als u de gewenste functionaliteit voor meerdere bladen in uw werkmap wilt bereiken, kunt u de vorige macro wijzigen om door elk blad te bladeren en de naam op te zoeken en te verwijderen.

Probeer dit eens: Sub DeleteDuplicateName() Naam dimmen als tekenreeks Dim ws als werkblad Dim lastRow zo lang Dim i Zo lang

name = Bladen("Blad1"). Bereik("B500"). Waarde 'haal de naam uit Sheet1 B500

'Loop door elk blad in de werkmap Voor elke ws in ThisWorkbook.Sheets Als ws. Naam <> "Blad1" en vervolgens 'Blad overslaan1 lastRow = ws. Bereik("A" &; Rijen.Aantal). Einde(xlUp). Rij 'haal de laatste rij gegevens op in kolom A van het huidige blad

'loop door de rijen om een match voor de naam te vinden Voor i = 1 To lastRow Als ws. Bereik("B" & i). Waarde = naam Dan "Als er een overeenkomst wordt gevonden, verwijdert u de rij en verlaat u de lus Ws. Bereik("A" & i). WholeRow.Delete Ws. Bereik("B" & i). WholeRow.Delete Ws. Bereik("C" & i). WholeRow.Delete Exit Voor Einde als Volgende i Einde als Volgende ws Einde sub

Volg dezelfde stappen als voorheen om deze bijgewerkte macro aan uw werkmap toe te voegen en aan een knop toe te wijzen. Wanneer u een naam invoert in cel B500 op "Blad1" en op de knop klikt, wordt naar die naam gezocht in de lijsten op alle andere bladen (behalve "Blad1"). Als er een overeenkomst wordt gevonden, wordt de bijbehorende rij verwijderd, samen met de aangrenzende kolommen A en C.

Hartelijke groeten Shakiru

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.

Answer 4

ik heb niet steeds tijd om mij te verdiepen in excel. In doe mijn best. Ik gebruik noraal enkel de basis in excel.maar als het te complex is, dan stel ik hier een vraag .

En je bent ook niet verplicht om te helpen of onnodig zulke commentaren te geven. Reageer dan liever niet ,dan mensen hier steeds terrecht te wijze.

Niet iedereen zal zo een genie zijn zoal u!