I am using an Advanced Filter Macro button to pull data from one sheet into my Filter Sheet but it is not copying the working hyperlinks.
The text gets copied blue and underlined, looking like a hyperlink, but it is not.
Here is the code I am using: Where would I fit in the criteria to make sure the hyperlinks get copied over through the filter as well?
Sub FILTER()
Sheets("WP").Range("A7:M60000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:M2"), CopyToRange:=Range("A14:M60000"), _
Unique:=False
Range("K11").Select
' ActiveCell.FormulaR1C1 = "=SUM(R[-4]C[2]:R[15989]C[2])"
' Sub PRINTRANGE()
Range("F14").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$14"
.PrintTitleColumns = ""
End With
Selection.CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("D12").Select
' With ActiveSheet.PageSetup
' .LeftHeader = ""
' .CenterHeader = "&A"
' .RightHeader = ""
' .LeftFooter = ""
' .CenterFooter = "Page &P"
' .RightFooter = ""
' .LeftMargin = Application.InchesToPoints(0.75)
' .RightMargin = Application.InchesToPoints(0.75)
' .TopMargin = Application.InchesToPoints(1)
' .BottomMargin = Application.InchesToPoints(1)
' .HeaderMargin = Application.InchesToPoints(0.5)
' .FooterMargin = Application.InchesToPoints(0.5)
' .PrintHeadings = False
' .PrintGridlines = True
' .PrintNotes = False
' .CenterHorizontally = False
' .CenterVertically = False
' .Orientation = xlLandscape
' .Draft = False
' .PaperSize = xlPaperLetter
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = False
' .FitToPagesWide = 1
' .FitToPagesTall = 45
' End With
End Sub
The text gets copied blue and underlined, looking like a hyperlink, but it is not.
Here is the code I am using: Where would I fit in the criteria to make sure the hyperlinks get copied over through the filter as well?
Sub FILTER()
Sheets("WP").Range("A7:M60000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:M2"), CopyToRange:=Range("A14:M60000"), _
Unique:=False
Range("K11").Select
' ActiveCell.FormulaR1C1 = "=SUM(R[-4]C[2]:R[15989]C[2])"
' Sub PRINTRANGE()
Range("F14").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$14"
.PrintTitleColumns = ""
End With
Selection.CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("D12").Select
' With ActiveSheet.PageSetup
' .LeftHeader = ""
' .CenterHeader = "&A"
' .RightHeader = ""
' .LeftFooter = ""
' .CenterFooter = "Page &P"
' .RightFooter = ""
' .LeftMargin = Application.InchesToPoints(0.75)
' .RightMargin = Application.InchesToPoints(0.75)
' .TopMargin = Application.InchesToPoints(1)
' .BottomMargin = Application.InchesToPoints(1)
' .HeaderMargin = Application.InchesToPoints(0.5)
' .FooterMargin = Application.InchesToPoints(0.5)
' .PrintHeadings = False
' .PrintGridlines = True
' .PrintNotes = False
' .CenterHorizontally = False
' .CenterVertically = False
' .Orientation = xlLandscape
' .Draft = False
' .PaperSize = xlPaperLetter
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = False
' .FitToPagesWide = 1
' .FitToPagesTall = 45
' End With
End Sub