macro geen filter actief > dan sorteren

[bandito bob]

Ik heb een beveiligd werkblad, waarbij ik toestemming heb gegeven (in this workbook) om macro's te draaien en om te kunnen filteren met:

Sheets("database").Protect , UserInterfaceOnly:=True
  Application.AutoCorrect.CorrectSentenceCap = True
  ActiveSheet.EnableAutoFilter = True

Nu is het zo dat alles goed gaat, behalve als ik ga sorteren terwijl er gefilterd is. Op dat moment gaat mijn database door de war. De gegevens blijven niet meer op dezelfde regel staan.

Ik heb geprobeert om het te verhelpen met:

If AutoFilter = True Then
MsgBox "Sorteren kan alleen als er niet is gefilterd."
Else
het sorteren verhaal.....
end if

Maar dit werkt helaas niet (het was te proberen...).

Kan ik dit op een niet al te moeilijke manier oplossen, ik ben namelijk een beginner met VBA.

 

[ReneDirks]

Ik heb geprobeert om het te verhelpen met:

If AutoFilter = True Then
MsgBox "Sorteren kan alleen als er niet is gefilterd."
Else
het sorteren verhaal.....
end if

Maar dit werkt helaas niet (het was te proberen...).

Kan ik dit op een niet al te moeilijke manier oplossen, ik ben namelijk een beginner met VBA.

Ik ben gevorderd in VBA, maar dan weer niet zo gevorderd in Excel lol

If ActiveSheet.AutoFilterMode Then
   MsgBox "Sorteren kan alleen als er niet is gefilterd."
Else
   het sorteren verhaal.....
end if

 

[bandito bob]

ReneDirks, bedankt voor de reactie, maar...

If ActiveSheet.AutoFilterMode Then

is altijd true, ook als het filter "alle categorieen" laat zien.
Ik zal dus moeten kijken of het filter op "alle categorieen" staat >> sorteren, en zo niet msgbox .....

 

[Wigi]

Hoi

zie hier voor code:

http://www.contextures.com/xlautofilter03.html

Wigi

 

[bandito bob]

Hoi

zie hier voor code:

http://www.contextures.com/xlautofilter03.html

Wigi

Super wigi

Ik heb deze code aan het begin gezet.

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
  End If

Nu gaat het goed:thumb: