Kopieren met advancedfilter verwijderd hyperlink

[MMV]

Beste ik gebruik adfvanced filter om actielijsten te maken.

Bij het kopieren van de gemaakte selectie worden helaas de hyperlinks niet meegenomen. Ik gebruik onderstaande code voor het advanced filter.

Weet iemand hoe ik mijn code dien aan te passen?

Op diverse internet forums geven ze aan dat het beter is om autofilter toe te passen. Dit is voor mij echter niet wenselijk omdat ik op deze manier mijn gehele bestand opnieuw moet indelen.

  Sheets("Actions").Select
    Range("A10:R500").Select
    Selection.Delete Shift:=xlUp
    Range("Database_Acties").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=Range("A1:R6"), CopyToRange:=Range("A10"), Unique:=True

 

[Cobbe]

Probeer PasteSpecial Paste:=xlFormats in uw copy-code in te lassen.
Dat kan volgens mij door copyToRange te vervangen door copy - nieuwe regel -
PasteSpecial Paste:=xlFormats.

'T is maar een voorstel hé.

Cobbe

 

[MMV]

Dat gaat niet werken omdat je met een advanced filter werkt. Ik heb inmiddels een work arround gevonden waarmee het kan. Zie code hieronder:

    Set rng = Range("Database_Acties")
    
    
    Sheets("Actions").Select
    Range("A10:R500").Select
    Selection.Delete Shift:=xlUp
    rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:R6"), Unique:=False
    rng.Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A10")