meerdere kolommen autofilter met zelfde criteria

[perry99]

Hallo,

Heb een vraagje over onderstaande macro.

Met onderstaande macro wil ik ook kolom O toevoegen met dezelfde
criteria.
Het resultaat zou moeten zijn dat de ik de rijen zie van beide kolommen
met het de criteria bellen.

Wie kan mij hierbij helpen.

Alvast bedankt voor jullie medewerking.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 4-12-2007 door Perry.
'

'
    Range("M16:M600").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="BELLEN"
End Sub

 

[Wigi]

    [B]Range("M16:O600").Select[/B]
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="BELLEN"
[B]    Selection.AutoFilter Field:=2, Criteria1:="BELLEN"[/B]

Vermijd wel de .Select

Wigi

 

[perry99]

Hallo Wigi,

Krijg nu niets in het scherm te zien.

Heb ik iets verkeerd gedaan, bestand bij gevoegd.

Ik zou graag alleen in kolom M en O de status bellen willen zien

Alvast bedankt voor jou medewerking.

Perry

 

[Wigi]

Wat wil je nu?

Enkel BELLEN in die kolommen? Of in 1 van de 2 kolommen?

 

[perry99]

Sorry Wigi,

In beide kolommen.

Mijn excusses voor de onduidelijkheid.

Alvast bedankt voor de moeite

Perry

 

[perry99]

Hallo Wigi,

Heb het probleem reeds opgelost d.m.v. in een andere kolom
=TEKST.SAMENVOEGEN(M..;" ";O..) te zetten.
Vervolgens in deze kolom autofilter gebruikt.

Toch erg bedankt voor het meedenken.

Groetjes,

Perry :thumb::thumb::thumb::thumb: