Macro regels verwijderen obv een aantal voorwaarden

[Welies]

Beste mensen,

Ik zou graag een macro willen hebben die het volgende kan:

1. Alle kolommen verwijderen muv. de geel gemarkeerde (kolom A, G, L, S, U, W, Z, AA, BC, BD, BY, CV, FJ)
2. Op basis van een aantal criteria de regels verwijderen.

Om een en ander te verduidelijken staat alles in de bijlage vermeld:

Bekijk bijlage leverbetrouwbaarheid v2.xls

Alvast dank voor de geboden hulp!

Mvg,
Vincent

 

[Tent84]

Hoi Welies,

Ik heb een eenvoudig beginnetje voor je gemaakt; Het principe voor het verwijderen van rijen kun je verder uitbreiden.

Groeten, Wouter

Sub Delete_RowsAndColumns()
'Delete kolommen
'(houwtje touwtje aantal kolommen; max 256)
For x = 1 To 256
a = a + 1
  If Cells(1, x).Interior.Color <> 65535 Then
    Cells(1, x).EntireColumn.Delete
    x = x - 1
  End If
If a > 256 Then Exit For
Next x

'Delete rijen
'(Aantal rijen ruimschoots genomen)
For x = 1 To 1000
  If Cells(x, 7) = "121" Or Cells(x, 7) = "122" Or Cells(x, 7) = "123" Then
    Cells(x, 7).EntireRow.Delete
    x = x - 1
  End If
Next x

End Sub

 

[Welies]

Beste Tent84,
Dank voor je reactie. Is het mogelijk om deze macro in het bestand te verwerken?
BVD
Gr. Vincent

 

[zapatr]

De criteria voor het verwijderen van rijen zijn mij niet duidelijk.
In de kolom "Klant" moeten de rijen waarin 121, 122, en 123 staat, verwijderd worden.
Maar moet dit gebeuren ongeacht wat er in dezelfde rij in de andere kolommen staat?
Of mag de rij met getal 121 alleen verwijderd worden als tegelijkertijd in dezelfde rij in de kolom "Groep" en Z staat, in de kolom "Code Fysiek" een N, en in de kolom "Type mutatie 4I" een X ?

 

[huijb]

@Tent84 Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar. Zie ook hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[zapatr]

Welies,
als je een oplossing niet meer op prijs stelt, markeer dan de vraag als "Opgelost" a.u.b.
en indien je die nog wel op prijs stelt, geef dan antwoord op de vraag.

 

[exhelp]

Kijk ook eens op mijn blog als je je wil verdiepen in de mogelijkheden tot het verwijderen van rijen.
Hier wordt uitgebreid ingegaan op de mogelijkheden met bijhorende voor- en nadelen.