Keeping the hyperlink when copy and pasting using VBA

[NamTran]

Hi all,

I'm using VBA to create an advanced filter. The process includes entering information in sheet "rPDU", then searching for information in sheet "Data" and finally returning the information after filtering in sheet "rPDU", you can see the attached code. However, the "Link" in "Product manual" column is lost when I do this.
Can anyone help me how to keep "Link" in this case?.
Thank you so much!

The code is here:

Sub Adv_Filter()

'Function declaration

Dim rg As Range
Dim criterial_rg As Range
Dim paste_rg As Range


'Deleting old results after refreshing the filter

Sheets("rPDU").Range("B20:AZ100").Delete

'Seting the function and range

Set rg = Sheets("Data").Range("B4").CurrentRegion
Set criterial_rg = Sheets("rPDU").Range("B14:Z15").CurrentRegion
Set paste_rg = Sheets("rPDU").Range("B20")

rg.AdvancedFilter xlFilterCopy, criterial_rg, paste_rg

End Sub

 

[Alex Blakenburg]

Try using FilterInPlace and then copy

Sub Adv_Filter()

    'Function declaration
    
    Dim rg As Range
    Dim criterial_rg As Range
    Dim paste_rg As Range
    
    
    'Deleting old results after refreshing the filter
    
    Sheets("rPDU").Range("B20:AZ100").Delete
    
    'Seting the function and range
    
    Set rg = Sheets("Data").Range("B4").CurrentRegion
    Set criterial_rg = Sheets("rPDU").Range("B14:Z15").CurrentRegion
    Set paste_rg = Sheets("rPDU").Range("B20")
    
    rg.AdvancedFilter xlFilterInPlace, criterial_rg
    
    rg.Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=paste_rg

End Sub