Als resultaat niets is, volgende

[MEradus]

Hoi,

Op dit moment ben ik bezig met een rapportage en in deze rapportage heb ik een al een macro staan voor een autofilter.

Sub test()

 Range("C1").Select
   Dim LR As Long
   LR = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
   ActiveSheet.Range("$A$2:$R$" & LR).AutoFilter Field:=3, Criteria1:="BSN", Operator:=xlFilterValues
   
End Sub

Nu zoek ik nog een stukje code die ervoor zorgt dat als er geen BSN in de kolom voorkomt, dat de autofilter aangezet wordt.

Kan iemand mij hiermee helpen?

Bvd

Bekijk bijlage Helmijautofilter.xlsm

 

[VenA]

Bedoel je zoiets?

If Application.CountIf(Range("C2:C" & LR), "BSN") > 0 Then Range("$A$2:$R$" & LR).AutoFilter 3, "BSN"

 

[MEradus]

Dank je, dit zocht ik idd!!