Vraag macro

[Marcovraag]

Beste allemaal,

Ben bezig een rapportage te filteren uit een inputblad.
Opmaak etc. volgen al automatisch, nu zit ik echter met één gedeelte van de macro die in niet voor elkaar krijg..
Heb een filter staan op kolom "no. 1", van laag naar hoog. So far so good..
Nu willen degene die de rapportage gaan gebruiken echter ook het volgende:

* No. 1 heeft een aantal gelijke nummers. Ze willen dat alleen de rijen getoont worden met de hoogste letter in kolom no. 2. (waar voor het gemak ook cijfers voor staan).
* Als uitzondering:
* Alle x regels in no. 1 moeten blijven staan.
* Alle regels met woorden in kolom no. 2 moeten blijven staan.
* Kan voorkomen dat er twee verschillende getallen in no. 2 komen te staan, terwijl het cijfer in no. 1 gelijk is. Dan moet van beide cijfers in no. 2 degene met de hoogste letter blijven staan.

Vanwege vertrouwelijke info heb ik even een voorbeeldje gemaakt, zie bijgevoegd.

Alvast dank!
Bekijk bijlage Test-voorbeeld.xlsx

 

[sylvester-ponte]

voeg een kolom toe met een formule die uitzoekt of aan alle voorwaarden is voldaan. en filter daarop

 

[Marcovraag]

Is er geen mogelijkheid om dat te omzeilen en dit geheel met een macro uit te voeren?
Lastige is dat zij met een vast inputbestand werken en dat toevoeging van kolommen niet fijn gaat werken voor ze.
Enige andere mogelijkheid hiervoor is een extra hulpblad gemaakt moet worden, maar wil dit, indien dit uiteraard mogelijk is, toch voorkomen. Moet uiteraard wel mogelijk en werkbaar zijn !

 

[Haije]

Macrovraag,

en als je nou de werkwijze van @sylvester uitvoert in een macro, en als laatste de extra kolom weer verwijdert?
Er kraait geen haan naar als dat in een macro gedaan wordt

 

[VenA]

Als je rij 2 weghaalt uit jouw voorbeeld kan je dit proberen.

Sub VenA()
With Sheets(1)
    ar = Cells(1).CurrentRegion.Offset(1)
    For j = 2 To UBound(ar) - 1
        If Split(ar(j - 1, 2), "-")(0) <> Split(ar(j, 2), "-")(0) Then c00 = c00 & "|" & ar(j - 1, 2)
    Next j
    Cells(1).CurrentRegion.AutoFilter 2, Split(Mid(c00, 2), "|"), xlFilterValues
End With
End Sub

 

[Marcovraag]

Dank allemaal.
Ga proberen het zo in te regelen.

@VenA, in mijn werkelijke bestand staan er ook nog meer rijen met input boven.
Filter start pas op rij 15.
Denk dat de handigste weg toch een hulpblad is en dan vanuit daar de rapportage macro draaien.
Eens? (Altijd benieuwd hoe de echte experts het zouden doen )

 

[VenA]

Je kan eens beginnen met een gelijkend bestandje te plaatsen. Hoe echte experts het zouden doen is geheel afhankelijk van de opzet en het doel van het bestand. Dus daar is niets over te zeggen