macro uitbreiden met extra filter

[Marsjahe]

Van gebruiker HSV kreeg ik een fantastisch werkende macro voor mijn zeer uitgebreid Excel bestand dat ik gebruik voor mijn verzameling. Graag zou ik er nog een extra filter ingebouwd willen. Namelijk wanneer er zich in kolom 13 een "#" voorkomt deze kolom niet meenemen in de sortering. De macro ziet er als volgt uit:
Sub hsv()
Application.ScreenUpdating = 0
For i = 65 To 90
letter = Chr(i)
With Blad1.Range("A1", Blad1.Cells(Rows.Count, 25).End(xlUp))
.AutoFilter 6, "*" & letter & "*"
Sheets(letter).UsedRange.Clear
Application.Union(.Columns(6), .Columns(13), .Columns(25)).Copy Sheets(letter).Range("A1")
.AutoFilter
End With
Next
End Sub

 

[emields]

mooi voorbeeldbestandje.

 

[Marsjahe]

Sorry, hierbij een voorbeeldbestand waarbij de macro nog niet is ingebouwd.

 

[Warme bakkertje]

Komt deze in de buurt?

Sub hsv()
    Application.ScreenUpdating = False
    For i = 65 To 90
        letter = Chr(i)
        With Blad1.Range("A1", Blad1.Cells(Rows.Count, 25).End(xlUp))
            .AutoFilter 6, "*" & letter & "*"
            .AutoFilter 13, "<>#*"
            Sheets(letter).UsedRange.Clear
            Application.Union(.Columns(6), .Columns(13), .Columns(25)).Copy Sheets(letter).Range("A1")
            .AutoFilter
        End With
    Next
    Application.ScreenUpdating = True
End Sub

 

[Marsjahe]

Ik ga het proberen, je hoort het van me

 

[Marsjahe]

Werkt uitsteken, dank voor de genomen moeite

 

[Warme bakkertje]

Graag gedaan en veel succes verder.