Bepalen of een autofilter moet uitgevoerd worden

[Guidolavespa]

Hoe bepalen of bv. in veld 16 geen N voorkomt waardoor er geen filter moet gebeuren?

Selection.AutoFilter Field:=16, Criteria1:="N"

anders de filter wel uitvoeren....

 

[Guidolavespa]

Kan ik dit niet met bv.

teller = 0
vak P16
controleer waarde = N, exit to filter uitvoeren
next


filter niet nodig, exit sub


Filter uitvoeren
.....

 

[Guidolavespa]

En de oplossig was........

Dim row As Integer 'rij
Dim str As String 'inhoud van de cellen
row = 3 'startrij
While (Cells(row, 16) <> "N")
If (Cells(row, 16) = "") Then
MsgBox "XXXXXXXXXX!",vbInformation,"Opmerking"
GoTo ExitSub:
End If
row = row + 1
Wend


Selection.AutoFilter Field:=16, Criteria1:="N"

ExitSub:
Exit Sub




Bedankt !