• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost Vervangen en deleten van namen in een lijst.

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

trainers

Verenigingslid
Lid geworden
8 feb 2012
Berichten
209
Office versie
MS 365
Heel simpel: vervang Teun / Hok door ABC / XYX en verwijder de regel Duiven / Schapen.

Bestand is honderden gegevens groot en meerdere keren komt dezelfde achternaam voor, echter wel met telkens een andere voornaam.

Ik zit te denken aan het eerst bepalen van het zoekgebied, geef dit een naam en zoek dan de betreffende combinaties. Vervolgens Replace / Delete regel. Na deze actie Delete de naam "zoekgebied".

Code:
Option Explicit
Dim LastRow As Long

Sub Delete_Replace()
    Application.ScreenUpdating = False
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(3, 1), Cells(LastRow, 2)).Name = "zoekgebied"

'Maar dan?

    ActiveWorkbook.Names("zoekgebied").Delete
    Application.ScreenUpdating = True
End Sub

Het bepalen van het zoekgebied lukt mij maar dan?
Wie kan mij op weg helpen?

Groet,
Trainers
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan