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

rijen verwijderen op basis van een kolom

Status
Niet open voor verdere reacties.
D

Depant

Verenigingslid
Lid geworden
5 aug 2015
Berichten
238
Hallo allemaal,

Ik heb een bestand met drie tabbladen.

Mis.
Dagen.
Dezemonsters behouden in mis.

In dagen zit wat raar goochelwerk, maar het gaat mij om "Mis" en "Deze monsters in mis behouden"
In "mis" zitten tot 10000 regels.
In "deze monsters behouden in mis" tot 1000.
Is er een mogelijkheid om alle regels in "mis" te verwijderen die dus niet genoemd staan in "deze monster behouden in mis".

( mis kolom c weg kolom a)

Misschien is een bestandje duidelijker...:(

Bekijk bijlage 333.xlsm

Ik hoop dat jullie mij kunnen helpen.

groeten Henk
 

Bijlagen

Laatst bewerkt:
Het zal makkelijker zijn als de beveiliging weg is.
 
Het geavanceerde filter kan je gebruiken. Is het voorbeeldbestand representatief? Lijkt mij een aardige puinhoop.
 
VenA zei:
Het geavanceerde filter kan je gebruiken. Is het voorbeeldbestand representatief? Lijkt mij een aardige puinhoop.
Klik om te vergroten...

Nee. De tabbladen zijn erg groot maar de essentie is hetzelfde.
Anders wordt het bestand zo groot. En dat gedoe in blad2 dagen is echt een juweeltje:love:
Echt niet van mij, maar dat snappen jullie.:rolleyes:
 
Laatst bewerkt:
Het quoten is niet nodig. Zoek eens op het woord representatief. Het gaat echt niet om het complete bestand. Als het blad 'dagen' niet relevant is laat het dan weg. Al gekeken naar het geavanceerde filter? Het bestand komt van jou dus wat moeten 'wij' er aan snappen dat het niet van jou komt?
 
probeer deze eens, er zijn wellicht fraaiere oplossingen maar deze werkt ook.
 

Bijlagen

Met het geavanceerde filter

Code: 
Sub VenA()
  With Sheets("Mis").Cells(1).CurrentRegion.Offset(1)
    .Parent.Range("BG2") = "=COUNTIF('deze nummers behouden in mis'!$A$1:$A$10000,C3)=0"
    .AdvancedFilter 1, .Parent.Range("BG1:BG2")
    .Offset(1).EntireRow.Delete
    .Parent.ShowAllData
    .Parent.Range("BG2").Clear
  End With
End Sub
 
Hartelijk dank samen.

Het werk uitstekend en snel.

:thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan