• 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.

opschonen bestand

Status
Niet open voor verdere reacties.

DirkB

Gebruiker
Lid geworden
24 jun 2014
Berichten
96
Hoi,

Ik ben bezig om een groot bestand op te schonen.
ik heb een klein beetje data in bijgevoegd bestandje gezet.
in kolom A t/m F staan gegevens met in kolom B een 'W-nummer'

nu wil ik alleen de regels bewaren waarvan het 'W-nummer' voorkomt in de lijst W-nummers in kolom J

wat is hier de beste code voor?
 

Bijlagen

  • conversie gegevens.xlsx
    30,3 KB · Weergaven: 49
1. Filter erboven
2. Alle niet-gewenste W-nummers aanvinken.
3. Gefilterde lijst deleten...

Zoiets?
 
Probeer deze eens:


Code:
Sub sjon()

SR = Cells(1).CurrentRegion
For i = 2 To UBound(SR)

    If Application.CountIf(Range("J2:J6"), SR(i, 2)) = 0 Then
        For x = 1 To 6
            SR(i, x) = ""
        Next
    End If
Next

Cells(1).Resize(UBound(SR), 6) = SR

Range("A2:F1000000").SpecialCells(4).Delete xlShiftUp
End Sub
 
Lijkt mij iets voor het geavanceerde filter. Dan kan het ook zonder VBA.

Code:
Sub VenA()
  Sheets("autohistorie").Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, Sheets("autohistorie").Range("J1:J" & Sheets("autohistorie").Cells(Rows.Count, 10).End(xlUp).Row), Sheets("Blad3").Cells(1)
End Sub
 
opgelost :)

dank voor de hulp

ik wist niet van de werking van het geavanceerd filter, maar werkt prima ook op een paar 100k regels
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan